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Abstract 


I The  information  presented  in  this  docment  on  the  LUMINARY  IB 

guidance  program  was  produced  with  the  intention  that  it  be  used 
together  with  a symbolic  tabulation  of  the  program.  The  information 
is  divided  into  a series  of  separate  sections,  each  of  which  describes 
a basic  area  of  guidance  computation  and  contains  a list  of  def- 
initions of  variables  and  constants  used  in  that  area  of  the  program. 

In  order  to  assist  the  user  in  finding  the  computations  in  which  he 
is  interested,  summaries  of  each  section  have  been  included,  and  all 
routine  tags  used  in  this  document  (generally  identical  to  but  a subset 
of  those  in  the  program  listing)  are  indexed  at  the  end  of  the  doc- 
ument along  with  a list  of  references  to  each  routine  listed.  A list 
of  references  to  flagwords  and  channels  has  been  included  as  well,  as 
a supplement  to  the  list  of  references  to  variables  and  constants 
supplied  in  the  program  listing  itself. 

The  program  from  which  this  document  was  prepared  is  identified 
"LUMINARY  Revision  116"  and  was  released  on  August  11 , 1969  for 
fabrication  of  the  LM  Guidance  Computer  memory  ropes  for  the  Apollo 
Hi  mission. 

Because  of  the  purposes  for  which  the  information  in  this 
document  was  originally  prepared,  and  the  methods  used  in  its 
production,  this  material  should  not  be  used  as  definitive  infor- 
mation on  the  LUMINARY  IB  program  but  as  an  aid  in  the  reading  eind 
understanding  of  the  program  listing.  If  definitive  information 
is  required,  the  G&N  contractor  is  the  proper  source  for  it. 
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Introduction 


Under  the  egis  of  the  Program  Development  Group,  Apollo  Guidance 
Program  Section,  Flight  Software  Branch  of  MSG,  in  order  to  facilitate 
the  reading  of  the  detailed  symbolic  listing,  a "Programmed  Guidance 
Equations  Document"  has  been  prepared  for  the  "LUMINARY"  program.  A 
major  purpose  of  this  document  has  been  to  provide  more  effective 
identification  and  analysis  of  various  program  performance  features 
and  to  permit  more  effective  review  of  published  computer  program 
docxjmentation. 

During  reviews  of  previous  programs  written  for  the  Apollo  Gui- 
dance Computers,  it  was  found  desirable  to  assemble  a set  of  working- 
paper  information  on  the  equations  actually  programmed  for  these 
flights.  This  material  has  proven  to  be  useful  to  the  various  groups 
associated  with  these  flights,  in  that  it  can  be  used  to  bridge  the 
gap  between  the  extreme  detail  of  the  program  listing  and  the  occasional 
lack  of  detail  available  elsewhere  on  the  guidance  equations.  Conse- 
quently, the  material  on  the  following  pages  has  been  assembled  in  a 
fashion  similar  to  that  used  for  previous  programs  and  follows  the  same 
general  format. 

Certain  aspects  of  the  program  are  quite  complex,  and  this  programmed 
guidance  equation  material  should  not  be  considered  as  a substitute  for 
actual  study  of  the  program  symbolic  listing  itself.  No  complete  set  of 
equation  information  was  available  from  the  G&N  contractor  against  which 
the  programmed  equations  could  be  validated,  and  in  the  interest  of 
timely  publication,  the  review  of  the  assembled  document  against  the 
program  assembly  has  not  been  as  detailed  as  would  be  desired. 

The  program  assembly  listing  which  was  used  to  prepare  this  pro- 
grammed equation  information  bears  the  heading  print: 

GAP:  ASSEMBLE  REVISION  116  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-071 
and  is  dated  August  11,  1969.  The  function  of  virtually  all  the  program 
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steps  of  interest  to  the  flight  is  described  either  on  the  following 
pages,  or,  for  general  computer  system  control,  in  TRW  Working  Paper 
3420.5-27  (revision  l). 

Recipients  of  this  document  are  cautioned  against  misusing  it 
as  a definitive  description  of  the  "LUMINARY"  guidance  equations. 
Instead,  it  might  be  used  to  achieve  a better  understanding  of  the 
program  assembly  listing,  since  it  is  intended  as  an  aid  in  review 
of  the  listing,  not  as  a substitute  for  it.  Definitive  guidance 
equation  information  can  be  provided  only  by  the  G&N  contractor 
through  the  appropriate  MSG  channels. 

A great  deal  of  credit  goes  to  TRW  Systems  MTCP  Tasks  A-90  and 
A-201  (Support  of  Apollo  Guidance  Program  and  Guidance  Dociiment  Review) 
personnel,  in  particular  Mr.  William  C.  Koelsch,  who  conducted  a simi- 
lar review  of  the  "SUNDANCE"  program.  This  document  has  drawn  heavily 
upon  the  results  of  that  review  and  could  not  be  published  at  this  time 
without  the  earlier  work  done  by  TRW  Systems. 
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Summary  of  Individual  Sections 


The  contents  of  this  description  of  the  "LUMINARY"  guidance  and 
control  equations  are  divided  into  twenty-five  semi-independent 
sections,  each  of  which  is  assigned  a four  letter  code.  Pages  are 
numbered  consecutively  within  each  section  and  the  sections  them- 
selves are  arranged  in  alphabetical  order  by  code.  Familiarity  with 
the  information  in  "Notation  and  Terminology"  is  helpful  in  under- 
standing the  somewhat  specialized  type  of  notation  used  in  describing 
the  program,  but  each  section  includes  a list  of  "Quantities  in 
Computations"  which  is  intended  to  describe  all  variables  and  constants 
in  the  section  that  are  not  described  in  the  list  of  "Major  Variables". 

Alignment  of  the  Inertial  Subsystem  (ALIN) 

Programs  used  to  align  the  ISS  to  any  of  several  specified  align- 
ments and  to  compute  the  "reference  to  stable-member"  transforma- 
tion matrix,  based  on  measurements  of  the  positions  of  celestial 
bodies  with  respect  to  the  spacecraft. 

Ascent  Guidance  (ASCT) 

Programs  used  to  initiate,  control,  and  terminate  the  LM  ascent 
from  the  limar  surface  (P12)  and  aborts  from  powered  descent 
(P70  and  P7l) 

Attitude  Maneuvers  (ATTM) 

Computations  performed  to  determine  the  axis  about  which  space- 
craft rotation  should  take  place  and  the  magnitude  of  the 
rotation  to  go  from  present  vehicle  attitude  to  final  attitude, 
including  logic  controlling  the  maneuver  rates  and  DAP  interface. 

Burn  Control  Routines  (BURN) 

Programs  used  to  initiate,  control,  and  terminate  all  three  types 
of  LM  burns  (RCS,  APS,  and  DPS). 
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Conic  Subroutines  (CONC) 


Subroutines  used  by  navigation  and  targeting  routines  to  compute 
various  conic  parameters. 


Coordinate  Transformations  (COOR) 

Subroutines  defining  the  transformations  between  the  several 
coordinate  systems  used  by  the  LGC,  including  routines  for 
determination  of  lunar  and  solar  position  and  selenographic 
latitude  and  longitude. 


Digital  Autopilot  Control  Routines  (PAPA) 

P-£ixis  and  Q,R-axis  RCS  control  for  free  or  powered  flight; 
Q,R-axis  Gimbal  Trim  System,  (includes  jet  fail  monitor.) 


Digital  Autopilot  Phase  Plane  Logic  (DAFB) 

Equations  used  to  compute  jet  accelerations,  jet  firing  times 
and  disturbing  accelerations;  deadband  selection  and  astronaut 
interface  routines. 


Data  Input/Output  Routines  (DATA) 

Logic  used  to  control  display  and  loading  of  various  LGC 
registers  under  control  of  the  DSKY  or  internal  programs , 
including  noun  definitions. 


Descent  Guidance  (DESC) 

Programs  used  to  initiate,  control,  and  terminate  the  LM 
powered  descent  maneuvers  (P60's). 


Display  Interface  Routines  (DINT) 

Routines  governing  program  use  of  the  DSKY  and  the  priority  of 
displays . 
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Display  and  Keyboard  Interface  Logic  (DSKY) 


Routines  defining  the  mechanics  of  interpreting  inputs  from  the 
DSKY  keyboard  or  uplink  and  for  changing  the  status  of  niomerical 
character  lights  on  the  display. 


Extended  Verbs  (EXVB) 


Definition  of  the  functions  of  the  extended  verbs  (40-99) 
including  those  controlling  block  updates  of  LGC  E-memory,  AGS 
initialization,  calculation  of  TFF  and  rendezvous  displays. 


IMU  Computations  ( IMUC ) 

Computations  associated  with  the  Inertial  Measurement  Unit, 
including  those  for  controlling  CDU  pulse  outputs,  for  checking 
and  setting  IMU  modes  and  switching  between  them,  for  accelerometer 
and  gyro  compensation,  and  for  gyro  torquing. 


Program  Interrupts  (INTR) 

Short  description  of  all  eleven  program  Interrupts;  the  routines 
associated  with  program  interrupt  No.  4. 


Mathematical  Functions.  Executive.  Waitlist  (MATX) 

Various  built-in  trigonometric,  logarithm  and  root  extraction 
functions  used  by  the  programs,  and  some  of  the  logic  associated 
with  the  operations,  such  as  "Establish,"  or  "Call." 


Orbital  Integration  (ORBi) 

The  equations  used  for  precision  integration  of  the  state  vector, 
and  logic  to  switch  between  powered  flight  and  coasting  flight 
navigation. 


Program  Service  Routines  (PGSR) 

Routines  used  for  initialization  of  the  LGC,  re-initialization  in 
case  of  restart,  and  for  change  of  program  (major  mode).  Also 
includes  alarm  routines. 
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Radar  Control  Routines  (RAPE) 


Routines  controlling  the  positioning  and  reduction  of  data  from 
the  Landing  Radar  and  the  Rendezvous  Radar. 


Rendezvous  Navigation  (RNAV) 

Programs  using  the  rendezvous  radar  to  update  both  state  vectors 
maintained  in  the  LGC  and  to  update  the  "error  transition  matrix" 
based  on  tracking  of  the  CSM. 


Servicer  (SERV) 

Average-G  navigation  routines  and  other  routines  used  for  burn 
control  and  monitoring. 


Up  and  Down  Telemetry  (TELE) 

Uplink  character  processing  and  computations  performed  for 
periodic  downlink  transmission,  including  a brief  summary  of  the 
information  on  the  downlink. 


Testing  Routines  (TEST) 

Computer  self -test  routines  and  externally  initiated  tests. 
Targeting  - Lambert  (TRGL) 

Burn  targeting  using  the  Lambert  computation  of  velocity-to-be- 
gained. 

Targeting  - External  Delta-V  (TRGX) 

Burn  targeting  for  constant  attitude  btu?ns. 
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Notation  and  Terminology 


Because  of  some  of  the  special  design  features  of  the  Apollo 
Guidance  Computer,  a set  of  special  notation  and  terminology  has  been 
found  useful  in  describing  the  equations  programmed  for  this  computer. 

In  most  cases,  this  notation  and  terminology  follows  that  which  seems 
to  be  employed  by  the  GiSN  contractor,  and  also  follows  that  which  was 
used  in  documents  previously  prepared  on  Block  1 and  Block  2 programs. 

The  following  document  may  be  found  useful  for  supplemental  infor- 
mation on  tbe  symbolic  listing,  and  for  a more  detailed  discussion  of 
the  computer  hardware  and  general  computer  system  control: 

3420.5-27,  "Apollo  Guidance  Program  Symbolic  Listing  Information 
for  Block  2,"  Revision  1,  dated  27  June  1968, 
prepared  under  MTCP  Task  A-90. 

Copies  of  that  document,  together  with  revision  information  as  it  is 
published,  may  be  obtained  from  the  Flight  Software  Branch  of  MSC . 


Numbers 


A.  General 

The  guidance  computer  is  designed  with  a memory  word  length  of 
15  bits  (plus  a sixteenth  bit,  not  sensed  by  the  program,  used  to  achieve 
"odd  parity",  i.e.,  an  odd  number  of  binary  ones  in  the  total  16-bit 
word).  It  is  also  designed  as  a fractional  machine,  so  that  all  numbers 
in  the  computer  are  less  than  one:  "equation  values"  greater  than  1.0 
are  accommodated  by  suitable  scaling,  as  described  below.  Arithmetic 
is  all  one's  complement  except  in  special  instances  where  two's  complement 
is  required  for  hardware  interface  information.  There  is  no  hardware 
floating  point  capability  in  the  computer,  although  a facsimile  to 
floating  point  computations  is  sometimes  used  (and  Identified  as  "quasi- 
floating point")  in  the  program,  particularly  when  the  quantities  involved 
can  have  a large  dynamic  range. 
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The  15-bit  word  is  divided  into  a sign  bit  and  14  magnitude  bits, 
with  the  bits  numbered  from  the  sign  (#15)  to  the  least  significant 
magnitude  bit  (#1)  as  shown; 


Value:  Sign  2"^  2"^  2~^  2~^  2~^  2"^  2"®  2‘^  2"^°  2~^^  2"^®  2~^^ 


Number:  15,  14,  13,  12,  11,  10,  9,  8,  7,  6,  5, 


3 2 


Once  the  stored  value  of  a number  in  the  computer  register  (evaluated  using 
the  bit  weights  shown)  has  been  determined,  its  equation  value  may  be 
determined  by  multiplying  the  stored  value  by  some  power  of  two  which  is 
called  the  "scale  factor": 


The  scale  factor  of  a quantity  is  the  power  of  two  by  which 
the  number  in  the  computer  (considered  as  a fraction  in  the 
range  between  -1  and  +1)  must  be  multiplied  to  obtain  its 
equation  value.  For  convenience,  the  scale  factor  is  shoxm 
as  "Bxx" , where  "xx"  is  some  positive  or  negative  integer. 

For  example,  if  a word  has  a scale  factor  B14,  this  means  that  the  indi- 

14 

vidual  bits  have  a weight  2 (or  16384)  times  the  values  shown  in  the 
above  table.  A counter  in  the  program  with  this  scale  factor,  therefore, 
would  have  its  least  significant  magnitude  bit  (or  least  Increment) 
equal  to  1 (2  x 2^^  =1).  See  Appendix  A of  3420.5-27  for  more 
details . 

In  many  instances,  the  word  length  of  15  bits,  permitting  a number 
to  be  expressed  to  1:±16384  (1  part  in  ±16384),  is  insufficient  to  give 
the  required  precision  in  the  computations.  In  these  instances,  a double 
precision  number  (stored  in  two  consecutive  memory  cells)  is  used. 

Scale  factor  information  for  double  precision  numbers  has  the  same  inter- 
pretation as  for  single  precision  numbers,  and  the  less  significant  half 

-14 

of  the  word  has  weights  that  are  2 times  the  weights  shown  above.  A 

quantity  that  is  double  precision  with  a scale  factor  of  B28,  for  example, 

28 

would  have  a least  significant  bit  of  1 and  a maximum  value  of  (2  - D, 

or  268,435,455.  In  a few  cases  (usually  Involving  time  information), 
triple  precision  quantities  are  required,  which  follow  similar  rules. 
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In  cases  where  It  is  not  reasonably  self-evident,  the  single,  double,  or 
triple  precision  nature  of  the  quantity  is  specified  (by  subscripts  sp, 
dp,  and  tp,  respectively). 

In  addition  to  the  scale  factor  information,  it  is  necessary  to 
know  the  units  in  which  the  quantities  are  expressed.  Times  are  usually 
expressed  in  units  of  "centiseconds"  (0.01  seconds).  The  navigation 
equations  give  a position  output  in  units  of  meters  and  a velocity  output 
in  units  of  meters  per  centisecond.  Angles  are  usually  expressed  in  units 
of  revolutions  (of  360°).  Where  not  reasonably  obvious,  units  on  the 
quantities  are  given. 

Unless  otherwise  specified,  numbers  with  explicit  values  are  quoted 
in  decimal.  A notation  such  as  "lE-5"  means  10  Octal  numbers  are 
indicated  by  a subscript  of  8 (such  as  34g  for  octal  34);  binary  numbers 
have  a subscript  2 (such  as  IIIOO2  for  34g  expressed  in  binary).  The 
quantity  +0  is  OOOOOg;  -0  is  77777g  (in  some  cases,  the  distinction 
is  important,  since  a computer  instruction  can  distinguish  between  them). 


B . Constants 

Fixed  scalar  constants  are  denoted  by  K:xxx,  where  xxx  is  a symbol 
of  arbitrary  type  and  length,  selected  generally  for  similarity  with  the 
program  notation  (capital  letters)  or  for  mnemonic  usefulness  (small 
letters).  A subscript  can  be  used  to  indicate  one  of  several  constants 
stored  in  a table. 

Constants  stored  in  erasable  memory  (so  they  can  be  changed  with- 
out hardware  implications)  are  not  distinguished  from  variables.  Some 
are  set  by  the  fresh  start  or  restart  routines;  some  are  loaded  as  part 
of  the  erasable  load. 

In  a few  cases,  vector  or  matrix  constants  are  employed.  They  are 
so  designated  by  an  underline  or  brackets  as  are  vector  and  matrix 
variables. 
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C.  Variables 


Variables  are  generally  designated  by  several  upper  case  capital 
letters,  sometimes  with  subscripts  (the  symbol  K:  is  reserved  for  constants). 
Lower  case  letters  sometimes  appear  with  the  symbol  for  a variable,  and 
have  the  following  special  meanings: 

d:  A division  indication  appears  as  part  of  the  symbol  in 
the  program  (IdANET  appears  in  the  listing  as  1/ANET). 

i:  A suitable  number  or  capital  letter  is  substituted  as 
defined  in  the  related  equation  information  for  "i” 

(VACiUSE  = VAC3USE  if  i = 3,  etc.) 

m:  A minus  sign  appears  as  part  of  the  symbol  in  the  program 
(mTPER  appears  in  the  listing  as  -TPER). 

p;  A plus  sign  appears  as  part  of  the  symbol  in  the  program 
(pMGA  appears  in  the  listing  as  +MGA). 

An  underline  of  the  first  character  of  a symbol  means  a quantity 
with  several  components,  frequently  a vector  but  sometimes  a quantity 
having  vector-type  properties,  such  as  gyro  compensation  about  different 
axes.  Individual  components  of  a vector  are  identified  by  a subacrlpt 
using  the  same  symbol  as  for  the  vector,  but  without  the  underline; 

TS^,  for  example,  would  be  the  X component  of  the  vector  TS, 


Matrices  are  designated  by  enclosing  their  identification  mnemonics 
in  brackets:  [REFSMMAT]  for  instance.  Interpretive  language  operations 
in  the  guidance  computer  (see  TRW  Working  Paper  3420.5-27)  permit  conven- 
ient manipulations  of  3x3  matrices  whose  elements  are  stored  double 
precision.  Therefore,  larger  matrices  are  handled  nine  elements  at  a time. 
Both  pre-multiplication  and  post-multiplication  of  a vector  by  a matrix 
are  incorporated  (post-multiplication  is  equivalent  to  pre-multiplication 
by  the  transpose).  Elements  of  a 3x3  matrix  are  stored  "first  row,  then 
second  row,  then  third." 
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D.  Addresses 


The  value  of  an  address  is  designated  by  the  symbol  used  in  the 
program,  enclosed  in  quotation  marks:  without  the  quotation  marks,  the 
contents  of  the  cell  with  that  address  would  be  indicated.  In  order  to 
improve  presentation  clarity,  many  of  the  program-step  symbols  are 
omitted  from  the  equations,  and  others  may  not  precisely  correspond  to  the 
program  divisions  actually  located  by  the  symbol  in  questl: n.  It  is 
sometimes  necessary  to  refer  to  a computer  address  as  actually  packed 
into  a 15-bit  word:  for  this,  the  term  "CADR"  (see  3420.5-27)  is  employed 
(erasable  and  fixed  memory  CADR  formats  differ). 

A number  of  subroutines  are  used  within  the  program,  each  of  which 
require  information  on  the  "main"  program  to  which  program  control  must 
be  transferred  at  the  end  of  the  subroutine.  For  clarity  in  showing  the 
computation  flow  performed,  the  retention  of  the  necessary  return  address 
information  is  shown  explicitly  in  a few  places.  The  "return  address" 
is  the  address  to  which  control  is  to  be  transferred  after  completion  of 
the  subroutine;  the  "calling  address"  is  the  address  from  which  transfer 
to  the  subroutine  was  made.  In  many  cases,  the  return  address  is  one 
greater  than  the  calling  address,  but  in  some  instances,  such  as  trans- 
fers to  the  "AIARM"  routine,  the  cell  following  the  calling  address  con- 
tains information  pertinent  to  the  subroutine  (such  as  the  alarm  pattern), 
and  therefore  the  return  address  may  be  several  address  locations  after 
the  calling  address.  To  save  program  steps,  in  some  cases  the  complement 
of  the  address  may  actually  be  used  by  the  program  for  storage  purposes; 
but  this  fact,  since  it  has  no  effect  on  the  computation  flow,  is  not 
indicated  in  the  equations. 
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E . Subscripts 


Subscripts  are  used  for  relative  addressing  or  for  Informational 
purposes.  As  relative  addresses,  they  Index  one  of  several  variables  or 
constants  stored  In  a table  with  only  one  explicit  address.  DSPTEMlj^ 
Indicates  the  cell  after  DSPTEMl , and  DSPTEMI2  Indicates  the  cell  after 
DSPTEMlj^.  Sometimes  the  subscript  contains  the  complete  address  and  any 
arbitrary  erasable  memory  Is  selected  by  the  notation  where  the 

address  of  the  cell  desired  Is  stored  In  ADR.  When  used  for  Informational 
purposes,  the  subscript  does  not  change  the  address  of  the  cell  but  merely 
Indicates  Its  nature.  The  following  subscripts  are  frequently  used: 


sp:  Single  precision 

dp:  Double  precision 

tp:  Triple  precision 

ms.  Is:  More  and  less  significant  halves  of  a double 
precision  number 

X,  y,  z:  First,  second  and  third  components  of  a three- 
dimensional  vector 

2 (with  a number):  Binary 

8 (with  a number):  Octal 

(Numbers  without  a subscript  are  quoted  In  decimal) 


11, 

12, 

13, 

1^, 

15,  ., 

, . . : Elements 
matrix 

of 

the 

first 

row 

of  a 

21, 

22, 

23, 

24, 

25,  ., 

. . . : . Elements 
a matrix 

of 

the 

second 

row 

of 

31, 

32, 

33, 

34, 

35,  ., 

. . . : Elements 
a matrix 

of 

the 

third 

row 

of 

^1, 

^2, 

43, 

44, 

45,  ., 

, Elements 

of 

the 

fourth 

row 

of 

a matrix 


etc . 


Program  Control 


Three  types  of  program  sub-units  occur  within  the  complete  program: 

a)  A subroutine,  which  performs  a certain  function  and  then 
returns  control  to  the  program  sub-unit  which  called  It 
(subroutines,  of  course,  may  have  other  subroutines  within 
them) . 
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b)  A task,  which  is  a short  sequence  of  computations  performed 
based  on  a time  criterion,  or  upon  some  external  signal. 

c)  A job,  which  is  a program  entity  (such  as  targeting  compu- 
tations, steering  computations,  processing  of  a 
keyboard  character,  etc.)  of  long  duration  which  must  be 
done  in  a definite  sequence.  (Accelerometer  data,  for 
example,  must  be  corrected  for  biases  before  navigation 
computations  are  performed,  and  navigation  before  steering 
commands,  so  they  all  form  part  of  the  same  job.) 

Time-dependent  tasks  are  implemented  by  a "waitlist"  system  (see 
section  VITA  of  3420.5-27),  for  which  the  programmer  merely  specifies 
the  time  delay  (from  "now")  when  he  wants  a computation  done,  and  the 
starting  address  of  that  computation.  The  time  delay  has  a least  incre- 
ment of  10  milliseconds.  Unless  interrupts  are  inhibited,  a program 
Interrupt  (which  can  be  caused  by  a signal  from  the  telemetry  system,  the 
uplink,  the  "waitlist"  hardware,  separate  ("T4RUPT")  waitlist-type 
hardware,  a keyboard  input, etc)  causes  suspension  of  a job  and  performance 
of  the  task.  Tasks,  however,  are  not  subject  to  interruption  by  other 
tasks,  but  continue  to  completion.  There  is  also  a hardware  monitoring 
function  which  can  cause  a "program/hardware  restart"  which,  if  necessary, 
could  interrupt  a task:  in  general,  however,  these  should  not  be 
encountered. 

Jobs  are  sequenced  with  the  aid  of  a priority  system  (see  section 
VIIB  of  3420.5-27)  and  are  performed  only  if  no  tasks  must  be  performed. 

If  no  "productive"  computations  are  required,  then  a "dummy  job"  is 
performed,  which  checks  periodically  for  the  availability  of  a job  to  be 
performed,  and  of  course  is  subject  to  interruption  for  a task.  A job 
can  be  "established"  (put  into  a list  to  be  selected  when  its  priority 
is  sufficiently  high)  by  another  job  or  by  a task.  A job  can  be  "put  to 
sleep"  to  wait  for  some  external  event  (such  as  an  uplink  input),  the 
occurrence  of  which  will  "awaken"  the  job.  Jobs  can  optionally  be  assigned 
a set  of  "working  storage"  erasable  memory  cells,  called  a "VAC  area" 

(see  Section  VID  of  3420.5-27). 

A program  "step"  is  a step  in  the  computation  sequence  shown  on  the 
page,  and  should  not  be  confused  with  a line  of  the  program  assembly 
listing. 
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The  following  program-control  terms  are  employed: 

a.  Awaken  a job:  Cause  a job  (if  any)  with  the  indicated 
starting  address  to  be  restored  to  its  original  priority 
after  a period  of  being  "asleep",  during  which  the  per- 
formance of  the  job  was  suspended  by  making  its  priority 
negative. 

b.  Call  "XXX"  in  yy  seconds:  Cause  a task  with  starting 
address  of  "XXX"  to  be  performed  in  yy  seconds  from  the 
present  time  (yy  has  a least  increment  of  10  milliseconds). 

c.  Delay  yy  seconds:  Cause  the  present  string  of  computations 
to  be  suspended  for  yy  seconds,  and  then  restart  at  next 
line.  Delays  to  a Waitlist  Task  are  implemented  by  a 
waitlist  call  to  the  following  step,  and  then  an  end  task; 
delays  for  a job  are  achieved  by  using  the  "DELAY JOB" 
routine . 

d.  End  job:  Terminate  performance  of  the  job,  and  trsinsfer 
control  to  an  executive  routine  to  initiate  performance 

of  the  job  which  has  the  highest  priority  of  those  remain- 
ing. The  "dummy  job"  is  the  only  one  which  is  not  ended  in 
this  fashion. 

e.  End  task:  Terminate  performance  of  the  waitlist-initiated 
task,  and  transfer  control  to  a routine  which  checks  for 
other  waitlist  tasks,  causing  resumption  of  previous  compu- 
tations if  there  are  no  such  tasks. 

f.  Establish  "XXXX":  Enter  the  job  with  starting  address 
"XXXX"  in  the  priority  list  to  be  performed  when  appropri- 
ate (each  job  has  a priority  associated  with  it,  not 
necessarily  shown  in  the  equations).  A job  can  optionally 
be  established  with  or  without  a working  storage  (VAC)  area 
(not  generally  shown  in  the  equations). 

g.  If:  Carry  out  the  indicated  manipulations  provided  the 
indicated  conditions  are  satisfied.  The  "indicated  manipula- 
tions" are  "indicated"  by  being  indented,  if  the  "If" 
statement  is  followed  by  a colon,  or  by  being  on  the  same 
line  as  an  "If"  statement  followed  by  a comma.  Should  the 
conditions  not  be  satisfied  or  after  performing  "indicated 
manipulations"  that  do  not  end  with  a "Proceed  to...", 
continue  on  in  sequence  at  the  next  non-indented  line. 

h.  Perform  "XXXX":  Cause  a subroutine  with  starting  address 
"XXXX"  to  be  entered.  The  specific  memory  cell  to  which  the 
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subroutine  returns  control  depends  in  some  cases  on  the 
purpose  of  the  routine,  but  generally  is  the  step  after 
the  "Perform"  instruction. 

i.  Proceed  to  "XXXX":  Cause  the  program  step  with  address 
"XXXX"  to  be  the  next  one  to  be  performed,  and  continue 
the  performance  of  the  program  from  that  point. 

j . Proceed  to  XXXX:  Cause  the  program  step  whose  address  is 
stored  iji  cell  XXXX  to  be  the  next  one  performed,  and 
continue  the  performance  of  the  program  from  that  point. 

k.  Put  to  sleep:  Cause  the  present  job's  computations  to  be 
suspended  (by  making  its  priority  negative;  until  some 
event  tsikes  place  causing  the  job  to  be  "awakened." 

Differs  from  End  job  and  Establishing  a job  in  that  the 
VAC  area  and  Job  Register  Set  are  retained.  When  a job 
is  put  to  sleep,  a starting  address  identification  is 
proceeded  for  use  in  awakening  the  job  (and  also  to  specify 
the  starting  point  for  the  job  when  it  is  performed). 

l.  Resume:  Resme  computations  which  were  interrupted  to 
perform  the  task  (used  for  tasks  not  initiated  through 
waitlist  means,  cf.  End  task). 

m.  Return  (or  "Return  via  XXX"  where  the  retiirn  address  has 
been  stored  in  XXX ) : Return  to  the  subroutine's  calling 
program  (which  in  some  cases  could  have  been  either  a 
task  or  a job). 

n.  When  no  transfer  instruction  occurs  at  the  end  of  a 
routine,  computations  continue  down  the  page  through 
subsequent  routine  or  routines. 

In  addition  to  the  above  terms,  a special  notation  is  used  with 
display  Interface  routines: 

Proceed  to  "GOFLASH" 

(If  terminate,  ...;  if  proceed,  ...;  if  other  response. 


or 

Perform  "GOFLASHR" 

(if  terminate,  ...;  if  proceed,  ...;  if  other  response, 
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X = I 


End  job 

In  the  first  case,  control  is  transferred  to  the  display  interface 
routine  and  the  program  is  terminated  until  the  astronaut  responds. 

In  the  second  case,  a display  interface  routine  is  established  and 
the  subsequent  steps  (X  = Y)  are  executed  before  the  astronaut 
responds  to  the  display  (usually).  The  four  possible  astronaut 
responses  that  are  recognized  are:  "Terminate"  via  verb  34;  "Proceed" 
via  verb  33  or  the  proceed  button;  "Resequence"  via  verb  32;  and 
"Enter"  by  pushing  the  enter  button  in  response  to  a "please  perform" 
type  verb  or  after  loading  data  via  one  of  the  load  verbs.  The  last 
two  types  of  response  will  initiate  the  "if  other  response"  branch. 

A capability  also  exists  to  "kill"  a task  that  has  been  inserted 
in  the  "waitlist"  but  has  not  yet  been  executed.  It  is  simply  removed 
from  the  waitlist. 
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Operations 


Several  mathematical  manipulations  are  available  to  the  programmer 
and  are  indicated  either  by  special  characters  or  by  lower  case  symbols. 

The  trigonometric,  logarithm  and  square  root  functions  are  described 
in  the  MATX  section, 

1 ) Standard  Arithmetic  Operations 
+ ; plus 

- : minus 

; (blank)  multiplyi  scalar  by  scalar,  vector  by  scalar,  etc. 
/ : divide;  scalar  by  scalar;  vector  by  scalar 
|A|;  Magnitude  of  scalar  (absolute  value) 

|A|;  Magnitude  of  vector  (length) 

2)  Special  scalar  operations  (see  MATX  section) 


arccosA 

arcslnA 

arcsln  A 
sp 

cos  A 

cos  A 
sp 

sinA 

sin  A 
sp 

InA 


square  root 

double  precision  arc  cosine  of  A 
double  precision  arc  sine  of  A 
single  precision  arc  sine  of  A 
double  precision  cosine  of  A 
single  precision  cosine  of  A 
double  precision  sine  of  A 
single  precision  sine  of  A 
natural  logarithm  of  A 


3)  Vector  operations 

* (4  * S)  - vector  cross  product 

* (4  * 1.)  • vector  dot  product 
2 

4 s square  of  length  of  A 

[a]  B or  B [aJ^  ; premultiply  the  vector  B by  the  matrix 
[a] (3x3;  interpretive  Instruction  MXV). 
The  X component  of  the  answer  is  equal 
to  the  dot  product  of  the  first  row 
of  [a]  with  B,  etc. 
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X 

B [a]  or  [a]  B : post  multiply  the  vector  B by  the  matrix  [a] 

(3  X 3,  interpretive  instruction  VXM).  The 
X component  of  the  answer  is  equal  to  the 
dot  product  of  the  first  column  of  [a]  with 
B,  etc. 


4)  Bit  operations 

Switch  bit  a of  B to  1 or  0: 

Set  bit  a of  A = bit  b of  B; 

Invert  bit  a of  B; 


Set  or  reset  bit  a of  erasable  memory 
register  B 

Set  or  reset  bit  a of  erasable  memory 
register  A according  to  whether 
bit  b of  B is  set  or  reset. 

Set  bit  a of  A = the  complement  of 
bit  a of  A. 


A (A  AB):  Bit  by  bit  logical  product.  If  a given  bit  in  both 

A and  B is  a binary  1,  then  the  result  is  a binary  1; 
otherwise,  the  result  is  a binary  0. 

~ (B):  Bit  by  bit  complement  of  B. 


5)  cycle:  Shift  in  a cyclic  fashion,  with  bits  "spilling  out"  of 
one  end  of  the  register  appearing  at  the  other  end. 

For  example,  bit  14  cycled  left  2 places,  since  the 
word  length  of  the  computer  is  15  bits  for  data,  becomes 
bit  1,  as  does  the  same  bit  cycled  right  13  places  (or, 
in  this  case,  shifted  right  13  places). 


6)  limit:  Cause  the  maximum  value  (usually  K:posmax)  to  be  stored 

if  the  quantity  of  its  computed  value  exceeds  that  maximum. 
(Unless  otherwise  specified,  the  magnitude  is  limited, 
with  sign  information  preserved;  frequently  done  by 
means  of  a check  for  overflow.) 


7)  modulo:  Form  a quantity,  for  A modulo  B,  equivalent  to  the 
value  of  B times  the  remainder  from  (A/B).  For 
example,  380°  modulo  one  revolution  is  20  . 


8)  overflow:  Exceed  the  capacity  of  the  computer  register  (i.e. 

the  maximum  value  of  the  number  allowed  by  its 
scaling).  The  interpretive  language  (section  VI  of 
3420.5-27)  has  a special  cell  which  is  set  if  such 
an  overflow  is  encountered,  and  which  may  be  sensed 
to  cause  program  branching.  The  divide  instruction 
in  the  Interpretive  language,  if  the  numerator 
exceeds  the  denominator  (using  the  numbers  in  the 
computer  register),  sets  the  answer  to  the  maximum 
capacity  of  the  computer  register  with  the  proper 
sign. 
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9)  quasi-floating  point:  Carry  out  a computation  (usually 

involving  a division)  by,  in  general, 
normalizing  both  numerator  and  denominator 
before  performing  the  division  (with 
suitable  provisions  to  avoid  division 
overflow),  and  then  shifting  the  result 
the  appropriate  number  of  places.  Norma- 
lization Involves  shifting  a number  so 
that  there  are  no  leading  magnitude  zeroes, 
and  counting  the  number  of  shifts  required. 

10)  set  A = B and  B = A:  Exchange  the  contents  of  "A"  and  "B" 

11)  slgnA:  Complement  the  accumulator  if  A is  negative;  otherwise, 

leave  the  accumulator  alone.  Unless  otherwise  specified, 
if  A = 0 the  accumulator  is  also  left  alone,  i.e.  0 is  a 
"positive"  number). 

12)  shift:  Shift  in  a non-cyclic  fashion,  with  exclusion  of  the 

sign  bit:  bits  "spilling  out"  of  the  least  significant 
end  of  the  register  (for  shifting  right)  are  lost. 

Cf . "cycle".  Vacated  bits  are  set  to  sign  bit. 

13)  sign  agreement:  Force  the  signs  of  the  various  parts  of  a 

multiple-precision  word  to  be  the  same. 

1^)  unit(A  + B ) : Form  or  use  a unit  vector  from  the  vector  infor- 
mation specified.  The  scale  factor  of  the  unit 
vector  when  formed  is  Bl.  The  magnitude  of  the 
vector  is  left  in  push-down  list  address  36D  and 
its  square  in  34D.  Operation  "overflows"  if 
magnitude  of  vector  (before  forming  unit)  is 
less  than  2"^^  as  stored  in  computer  register: 
if  a cross  product  of  2 unit  vectors  involved, 
this  would  be  a "true  value"  of  2“1^,  or  about 
0.002  mr. 

15)  A = (a^^ , a2 , ^3)*  Form  a vector  with  x,  y,  and  z components  = 

a , a2  and  ^3  * 

16)  B = (b^ , b2):  Form  a double  precision  number  B with  more 

significant  half  = b^^ , less  significant  half  = b2« 

17)  The  difference  between  two  angles  expressed  in  two's  complement 
form  can  be  performed  by  a special  instruction  to  produce  a 
result  in  one's  complement  form. 
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Ma.ior  Variables 
(and  constants) 


The  following  quantities  are  used  at  several  points  in  the  program; 
a general  knowledge  of  their  significance  will  be  valuable  in  any 
effort  to  understand  the  program. 


CADRFLSH^  (i=0,l,2),  CADRSTOR,  DSPLIST:  Single  precision  address 
storage  registers  in  the  display  interface  routines.  Three 
internally  generated  displays  can  be  handled  by  the  display 
interface  routines  at  any  one  time,  one  "priority"  display,  one 
"mark/extended  verb"  display  and  one  "normal"  display.  The 
addresses  of  the  routines  requesting  these  displays  are  stored  in 
CADRFLSHq,  CADRFLSHj^  and  CADRFLSH2  respectively.  If  the  active 
display  rinds  that  the  astronaut  is  using  the  DSKY  (Display  and 
Keyboard  Assembly),  it  is  put  to  sleep  and  its  address  stored  in 
DSPLIST  \mtil  the  astronaut  releases  the  DSKY.  If  the  active 
display  requires  astronaut  response,  it  is  put  to  sleep  and  its 
address  stored  in  CADRSTOR  until  the  response  is  received. 


rou  (CDU  , CDU  , CDU  ):  LGC  input  counters  incremented  directly  from 
the  cSuplin^’Data^Unit  to  maintain  ICC  knowledge  of  the  position 
of  the  outer,  inner  and  middle  gimbal  angles  of  the  Inertial 
Measurement  Unit.  These  counters  are  coupled  directly  to  the 
"Read  Counters"  in  the  three  ICDU  channels  of  the  CDU,  and  the 
two  counters  associated  with  each  gimbal  angle  are  incremented 
simultaneously.  In  order  to  synchronize  the  LGC  counters  with 
the  Read  Counters,  the  LGC  counters  must  be  set  to  zero  vdiile 
the  ICDU  Read  Counters  are  maintained  at  zero  by  setting  bit  5 
of  channel  12.  The  gimbal  angle  data  thus  maintained  is  scaled 
B“1  in  units  of  revolutions  (one  least  increment  is  equivalent 
to  2"’^^  revolution)  and  is  in  two's  complement  form. 

The  manipulation  of  two's  complement  numbers  in  the  LGC  maintains 
a periodic  regularity  by  propagating  an  overflow  bit  into  the 
sign  bit.  In  the  case  of  angles  scaled  B-1  in  units  of  revolutions, 
the  overflow  bit  represents  one-half  of  a revolution  (180  degrees), 
and  angular  sums  over  one  half  of  a revolution  in  magnitude  are 
"automatically"  adjusted  to  lie  within  the  range  ^ angle  ^ i. 
For  example:  0.35  + 0.42  = -0.23  (126.0"  + 151.2"  = -82.8*’). 


CDU  , CDU.  : LGC  input  counters  incremented  directly  from  the 

^Coupling  Data  Unit  to  maintain  LGC  knowledge  of  the  Rendezvous 
Radar  shaft  and  trunnion  angles.  These  coiinters  are  coupled  to 
the  Read  Counters  in  the  two  RRCDU  channels  of  the  CDU  and  are 
exactly  like  the  CDU-linked  counters  described  above.  The  RRCDU 
Read  Counters  are  zeroed  by  bit  1 of  channel  12. 
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OTUD:  Single  precision  vector  containing  the  latest  specification 
of  desired  IMQ  gimbal  angles  for  the  Digital  Autopilot,  scaled 
B-1  in  units  of  revolutions  and  stored  in  two's  complement  form. 
See  the  description  of  LGC  two's  complement  included  with  the 
definition  of  CDU. 

Channels:  Fifteen  bit  interface  registers  for  input  and  output  of 
discrete  information.  See  TRW  Working  Paper  3420.5-2?  for  more 
precise  and  complete  information.  Channels  5,6,11-16  and  30-33 
are  described  in  the  section  entitled  "Channels,  Flagwords  and 
Other  Discrete  Infonnation  Registers." 

1,2:  Identical  to  A and  Q registers;  see  MATX  section. 

3,4:  Standby  Clock;  continues  to  covmt  when  the  LGC  is  put  into 
standby  mode  (see  "P06"). 

?:  Bits  15-8  and  4-1  have  no  function;  bits  7-5  are  the  fixed- 
memory  address  extension  bits  (SUPERBNK);  see  MATX  section. 

10:  Channel  used  by  "T4RUPT"  to  set  the  relays  in  the  DSKY; 
bits  15-12  contain  the  relay  address;  bits  11-1  contain  the 
desired  setting.  Called  OUTO  in  the  programs;  see  INTR  section. 

34,35:  Two  channels  loaded  with  information  to  be  telemetered 
by  the  downlink;  see  TELE  section. 


DELCDU:  Single  precision  vector  subtracted  from  OTUD  every  100 
milliseconds  to  control  the  rate  during  an  automatic  attitude 
maneuver,  scaled  B-1  in  units  of  revolutions  and  stored  in 
two's  complement  form.  See  the  description  of  IGC  two's  com- 
plement included  with  the  definition  of  CDU. 

D^ELV:  Double  precision  sensed-change-in-velocity  vector,  scaled 
B14  in  units  of  centimeters  per  second  and  expressed  in  stable 
member  (IMU)  coordinates.  (One  pulse  from  the  accelerometer 
is  equivalent  to  one  centimeter  per  second;  D^V  is  loaded 
directly  from  the  accelerometers.) 

DISPDEX:  Single  precision  index  controlling  the  periodic  and  other- 
wise independent  display  (by  "CLOKTASK")  of  burn  parameters. 

See  BURN  section. 

DNLSTCOD;  Single  precision  index  (range  0-5)  indicating  which  of  the 
downlists  is  to  be  telemetered,  scaled  B14  and  unitless.  Loaded 
by  various  programs  to  select  the  proper  downlist.  See  K:DNTABLE 
in  TELE  section. 
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DSPTAB.  (i=0-10):  Computer  storage  for  the  DSKY  Illumination  relay 
set^^ings,  complemented  when  they  are  changed  to  signal  to  the 
"T4RUPT"  routine  that  the  relays  are  to  be  re-set  as  soon  as 
possible.  A numerical  record  of  vrfiat  is  displayed  via  DSPTAB^q  „ - 
is  maintained  in  MODREG,  VERKIEG  and  NOUNEEG.  The  contents  or 
XREG,  YRBG  and  ZREG  do  not  necessarily  reflect  what  is  currently 
being  displayed  via  DSPTABy_Q.  See  DSKY  and  DATA  sections. 

DSPTABj . : Single  precision  flagword  whose  bits  designate  relays 
to  be  set  to  illimiinate  lamps  on  the  DSKY.  Bit  9 lights  the 
"program  alarm"  (PROG)  lamp  'kdien  set;  bit  8 lights  the  "tracker 
fail"  (TRACKER)  lamp  ^en  set;  bit  6 lights  the  "gimbal  lock 
warning"  (GIMBAL  LOCK)  lamp  vdien  set;  bit  5 lights  the  "LA  attitude 
fail"  lamp  when  set;  bit  4 lights  the  "no  attitude"  (NO  ATT) 
lamp  when  set  (via  "TARNPT");  bit  3 lights  the  "LR  velocity  fail" 
lamp  when  set. 

^ADR'  Notation  used  to  denote  any  cell  in  erasable  memory  whose 
^^address  is  stored  in  the  quantity  used  as  the  subscript  (here 
denoted  by  ADR).  If  access  is  required  to  an  E-memory  cell  in 
a switched  bank  other  than  that  in  -which  the  program  is  oper- 
ating, the  EBANK  register  must  be  re-set  first. 

FLAGWRDO-11:  Single  precision  registers  whose  bits  are  used  indi- 
vidually for  storage  of  on-off/yes-no  type  information.  The 
flagwords  are  described  in  the  section  entitled  "Channels, 

Flagwoixis  and  Other  Discrete  Information  Registers"  and 
references  to  the  flagwords  are  listed  in  the  section  entitled 
"List  of  References  to  Flagwords  and  Channels." 

i,  J,  k,  n,  p,  s,  t,  v:  Letters  used  to  denote  various  temporary 
storage  cells  in  the  programs,  usually  indexes  scaled  B14  and 
imitless . 


K:dvtoacc:  Constant  implicit  in  the  2 second  navigation  cycle, 
scaled  B-1  in  units  of  seconds  to  the  minus  one  power.  Equation 
value:  i.  If  the  navigation  cycle  is  changed  to  something 
other  than  2 seconds,  this  constant  will  have  to  be  changed  to 
an  explicit  one  wherever  it  appears. 


K:posmaxsp,  Kiposmaxdp:  Notation  for  the  maximum  positive  value 
that  can  be  stored  in  a single  or  double  precision  LGC  register. 
The  stored  value  of 

The  equation 

scale  factor  of  the  variable  involved.  If  B is  the  scale  factor, 
the  equation  values  are: 


the  constants  is  37777g  and  37777q  37777g 
respectively.  The  equation  value  of  each  is  determined  by  the 


■Q  ^*1  I 

K:posmaxsp  =2  (1  - 2 ^) 

R — Pft 

K:posmaxdp  =2  (1-2  ) 
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K:VxxNxx:  Single  precision  constant  verb-noun  code.  The  two-digit 
decimal  no\m  n\:i^er  is  stored  in  bits  1-7  of  the  constant;  the 
two-digit  decimal  verb  nijmber  is  stored  in  bits  8-14. 

MPAC.  (i=0-7):  Multiple  precision  accxmnilator  and  storage  used 
by  jobs  coded  in  interpretive  language  (via  the  interpretive 
decoder)  and  sometimes  by  jobs  coded  in  basic  language.  A 
set  of  eight  single  precision  cells  associated  with  each  job 
and  used  exclusively  by  that  job.  When  a job  is  put  to  sleep 
or  is  interrupted  by  a job  of  higher  priority,  MPACg-MPAC„  are 
saved  as  part  of  the  "job  core"  reserved  for  that  job,  ana  they 
are  re-set  exactly  as  they  were  when  the  interrupted  job  is  re- 
established. 

MUDE3C,  PBODY:  Single  precision  indexes  used  to  differentiate  between 
constants  and  program  branches  that  differ  according  to  vdiether 
the  center  of  attraction  is  the  earth  (.0)  or  the  moon  (8  and  2 
respectively) . See  CONG  section  and  ORBI  »«ctlon  respectively. 


PRIOTIME:  Single  precision  time  when  a priority  display  is  activated, 
used  to  enforce  the  two  second  delay  before  the  response  to  a 
priority  display  is  accepted  (to  avoid  the  problem  of  a response 
to  a just  interrupted  normal  display  being  interpreted  as  the 
response  to  the  priority  display.)  See  DINT  section. 

^TT,  VATT,  TAT:  State  vector  output  from  orbital  integration 

with  constant  scaling  (B29,  B7,  B28)  or  variable  scaling  (RATTl, 
VATTl,  tat)  in  units  of  meters,  meters  per  centisecond,  and 
centiseconds. 

RCVCSM,  RCVLEM:  The  permanent  state  vectors  for  the  GSM  and  LM 
contain  six  double  precision  vectors  and  three  double  precision 
scalars.  They  are  listed  below  along  with  the  name  of  the 
equivalent  variable  used  in  the  precision  integration  of  each. 


LM 

GSM 

Integration 

RGVLEM 

RCVGSM 

RGV 

VGVLEM 

VGVGSM 

VGV 

TGLEM 

TGCSM 

TG 

DELTALEM 

DELTAGSM 

TDELTAV 

NUVTiKM 

NUVCSM 

TOUV 

TETLEM 

TETGSM 

TET 

RRECTLEM 

RRECTCSM 

RRECT 

VREGTLEM 

VRECTGSM 

VRECT 

XKEPLEM 

XKEPGSM 

XPREV 
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[rEFSMMA.'^  : Double  precision,  3x3  transformation  matrix,  scaled  B1 
and  unitless.  Defined  such  that  Asm  = [REFSMMAT]  Arf  where  A is 
a vector  expressed  in  stable  member  and  reference  coordinates 
respectively.  (Other  transformation  matrices  are  not  continuously 
maintained  but  only  generated  when  needed . ) 

roi,  VN,  PIPTIME,  R-OTHER,  V-OTHER,  TETCSM:  Double  precision  vectors 
describing  the  navigation  state  of  the  121  and  GSM  respectively, 
scaled  nominally  (B29,  B7,  B28). 


TDECl:  Double  precision  time  input  to  orbital  integration  routines 
(GET)  specifying  the  endpoint  of  the  integration,  scaled  B28  in 
units  of  centiseconds.  (Only  input  necessary  if  the  permanent 
state  vector  is  used  as  the  origin. ) 

TEPHEM:  Triple  precision  elapsed  time  from  July  1.0  1968  to  the 
time  when  the  LGC  clock  (TIMENOW)  is  zeroed,  for  use  in 
calculation  of  ephemeridep;  scaled  BA2  in  units  of  centiseconds 
and  included  in  the  pre-launch  erasable  load. 

THETAD:  Single  precision  vector  containing  the  final  desired  gimbal 
angles  that  define  a desired  orientation  of  the  spacecraft  with 
respect  to  the  Inertial  Measurement  Unit  (IMU)  for  large  attitude 
maneuvers  or  IMU  alignment;  scaled  B-1  in  units  of  revolutions 
and  stored  in  two ' s complement  form.  See  the  description  of  LGC 
two's  complement  included  with  the  definition  of  OTU. 

TIG;  Double  precision  time  of  ignition  (or  predicted  cutoff  time, 
once  the  engine  has  been  ignited)  input  to  the  bum  programs 
from  the  targeting  programs.  The  parameters  required  of  the 
targeting  programs  by  the  bum  programs  (in  addition  to  the 
LM  state  and  mass  estimate,  which  are  ass^imed  always  available) 
are: 

External  Delta-V  Lambert  Targetted 

(XDELVFLG  = l)  (XDELVFLG  = 0) 


TIG 

piG 

VTIG 

DELVSIN 

DELVSAB 


TIG 

PARG 

TPASS4 

NORMSW  (FL7,  bit  10) 
MUDEX 


TIME3,  TIME4,  TIME5,  TIME6:  LGC  clocks  in  addition  to  TIMENOW  which 
are  used  to  control  intermpts  of  one  kind  or  another.  See 
INTR  section. 


TIMENOW:  Double  precision  computer  clock,  incremented  every  centi- 
second  (one  hundredth  of  a second)  by  the  LGC  oscillator;  scaled 
B28  in  units  of  centiseconds. 
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TS  (and  various  transmutations  such  as  TSl,  TSnoun  TS^2>  ^vec): 

Real  or  dummy  temporary  storage  cells  used  for  convenience  in 
describing  the  performance  of  the  equations . When  used  as  a 
communication  cell  between  routines,  TS  generally  represents 
what  the  program  transfers  via  the  accumulator. 

VGPREV:  Double  precision  previous  value  of  velocity-to-be-gained 
vector,  program  notation  also  "VGTIG, " scaled  B?  in  units  of 
meters  per  centisecond. 

UPSVFLAG:  Single  precision  flag  loaded  with  a state  vector  update 
(address  of  UPSVFLAG  is  just  before  that  of  KIECT)  to  indicate 
whether  the  update  is  for  the  LM  or  GSM  state  and  whether  it 
is  in  moon-centered  or  earth-centered  reference  coordinates. 

See  ORBI  section. 

]^C,  XSM,  ^CD,  etc.:  Double  precision  unit  vectors  in  the  directions 
of  the  X spacecraft  axis,  the  X stable  member  axis,  the  desired 
X spacecraft  axis,  etc.  Such  unit  vectors  are  always  scaled  B1 
and  unitless,  but  they  may  be  expressed  in  various  coordinate 
systems.  An  effort  has  been  made  to  indicate  the  coordinate 
system  in  cases  where  it  was  not  immediately  obvious  by  adding 
small  letters  (sc,  sm,  rf)  to  the  tag;  the  notations  YSCsm, 

YSCsc,  and  YSC  all  represent  the  same  cell  - the  indication 
of  coordinate  system  is  purely  explanatory. 
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Erasable  Memory  Initialization 


The  quantities  listed  below  constitute  the  "erasable  memory  load" 
which  supplements  the  initialization  performed  by  verb  36  (fresh  start 
routine  "SLAPl")  in  order  to  prepare  the  LGC  erasable  memory  for  the 
beginning  of  the  mission.  The  list  shows  the  absolute  address  of  each 
quantity  in  the  list  (single,  double  or  triple  precision)  in  ECADR  form 
(EBANK  in  bits  11-9;  address  = lAOOg  + bits  8-1);  the  tag  assigned  to 
that  address  by  this  document;  the  tag  assigned  to  that  address  by  the 
LUMINARY  program  if  it  differs  from  that  used  in  this  document;  the 
scale  factor  and  the  units  which  the  program  assumes  when  handling  each 
quantity;  and  the  section  of  this  document  in  which  the  quantity  is 
defined. 


Following  this  alphabetical  list  are  the  erasable  memory  quantities 


listed 

in  order  of  increasing  ECADR. 

ECADR 

Tae  (alternate  tae) 

Scale 

Units 

Section 

02566 

02567 

ABTRDOT 

B7 

meters/centisecond 

ASCT 

01463 

ADIAX 

B-5 

gyro  pulses/cm 

per 

sec^ 

IMUC 

01464 

ADIAY 

B-5 

gyro  pulses/cm 

per 

sec^ 

IMUC 

01465 

ADIAZ 

B-5 

gyro  pulses/cm 

per 

sec2 

IMUC 

01466 

ADS RAX 

B-5 

gyro  pulses/cm 

per 

sec^ 

IMUC 

01467 

ADSRAY 

B-5 

gyro  pulses/cm 

per 

sec^ 

IMUC 

01470 

ADSRAZ 

B-5 

gyro  pulses/cm 

per 

sec^ 

IMUC 

(Because  one  gyro  pulse  is  equivalent  to  2“^^  revolutions, 
the  above  six  quantities  could  also  be  assumed  to  be  scaled 

B-26  in  units  of  revolutions . ) 

02020 

02021 

AGSK 

B28 

centiseconds 

EXVB 

03404 

AOTAZi 

(AOTAZ) 

B-1 

revolutions  (2' 

's  comp) 

ALIN 

03405 

AOTAZ2 

(AOTAZ+1) 

B-1 

revolutions  (2' 

' s comp) 

ALIN 

03406 

AOTAZ3 

(AOTAZ+2) 

B-1 

revolutions  (2' 

's  comp) 

ALIN 

03407 

AOTAZi 

-r 

(AOTAZ+3) 

B-1 

revolutions  (2' 

's  comp) 

ALIN 
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EG.\DR 

Tag  (alternate  tag) 

Scale 

Units 

Section 

03410 

AOTAZ5  (AOTAZ+4) 

B-1 

revolutions  (2 

' s 

comp) 

ALIN 

03411 

AOTAZ5  (AOTAZ+5) 

B~1 

revolutions  (2 

's 

comp) 

ALIN 

03412 

AOTELj  (AOTEL) 

B-1 

revolutions  (2 

' s 

comp) 

ALIN 

03413 

AOTEL2  (AOTEL+1) 

B-1 

revolutions  (2 

' s 

comp) 

ALIN 

03414 

AOTEL3  (AOTEL+2) 

B-1 

revolutions  ( 2 

' s 

comp) 

ALIN 

03415 

AOTEL4  (AOTEL+3) 

B-1 

revolutions  (2 

' 3 

comp) 

ALIN 

03416 

AOTEL5  (AOTEL+4) 

B-1 

revolutions  ( 2 

's 

comp) 

ALIN 

03417 

A0TEL6  (AOTEL+5) 

B-1 

revolutions  (2 

' s 

comp) 

ALIN 

(2' 3 comp  indicates  that  these  quantities  are  stored  in 
two's  complement  form,  not  the  usual  one's  complement  form) 

03400 

03401 

ATIGINC 

B28 

centiseconds 

THGL 

01711 

01712 

AZO 

BO 

revolutions 

COOR 

02570 

02571 

COSTHETl 

B-8 

meters/centisecond^ 

ASCT 

02572 

02573 

C0STHET2 

B2 

unitless 

ASCT 

01327 

CSMMASS 

B16 

kilograms 

DAPB 

02520 

02521 

DELQFIX 

B24 

meters 

SERF 

03425 

DELTTFAP 

B17 

centiseconds 

DESC 

02474 

02475 

DESIGNRX  (RIGNX) 

B24 

meters 

DESC 

02476 

02477 

DESIGNRZ  (RIGNZ) 

B24 

meters 

DESC 

02472 

02473 

DESIGNV  (VIGN) 

BIO 

meters/ centisecond 

DESC 
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ECADR 

Tag  (alternate  tag) 

Scale 

Units 

Section 

02504 

02505 

DESKIGNV  (KIGNV/B4) 

B18 

centiseconds 

DESC 

02500 

02501 

DESKIGNX  (KIGNX/B4) 

B4 

unities s 

DESC 

02502 

02503 

DESKIGNY  (KIGNY/B8) 

B-16 

meters"^ 

DESC 

03011 

DKD3 

B15 

revolutions"^ 

DAPB  ^ 

03005 

DKKA03N 

BI4 

unitless 

DAPA 

03004 

DXOMEGAN 

BI4 

unitless 

DAPA 

03003 

DKTRAP 

B-3 

revolutions/ second 

DAPA 

02634 

thru 

02641 

BLAND 

B24 

meters 

DESC 

03113 

DOWNTORKo  (POSTORKP) 

B5 

seconds 

DAPA 

03114 

DOWNTORKi  (NEGTORKP) 

B5 

seconds 

DAPA 

03115 

DOWNTORK2  (POSTORKU) 

B5 

seconds 

DAPA 

03116 

DOWNTORK3  (NEGTORKU) 

B5 

seconds 

DAPA 

03117 

DOWNTORK^  (POSTORKV) 

B5 

seconds 

DAPA 

03120 

DOWNTORK5  (NEGT0RK7) 

B5 

seconds 

DAPA 

01350 

E32C31RM 

B80 

meters^/ centisecond^ 

ORBI 

01 347 

E3J22R2M 

B58 

meters^/centisecond^ 

ORBI 

02432 

02433 

GAINo  (GAINBRAK) 

BO 

unitless 

DESC 

02466 

02467 

GAIN2g  (GAINAPPR) 

BO 

unities 3 

DESC 

03000 

HIASCENT 

B16 

kilograms 

DAPB  ^ 

02507 

HIGHCRIT 

BI4 

DPS  throttle  pulses 

DESC 

03012 

IGNAOSQ 

B-2 

revolutions/second^ 

BURN 

03013 

IGNAOSR 

B-2 

revolutions/second^ 

BURN 
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ECADR 

Tae  (alternate  tae) 

Scale 

Units 

Section 

02550 

02551 

JIPARM 

B23 

meters 

ASCT 

02552 

02553 

KIP ARM 

B23 

meters/revolution 

ASCT 

02554 

02555 

J2PARM 

B23 

meters 

ASCT 

02556 

02557 

K2PARM 

B23 

meters/ revolution 

ASCT 

* See  note  on  page 

ASCT-1 4 , 

02542 

02543 

LAGdTAU  (LAG/TAU) 

BO 

unitless 

DESC 

03426 

LEADTIME 

B17 

centiseconds 

DESC 

01326 

LEMMAS S 

B16 

kilograms 

DAPB 

02012 

thru 

02017 

LM504  (504LM) 

BO 

radians 

COOR 

03010 

LMKAOSN 

BI4 

unitless 

DAPA 

03007 

LMOMEGAN 

BI4 

unitless 

DAPA 

03006 

LMTRAP 

B-3 

revolutions /second 

DAPA 

02506 

LOWCRIT 

BI4 

DPS  throttle  pulses 

DESC 

02522 

LRALPHAi  (LRALPHA) 

B-1 

revolutions  (2's  comp) 

SERV 

02524 

LRALPHA2  (LRALPHA2) 

B-1 

revolutions  (2's  comp) 

SERV 

02523 

LRBETAi  (LRBETAl) 

B-1 

revolutions  (2's  comp) 

SERV 

02525 

LRBETA2  (LRBETA2) 

B-1 

revolutions  (2's  comp) 

SEEJ 

03420 

LRHMAX 

BI4 

meters 

SERV 
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ECADR 

Tag  (alternate  tag) 

Scale 

Units 

Section 

02527 

LWF 

B7 

meters/ centisecond 

SEW 

02526 

LRVMAX 

B7 

meters/ centisecond 

SERF 

03421 

LRWH 

BO 

tinitless 

SERF 

02530 

LR;^^Vo  (LRWVZ) 

BO 

unitless 

SERF 

02531 

LRWVj  (LRWVY) 

BO 

unities s 

SERF 

02532 

LRWV2  (LRWVX) 

BO 

unitless 

SERF 

02533 

LRWVFq  (lrwvfz) 

BO 

unitless 

SERF 

02534 

LRWVF3_  (LRWVFY) 

BO 

unitless 

SERF 

02535 

LRWVF2  (LRWVFX) 

BO 

unitless 

SERF 

02536 

LRWVFF 

BO 

unitless 

SERF 

01243 

01244 

MASS 

B16 

kilograms 

SERF 

DAP3 

02546 

02547 

MAXFORCE 

B12 

kg  meters/centisecond^ 

DESC 

02544 

02545 

MINFORCE 

B12 

kg  meters/centisecond^ 

DESC 

01460 

NBDX 

B-5 

gyro  pulses/centisecond  IMUC 

01461 

NBDY 

B-5 

gyro  pulses/centisecond  IMUC 

01462 

NBDZ 

B-5 

gyro  pulses/centisecond  IMUC 

(B-5  gyro  pulses/cs 

equivalent 

to  B-26  revolutions/cs) 

01452 

PIPABIAS^  (PBIASX) 

B-3 

PIPA  counts/centisecond 

IMUC 

01453 

PIPASCF^  (PIPASCFX) 

B-9 

unitless 

IMUC 

0U54 

PIPABIASy  (PBIASY) 

B-3 

PIPA  counts/centisecond 

IMUC 

01455 

PIPASCFy  (PIPASCFY) 

B-9 

unitless 

IMUC 

01456 

PIPABIASz  (PBIASZ) 

B-3 

PIPA  coiunts/centisecond 

IMUC 
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ECADR 

Tae  (alternate  tae) 

Scale 

Units 

Section 

01457 

PIPASCF^  (PIPASCFZ) 

B-9 

unities s 

IMUC 

03002 

PITTIME 

B14 

centiseconds 

DAPB 

03402 

03403 

PTIGINC 

B28 

centiseconds 

TRGL 

1 01351 

1 01352 

RADSKAL 

B21 

LR  low  scale  altitude 
bit s/met er/c s 

SEEV 

1 02562 

1 02563 

RAMIN 

B24 

meters 

ASCT 

01770 

01771 

RANGEVAR 

B-12 

unitless 

RNAV 

01772 

01773 

RATEVAR 

B-12 

unities s 

RNAV 

02022 

thru 

02027 

B27 

meters 

CONG 

02004 

RMAX 

B19 

meters 

RNAV 

02537 

RODSCALE 

B-7 

meters/ centisecond 

DESC 

03001 

RDLLTIME 

B14 

centiseconds 

DAPB 

03430 

RPCRTQSW 

B1 

unitless 

SERF 

03427 

RPCRTIME 

B17 

centiseconds 

SERF 

01774 

RFARMIN 

B12 

meters^ 

RNAV 

02010 

SHAFTVAR 

B-12 

radians 2 

RNAV 

1 01353 

SKALSKAL 

BO 

unitless 

SERF 

02416 

thru 

02423 

TARGADGo  (ADG,ABRFG) 

B-4 

meters/ centisecond^ 

DESC 

02452 

thru 

02457 

TAEGADG28  (AAPFG) 

B-4 

meters/ centisecond^ 

DESC 
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ECADR 

Tae  (alternate  tae) 

Scale 

Units 

Section 

02402 

thru 

02407 

TARGRDGq  (RDG,RBRFG) 

B24 

meters 

DESC 

02436 

thru 

02443 

TARGRDGgg  (RAFFG) 

B24 

meters 

DESC 

02410 

thru 

02415 

TARGVDGo  (VDG,VBRFG) 

BIO 

meters/centisecond 

DESC 

02444 

thru 

02451 

TARGVDG28  (VAFFG) 

BIO 

meters/ centisecond 

DESC 

02540 

02541 

TAUROD 

B9 

centiseconds 

DESC 

02516 

02517 

TAUVERT 

BI4 

cent is ec ends 

DESC 

02434 

TCGFo  (TCGFBRAK) 

B17 

centiseconds 

DESC 

02470 

TCGF28  (TCGFAPPR) 

B17 

centiseconds 

DESC 

02435 

TCGIq  (TCGIBRAK) 

B17 

centiseconds 

DESC 

02471 

TCGI28  (TCGIAPPR) 

B17 

centiseconds 

DESC 

03423 

TENDq  (TENDBRAK) 

B17 

centiseconds 

DESC 

03424 

TENDi  (TENDAPPR) 

B17 

centiseconds 

DESC 

01706 

01707 
01710 

TEPHEM 

B42 

centiseconds 

COOR 

01570 

01571 

TETCSM 

B28 

centiseconds 

ORBI 

01642 

01643 

TETLEM 

B28 

centiseconds 

ORBI 

02560 

02561 

THETCRIT 

BO 

revolutions 

ASCT 
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ECADR 

Tae  (alternate  tag) 

Scale 

Units 

Section 

02400 

02401 

TLAND 

B28 

centiseconds 

DESC 

03431 

03432 

TNEWA 

B28 

centiseconds 

BURN 

02011 

TRUNVAR 

B-12 

radians^ 

RNAV 

02426 

02427 

TTFADGZq  (ABRFG^  and 
ADG2TTF+0) 

B-4 

2 

meters/ centisecond 

DESC 

02462 

02463 

TTFADGZ28  (AAPFG^  and 
ADG2TTF+28) 

B-4 

2 

meters/centisecond 

DESC 

02430 

02431 

TTFJDGZq  (JBRFG^^  and 
JDG2TTF+0) 

B-21 

3 

meters/centisecond 

DeSC 

02464 

02465 

TTFJDGZpg  (JAPFG*  and 
(jI)G2TTF+28) 

B-21 

3 

meters/ centisecond 

DESC 

02424 

02425 

TTFVDGZq  (VBRFG^-  and 
VDG2TTF+0 

BI3 

meters/centisecond 

DESC 

02460 

02461 

TTFVDGZ28  (VAPFG*  and 
VDG2TTF+28 

BI3 

meters/centisecond 

DESC 

01713 

01714 

IMITWx  (mAYO) 

BO 

unit less 

COOR 

01715 

01716 

lINITWy  (AXO) 

BO 

unitless 

COOR 

02510 

thru 

02515 

V2FG 

BIO 

meters/centisecond 

DESC 

02005 

VMAX 

B7 

meters/centisecond 

RNAV 

01775 

WARMIN 

B-12 

meters^/centisecond^ 

RNAV 

02000 

WRENDPOS 

BI4 

meters 

RNAV 

02001 

WRENDVEL 

BO 

meters/centisecond 

RNAV 

02002 

WSHAFT 

B-5 

radians 

RNAV 

02006 

WSURFPOS 

BI4 

meters 

RNAV 
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EC  ADR 

Tag  (alternate  tag) 

Scale 

Units 

Section 

02007 

WSURFVEL 

BO 

met ers/centisecond 

RNAV 

02003 

WTRUN 

B-5 

radians 

RNAV 

01700 

thru 

X789 

* 

radians 

RNAV 

01705 

(^Scaling  is  B5  for 

earth  and  B3  for  moon) 

02564 

02565 

YLIM 

B24 

meters 

ASCT 

03422 

ZOOMTIME 

B14 

centiseconds 

BURN 

^ These  quantities  are  also  loaded  by  the  fresh  start  routine  entered  * 
from  verb  36. 


In  addition  to  the  quantities  listed  on  the  previous  pages,  the 
indicated  bits  of  the  following  flagwords  must  be  padloaded  as  they  are 
not  initialized  by  the  fresh  start  ("3LAP1")  routine. 


FLAGWRD3 

bit  13 

(REFSMFLG) 

FLAGWRD8 

bit  8 

(SURFFLAG) 

bit  11 

(LMOONFLG) 

bit  12 

(CMOONFLG) 

FLGWRDIO 

bit  13 

(APSFLAG) 
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The  following  pad  loaded  variables  are  listed  by  ascending 
ECADR.  The  tag  name  is  that  given  by  this  document. 


ECADR 

Tag 

ECADR 

Tag 

01243-4 

MASS 

01700-5 

X789 

01326 

LEMMASS 

01706-10 

TEPHEM 

01327 

CSMMASS 

01711-2 

AZO 

01347  • 

E3J22R2M 

01713-4 

UNITWx 

01350 

E32C31H'l 

01715-6 

UOTTWy 

01351-2 

RADSKAL 

01770-1 

RANGEVAR 

01353 

SKALSKAL 

01772-3 

RATEVAR 

01452 

PIPABIASx 

01774 

RVARMIN 

OU53 

PIPASCFx 

01775 

WARMIN 

01454 

PIPABIASy 

02000 

WRENDPOS 

OU55 

PIPASCFy 

02001 

WRENDVEL 

01456 

PIPABIAS2 

02002 

WSHAFT 

01457 

PIPASGF2 

02003 

WTRUN 

01460 

NBDX 

02004 

RMAX 

01461 

NBDY 

02005 

VMAX 

01462 

NBDZ 

02006 

WSURFPOS 

01463 

ADIAX 

02007 

WSURFVEL 

01464 

ADIAY 

02010 

SHAFTVAR 

01465 

ADIAZ 

02011 

TRUNVAR 

01466 

ADS  RAX 

02012-7 

LM504 

01467 

ADSRAY 

02020-1 

AGSK 

01470 

ADSRAZ 

02022-7 

RLS 

01570-1 

TETCSM 

02400-1 

TLAND 

01642-3 

TETLEM 

02402-7 

TARGRDGq 
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ECADR 

ECADR 

Tag 

02410-5 

TAEGVDGo 

02516-7 

TAUVERT 

0241 6-23 

TARGADGq 

02520-1 

DELQFIX 

02424-5 

TTFVDGZq 

02522 

LRALPHAi 

02426-7 

TTFADGZo 

02523 

LRBETA]_ 

02430-1 

TTFJDGZq 

02524 

LRALPHA2 

02432-3 

GAINq 

02525 

LRBETA2 

02434 

TCGFq 

02526 

LRFMAX 

02435 

TCGIo 

02527 

LRVF 

02436-43 

TARGRDG28 

02530 

LRWVq 

02444-51 

TARGVDG28 

02531 

LRWV]_ 

02452-7 

TARGADG28 

02532 

LRWV2 

02460-1 

TTFVDGZ28 

02533 

LRWVFq 

02462-3 

TTFADGZ28 

02534 

LRWVFi 

02464-5 

TTFJDGZ28 

02535 

LP&JVF2 

02466-7 

GAIN28 

02536 

LRWVFF 

02470 

TCGF28 

02537 

RODSCALE 

02471 

TCGl2g 

02540-1 

TAUROD 

02472-3 

DESIGNV 

02542-3 

LAGdTAU 

02474-5 

DESIGNRX 

02544-5 

MINFORCE 

02476-7 

DSSIGNRZ 

02546-7 

MAXFORCE 

02500-1 

DESKIGNX 

02550-1 

J1PARM 

02502-3 

DE3KIGNY 

02552-3 

K1PARM 

02504-5 

DESKIGNV 

02554-5 

J2PARM 

02506 

LOWCRIT 

02556-7 

K2PAEM 

02507 

HIGHCRIT 

02560-1 

THETCRIT 

02510-5 

V2FG 

02562-3 

RAMIN 
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ECADR 

Tag 

ECADR 

Tag 

02564-5 

YLIM 

03422 

ZOOMTIME 

02566-7 

ABTRDOT 

03423 

TENDq 

02570-1 

C0STHET1 

03424 

TENDi 

02572-3 

C0STHET2 

03425 

DELTTFAP 

02634-41 

DLAND 

03426 

LEADTIME 

03000 

HIASCENT 

03427 

RPCRTIME 

03001 

ROLLTIME 

03430 

RPCRTQSW 

03002 

PITTIME 

03431-2 

TNEWA 

03003 

DKTRAP 

03004 

DKOMEGAE 

03005 

DKKAOSN 

03006 

LMTRAP  . 

03007 

LMOl-IEGAN 

03010 

LMKAOSN 

03011 

DKDB 

03012 

IGNAOSQ 

03013 

IGNAOSR 

031 1 3-20 

DCIWNTORKo_5 

03400-1 

ATIGINC 

03402-3 

PTIGINC 

03404-1 1 

AOTAZi_£, 

03412-7 

A0TELi_5 

03420 

LRHMAX 

03421 

LRWH 
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Channels.  Flagwords  and  Other  Discrete  Information  Registers 


Channels  l-4>  7,  10,  34.  and  35  are  discussed  in  the  list  of  Major 
Variables 


Channel  5 

Bits  15-9  have  no  significance;  bits  8-1  are  set  to  command  RCS  jet 
firings  and  reset. to  terminate  the  firing. 


Bit 

Code 

Jet  Number 

System 

Rotation 

Translation 

Effect 

Effect 

8 

ID 

14 

B 

+U 

+X 

7 

lU 

13 

A 

-U 

-X 

6 

2D 

10 

A 

+V 

+x 

5 

2D 

9 

B 

-V 

-X 

4 

3D 

6 

B 

-U 

+x 

3 

3U 

5 

A 

+u 

-X 

2 

4D 

2 

A 

-V 

+x 

1 

4U 

1 

B 

+v 

-X 

Channel 

_6 

Bits  15-9  have  no 

significance;  bits  8-1  are 

set  to  command  RCS 

jet  firings 

and  reset  to  terminate 

the  firing 

• 

Bit 

Code 

Jet  Number 

System 

Rotation 

Translation 

Effect 

Effect 

8 

IS 

16 

B 

-P 

+Y 

7 

4S 

4 

A 

+P 

-Y 

6 

33 

8 

A 

-P 

-Y 

5 

2S 

12 

B 

+P 

+Y 

4 

2F 

11 

A 

-P 

+Z 

3 

IF 

15 

A 

+P 

-Z 

2 

4F 

3 

B 

-P 

-Z 

1 

3F 

7 

B 

+P 

+Z 

Channel  11 


Bits  15,  12,  11,  and  8 are  spare. 


Bits  14  (engine  off)  and  13  (engine  on)  are  assigned  to  the  main 
engine  on/off  function.  The  normal  engine-off  command  configuration 
is  IO2;  the  normal  engine -on  command  configuration  is  OI2.  The 
following  information  concerns  the  performance  of  the  LM  when  either 
of  the  two  other  possible  binary  states  (OO2  or  II2)  occurs  (as  in 
a hardware  restart  - "GOPROG" ) . 

"All  Block  2 computers  have  the  engine-on  and  engine  off  discretes 
in  bits  13  and  14  respectively  of  channel  11.  If  the  LEM  Descent 
engine  sees  a 1,1  condition  (both  output  transistors  conducting) 
or  a 0,0  condition  (both  output  transistors  non-conducting),  it 
will  Ignore  the  signal  and  remain  in  the  state  it  was  previously 
in.  This  allows  the  computer  to  zero  all  the  output  bits  during 
a restart  and  not  shut  the  engine  off.  There  is  no  time  limit 
as  to  how  long  an  improper  state  (l,l)  or  (0,0)  can  last  with 
the  descent  engine. 

"The  LEM  ascent  engine  will  be  tvurned  on  by  an  erroneous  1,1 
condition  which  lasts  longer  than  1 millisecond.  Therefore  the 
LGC  must  be  programed  to  set  the  bits  to  the  proper  state  within 
0.5  millisecond  following  recovery  from  a restart." 

It  is  assvimed  that  the  ascent  engine  will  remain  off  if  staging  occurs 
with  the  bits  in  the  configuration  OO2. 

A fresh  start  sets  bit  I4  to  1 and  leaves  the  remaining  bits  alone. 

Meaning  when  set  and  reset  (channel  11  is  an  output  or  command 
channel) 

10  1 - Caution  Reset  signal:  resets  the  flip-flop  holding  the  Restart 

lamp  in  the  energized  state. 

0 - Allow  the  Restart  lamp  to  light 

9 1 - Test  connector  discrete  used  in  bench  tests 

0 - 

7 1 - Light  the  "Operator  Error"  lamp  (automatic  flash) 

0 - Extinguish  the  "Operator  Error"  lamp 

6 1 - Start  flash  of  verb  and  noun  registers  on  the  DSKY 

0 - Stop  the  verb-noun  flash 

5 1 - Light  the  "Key  Release"  lamp  (automatic  flash)  to  request  key 

release 

0 - Extinguish  the  "Key  Release"  lamp 


38 


4 1 - Light  the  "Temperature  Caution"  lamp 

0 - Extinguish  the  "Temperature  Caution"  lamp 

3 1 - Light  the  "Uplink  Activity"  lamp 

0 - Extinguish  the  "Uplink  Activity"  lamp 

2 1 - Light  the  "Computer  Activity"  lamp 

0 - Extinguish  the  "Computer  Activity"  lamp 

1 1 - Light  the  "ISS  Warning"  lamp 

0 - Extinguish  the  "ISS  Warning"  lamp 


Channel  12 

Bit  and  initial  value  (fresh  start) 

Meaning  (channel  12  is  an  output  or  command  channel) 

15  0 Bit  energizes  a latching  relay  that  signals  that  the  ISS 

turn-on  delay  is  complete,  removing  the  signal  from  bit  14 
of  channel  30  and  switching  the  ISS  into  the  normal  operate 
mode.  Reset  after  remaining  set  for  about  ten  and  one  half 
seconds. 

14  0 1 - Enable  RR  lock -on  and  automatic  tracking. 

0 - Disable  Rendezvous  Radar  lock -on  and  automatic  tracking. 

13  0 Command  provided  via  a DSKY  relay  to  change  landing  radar 

from  position  #1  to  position  #2.  (Returned  to  position  #1 
by  a spacecraft  switch. ) 

12  0 Bit  set  to  cause  rotation  of  the  DPS  bell  around  the  +Z  LM 

axis  to  produce  a negative  angular  jerk  around  the  +Z  axis 

(-R). 

11  0 Bit  set  to  cause  rotation  of  the  DPS  bell  around  the  -Z  LM 

axis  to  produce  a positive  angular  jerk  around  the  +Z  axis 

(+R). 

10  0 Bit  set  to  cause  rotation  of  the  DPS  bell  around  the  +Y  LM 

axis  to  produce  a negative  angular  jerk  around  the  +Y  axis 

(“Q)  • 

9 0 Bit  set  to  cause  rotation  of  the  DPS  bell  around  the  -Y  LM 

axis  to  produce  a positive  angular  jerk  around  the  +Y  axis  (+Q). 

8 0 Bit  set  to  display  inertial  data. 
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7 


0 spare 

6 0 1 - Enable  ICDU  Error  Counters  - for  gyro  torquing,  coarse 

align,  or  display  on  the  FDAI. 

0 - Disable  ICDU  Error  Counters  (3). 

5 0 1 - Zero  the  ICDU  Read  Counters;  force  the  ICDU  gimbal  angle 

follower  counters  to  zero. 

0 - Allow  the  ICDU  Read  Counters  to  follow  the  IMU  gimbal 
angles,  incrementing  the  CDU  counters  in  the  LGC  as  they  do, 

4 0 1 - Enable  coarse  align  of  the  IMU;  connect  the  ICDU  Read 

Counters  with  the  ICDU  Error  Counters  so  that  the  latter  may 
be  decremented  as  the  IMU  is  coarse  aligned. 

0 - Disable  coarse  align  of  the  IMU. 

3 0 Bit  not  set  in  LUMINARY  program. 

2 0 1 - Enable  Rendezvous  Radar  CDU  Error  Counters. 

0 - Disable  RRCDU  Error  Counters  (2). 

1 0 1 - Zero  the  RRCDU  Read  Counters.  (Like  bit  5) 

0 - Allow  the  RRCDU  Read  Counters  to  follow  the  RR  position 
angles. 


Channel  13 

Bit  and  initial  value  (fresh  start) 

Meaning  (channel  13  is  an  output  or  command  channel) 

15  0 Bit  set  to  1 to  permit  cell  000318  (TIME6)  to  be  decremented 

by  1 each  0.000625  second.  When  cell  has  been  reduced  to  -0, 
the  next  decrement  resets  bit  to  0 and  causes  program  interrupt 
#1. 

14  0 Bit  set  to  1 to  permit  the  RCS  jet  fail  switches  or  the  DPS 

gimbal  fail  switch  to  cause  interrupt  #10;  always  0 in 
LUMINARY. 

13  0 Bit  set  to  1 to  permit  signals  from  the  translational  hand 

controller  to  cause  interrupt  #10;  always  0 in  LUMINARY. 

12  0 Bit  set  to  1 to  permit  signals  from  the  rotational  hand 

controller  to  cause  interrupt  #10. 

11  0 Bit  set  to  1 to  cause  the  PRO  key  on  the  DSKY  to  be  inter- 

preted as  a "standby"  key  and  put  the  LGC  into  standby  mode. 
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Channel  13  (Continued) 


10  0 Bit  set  to  1 to  test  the  DSKY  lights  and  relays  not  otherwise 

accessible  to  the  software;  energizes  the  Restart,  Standby 
and  Computer  Warning  lamps  (the  latter  through  a "warning 
filter") . 

9 0 1 - Initiate  readout  of  analog-to-digital  converters  associated 

with  the  displacement  of  the  rotational  hand  controller  into 
cells  RHCP,  RHCQ,  and  RHCR  (428-448). 

0 - Stop  readout  of  RHC  analog-to-digital  converters 

8 0 1 - Enable  input  to  RHCP,  RHCQ,  and  RHCR  from  rotational  hand 

controller  analog-to-digital  converter 
0 - Disable  input  to  RHCP,  RHCQ,  and  RHCR 

7 0 Bit  used  as  the  "word  order  code"  bit  (first  bit  in  the  40-bit 

downlink  sequence  sent  from  the  LGC  containing  digital  data) 
for  telemetry. 

6 0 Bits  used  to  block  all  inputs  to  INLINKj  not  set  in  LUMINARY. 

5 0 Not  used  in  LUMINARY. 

4 0 Bit  set  to  1 to  initiate  transmission  of  radar  information 

to  the  LGC.  Bit  is  reset  to  0 when  program  interrupt  #9 
is  generated,  5 milliseconds  after  the  end  of  the  pulse 
train  from  the  radar  to  cell  463  (RNRAD). 

3-1  Bits  set  to  determine  the  routing  of  radar  information  into 
RNRAD  when  bit  4 is  set.  Information  into  RNRAD  is:  RR 
range  information  if  bits  3-1  are  OOI2J  RR  range  rate  if  OIO2; 
LR  X-velocity  if  1002;  LR  Y-velocity  if  IOI2;  LR  Z-veloclty  if 
IIO2;  and  LR  altitude  information  if  bits  3-1  are  1112. 

Channel  14 

Bit  and  initial  value  (fresh  start) 

Meaning  (channel  14  is  an  output  or  command  channel) 

15  0 Bit  set  to  1 to  cause  output  piilses  (at  a 3200  pps  rate)  to 

be  generated  from  CDUXCMD,  cell  000508.  When  cell  is  counted 
down  to  zero,  the  bit  is  reset,  stopping  the  piilses.  The  ICDU 
Error  Counter  is  loaded  by  these  pulses  if  bit  6 of  channel  12 
is  1. 
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Channel  14  (Continued) 


14  0 Bit  set  to  1 to  cause  output  pulses  to  be  generated  from 

CDUYCMD,  cell  00051g.  Like  bit  15. 

13  0 Bit  set  to  1 to  cause  output  pulses  to  be  generated  from 

CDUZCMD,  cell  00052g.  Like  bit  15. 

12  0 Bit  set  to  1 to  cause  output  pulses  (at  a 3200  pps  rate)  to 

be  generated  from  CDUTCMD,  cell  000538*  When  cell  is  counted 
down  to  0,  the  bit  is  reset,  stopping  the  pulses.  The  RRCDU 
Error  Counter  is  loaded  by  these  pulses  if  but  2 of  channel 
12  is  1. 

11  0 Bit  set  to  1 to  cause  output  pulses  to  be  generated  from 

CDUSCMD,  cell  00054^*  Like  bit  12. 

10  0 Bit  set  to  1 to  specify  "gyro  activity" : it  causes  the 

pulse  train  whose  magnitude  is  in  cell  000478)  GYROCMD,  to 
be  sent  with  polarity  and  destination  specified  by  bits  9-7 
of  this  channel,  if  bit  6 of  this  channel  is  1.  Bit  reset 
after  the  pulses  are  sent. 

9 0 1 - Gyro  tonqiiing  pulses  from  GYROCMD  specify  a negative 

torque . 

0 - Gyro  torquing  pulses  from  GYROCMD  specify  a positive 
torque.  (Other  pulse -type  outputs  from  the  computer  have  the 
polarity  indicated  by  the  polarity  of  the  information  in  the 
counter  cell  itself.) 

8-7  Bits  used  to  specify  the  axis  for  gyro  compensation  infor- 
mation from  GYROCMD.  Conventional  output  sequence  is  inner 
(Y),  middle  (Z),  and  outer  (X) . The  settings  of  bits  8 and 
7 are:  OO2  for  no  output;  OI2  for  X-axis  gyro;  IO2  for  Y- 
axis  gyro;  II2  for  Z-axis  gyro. 

6 0 Bit  set  to  1 to  enable  the  power  supply  that  produces  the 

torquing  pulses  used  to  torque  the  gyros.  Generally  remains 
set  after  the  first  gyro  torquing  operation. 

5 0 Not  used  in  LUMINARY. 

4 0 Bit  set  to  1 to  cause  output  piolses  to  be  generated  from 

cell  000558  (THRUST)  for  use  in  controlling  the  position 
of  the  descent  engine  throttle. 
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Channel  14  (Continued) 


Bit  set  to  1 to  initiate  shifting  of  data  from  cell  OOO6O3 
(ALTM)  to  spacecraft  indicator  for  altitiide  or  altitude 
rate  information.  (See  bit  2 of  this  word.)  Bit  reset 
to  0 just  after  start  of  data  shift. 

Bit  set  to  1 to  indicate  that  altitude  rate  information  is 
being  shifted  from  cell  OOObOg;  if  bit  is  0 altitude  in- 
formation is  being  shifted  from  cell  OOObOg. 


Not  used  in  LUMINARY. 


Channel  15 


Bits  15-6  have  no  function. 

Bits  5-1  contain  the  five-bit  binary  keycode  generated  by  the 
depression  of  one  of  the  keys  on  the  DSKY  (Display  and  Keyboard 
Assembly) . The  depression  of  any  key  causes  program  interrupt 
#5  which  reads  the  keycode  immediately,  while  the  key  is  depressed. 
The  release  of  the  key  resets  channel  15  and  resets  an  interrupt 
trap  (#15)  to  re-enable  the  Interrupt. 

Channel  16 


Bits  15-8,  2 and  1 have  no  function. 

Bit  7 is  set  to  1 if  an  increase  in  the  rate  of  descent  is  desired 
by  the  crew  (i.e.  a lower  thrust).  Generated  by  moving  a rate -of - 
descent  switch  in  the  -X  direction  (towards  the  engine). 

Bit  6 is  set  to  1 if  a decrease  in  the  rate  of  descent  is  desired 
by  the  crew  (i.e.  a higher  thrust).  Generated  by  moving  a rate- 
of-descent  switch  in  the  +X  direction. 

Bits  5-3  are  set  by  depression  of  the  mark  reject,  and  X and  Y 
mark  buttons.  The  depression  of  any  of  these  buttons  causes  program 
interrupt  #6  which  reads  the  information  on  channel  16  immediately 
while  the  button  is  depressed.  The  release  of  the  button  resets 
channel  16  eind  resets  interrupt  trap  #16A  to  re-enable  interrupt  #6. 
Bits  5-3  are  processed  by  the  "MARKRUPT"  routine. 

A special  capability  is  programmed  into  the  restart  routine  to  enable 
the  astronaut  to  extricate  the  LGC  from  a multiple -restart  loop.  The 
restart  program  exits  to  the  fresh  start  program  if  it  senses  that 
the  mark  reject  button  and  the  error  reset  key  (channel  15  code  223) 
are  depressed  simultaneously. 

Channel  30 

Bit  Meaniiog  (channel  30  is  an  input  or  information  channel) 

15  1 - Stable  Member  temperature  outside  design  limits. 

0 - Stable  Member  temperature  within  design  limits. 

(Connected  directly  to  lamp  controlled  by  bit  4 of  channel  11 ) 

14  1 - IMU  power-on  switch  off;  or,  IMU  power-on  switch  on  and 

IMU  in  normal  operate  mode  ("tiorn-on  delay  complete"  discrete 
sent  from  the  LGC  (bit  15  of  channel  12) . 
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Channel  30  (Continued) 


Bit 

14 


13 


12 


11 

10 

9 


Meaning  (Channel  30  is  an  input  or  information  channel) 

0 - IMU  power-on  switch  on  and  IMU  caged,  waiting  for 
"turn-on  delay  complete"  discrete  from  the  LGC.  (The 
discrete  from  the  LGC  sets  a relay  which  switches  the 
IMU  to  normal  operate  mode . ) 

1 - IMU  good. 

0 - IMU  fail  due  to  excessive  servo  errors  or  degradation 
of  3200  pps  or  800  pps  supply  . (See  IMUMON  routine.) 

1 - ICDU  good. 

0 - ICDU  fail  (due  to  excessive  errors  or  low  voltage). 

(See  IMUMON  routine.) 

1 - IMU  not  caged  by  crew  switch  setting. 

0 - IMU  caged  by  setting  of  crew  switch.  (See  IMUMON  routine.) 

1 - SCS  control  of  spacecraft.  (Panel  switch) 

0 - PGNCS  control  of  spacecraft. 

1 - IMU  power-on  switch  switched  to  off  (panel  lOO) . 

0 - IMU  power-on  switch  switched  to  on. 


8 spare 

7 1 - RRCDU  good. 

0 - RRCDU  fail  (due  e.g.  to  excessive  errors  or  low  voltage). 
(See  RRCDUCHK  routine.) 

6 1 - Display  of  inertial  data  from  the  computer  is  not  desired 

by  the  crew. 

0 - Display  of  inertial  data  from  the  computer  is  desired  by 
the  crew.  When  the  appropriate  information  has  been  loaded 
by  the  program,  bit  8 of  channel  12  is  set  to  1. 

5 1 - LGC  DPS  throttle  commands  disabled. 

0 - LGC  DPS  throttle  commands  enabled. 


4 

3 

2 


Bit  sensed  0 is  "ABORT  STAGE"  command. 

1 - Engine  not  armed.  (not  examined  in  Luminary) 

0 - Engine  armed. 

1 - Ascent  configuration.  ( not  examined  in  Luminary) 
0 - Ascent  and  descent  configuration. 
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Bit 

1 


Bit 

15 


14 


13 


12 


11 


10 

9 

8 

7 


Channel  30  (Continued) 

Meaning  (channel  30  is  an  input  or  information  channel) 
Bit  sensed  0 is  "ABORT"  command. 


Channel  31 

Meaning  (channel  31  is  an  input  or  information  channel) 

1 - RHC  (Rotational  hand  controller)  is  in  detent. 

0 - RHC  is  displaced  from  detent;  the  astronaut  is 
commanding  a rate. 

1 - The  spacecraft  Mode  Control  switch  is  not  set  to  "Auto". 

0 - The  Mode  Control  switch  is  set  to  "Auto",  indicating  that 
the  LGC  has  complete  authority  for  control  of  the  spacecraft. 


1 - The  Mode  Control  switch  is  not  set  to  "Attitude  Hold." 
0 - The  Mode  Control  switch  is  set  to  "Attitude  Hold," 
indicating  that  LGC  Digital  Autopilot  authority  is  limited 
to  rate  damping. 


1 - -Z  translation  not  commanded  via  the  THC  (Translational 
Hand  Controller) . 

0 - -Z  translation  commanded  via  the  THC, 


1 - +Z  translation  not  commanded  via  the  THC. 
0 - +Z  translation  commanded  via  the  THC* 


1 - -Y  translation  not  commanded  via  the  THC. 
0 - -Y  translation  commanded  via  the  THC» 


1 - +Y  translation  not  commanded  via  the  THC. 
0 - +Y  translation  commanded  via  the  THCi 


1 - -X  translation  not  commanded  via  the  THC. 

0 - -X  translation  commanded  via  the  THC. 

1 - +X  translation  not  commanded  via  the  THC. 

0 - +X  translation  commanded  via  the  THC. 
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Channel  31  (Continued) 


Bits  6-1  carry  discrete  information  about  the  displacement  of  the 
Rotational  Hand  Controller  (RHC  - also  denoted  by  ACA) . The  bits 
are  normally  1 and  are  set  to  0 by  the  RHC  to  indicate  the  following 
directions  of  desired  rotation; 

Bit  6 5 4 3 2 1 

Desired  Rotation  -R  +R  -P  +P  -Q  +Q 

Channel  32 

Bits  15,  13,  12,  and  11  of  channel  32  are  spares. 

Bit  14  is  activated  by  the  "Proceed"  key  on  the  DSKY  (formerly  the 
"Standby"  key  and  still  functional  as  such  when  program  6 has  enabled 
standby) . It  is  normally  set  (l)  and  is  reset  to  0 only  while  the 
proceed  key  is  depressed.  It  is  examined  every  120  milliseconds  by 
the  "T4RHPT"  program  and  functions  like  a verb  33  except  when  program 
6 has  enabled  standby. 

Bit  10.  Bit  state  of  0 indicates  that  the  desired  engine  gimbal 
failure  monitor  detects  an  apparent  gimbal  fail  in  the  pitch  or 
roll  gimbal  trim  system.  Not  used  by  the  LUMINARY  program. 


Bit  9 is  sensed  as  0 if  action  is  taken  by  the  crew  to  turn  off  the 
descent  engine  gimbal  system.  This  prevents  bits  12-9  of  channel  12 
from  having  any  effect  on  the  flight  and  causes  the  software  to 
avoid  using  the  gimbal. 

Bits  8-1  are  normally  set  (l).  They  are  reset  by  astronaut  panel 
switches  that  disable  RCS  jets  (indicate  that  they  are  not  functional). 
Each  switch  disables  two  jets,  one  with  thrust  around  the  P axis  and 
one  with  thrust  around  the  Q or  R axis.  The  bits  disable  the  following 
jets  (see  "RCSMONIT"  routine): 


Bit 

Jet  Numbers 

Action  (rotation) 

Quad 

System 

Code 

8 

10 

+V 

2 

A 

2D 

11 

-P 

2 

A 

2F 

7 

9 

-V 

2 

B 

2U 

12 

+P 

2 

B 

23 

6 

13 

-U 

1 

A 

lU 

15 

+P 

1 

A 

IF 
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Channel  32  (Continued) 


Bit 

Jet  Numbers 

Action  (rotation) 

Quad 

System 

Code 

5 

14 

+U 

1 

B 

ID 

16 

-P 

1 

B 

IS 

4 

6 

-U 

3 

B 

3D 

7 

+P 

3 

B 

3F 

3 

1 

+V 

4 

B 

4U 

3 

-P 

4 

B 

4F 

2 

5 

+u 

3 

A 

3U 

8 

-p 

3 

A 

3S 

1 

2 

-V 

4 

A 

4D 

4 

+p 

4 

A 

4S 

Channel  33 


Bit  Meaning  (channel  33  is  an  input  or  information  channel) 

15  1 - Computer  oscillator  operating;  reset  to  1 by  channel  load 

instruction. 

0 - Computer  oscillator  failure;  flip-flop  that  can  be  seti 
by  a power  transient  momentarily  interrupting  the  oscillator. 
Not  sensed  by  the  LUMINARY  program. 

14  Flip-flop  sensed  as  0 if  a "computer  warning"  indication  has 
been  produced  (e.g.  multiple  restarts,  counter  fail,  voltage 
fail  in  standby,  or  alarm  test  by  bit  10  of  channel  13) . 

Reset  to  1 by  channel  load  instruction.  Not  sensed  by 
LUMINARY  program. 

13  Flip-flop  input  sensed  as  0 if  a PIPA  fail  indication  generated 
by  the  PIPA  (accelerometer)  electronics.  Reset  to  1 by  channel 
load  instruction. 

12  Flip-flop  input  sensed  as  0 if  a telemetry  end  pulse  occurs 
too  soon  ai'ter  the  previous  pulse  (faster  than  100  pps). 

Reset  to  1 by  channel  load  instruction. 

11  Flip-flop  input  sensed  as  0 if  an  input  bit  to  cell  000458 

(inlink)  is  rejected  due  to  an  excessive  bit  rate  (faster  than 
6400  pps) . Reset  to  1 by  channel  load  instruction. 

10  Not  examined  by  the  LUMINARY  program. 

9 1 - Landing  radar  high  scale. 

0 - Landing  radar  low  scale. 


Channel  33  (Continued) 

Bit  Meaning  (channel  33  is  an  input  or  information  channel) 

8 1 - At  least  one  of  the  three  LR  velocity  trackers  not  locked 

on. 

0 - Landing  radar  velocity  data  good. 

7 1 - Landing  radar  not  in  position  2. 

0 - Landing  radar  in  position  2. 

6 1 - Landing  radar  not  in  position  1. 

0 - Landing  radar  in  position  1. 

5 1 - LR  range  tracker  or  rear  velocity-beam  tracker  (2)  not 

locked  on. 

0 - Landing  radar  range  (altittide)  data  good. 

4 1 - RR  range  tracker  and  frequency  tracker  not  both  locked  on. 

0 - RR  range  and  range  rate  data  good. 

3 1 - Rendezvous  radar  range  high  scale. 

0 - Rendezvous  radar  range  low  scale. 

2 1 - RR  power  off  or  RR  mode  switch  not  in  the  "LGC"  position. 

0 - RR  on  and  under  LGC  control;  can  be  positioned  via  cells 
538-548. 


spare 
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FIAGWRDO 


Bit  and  initial  value  (fresh  start 


Mnemonic 


15  (0)  NEED2FLG 


14  (0)  JSWITCH 


13  (0)  MIDFIAG 


Meaning  when  1 and  0 


1 - Error  needles  driven  with  LGC  DAP  computed 
booy  rates 

0 - Error  needles  driven  with  attitude  errors 

1 - Integration  of  W-matrix 

0 - Integration  of  state  vector 

1 - Integration  with  secondary  body  and  solar 
perturbations  (should  remain  zero  in  LUMINARY  ) 
0 - Integration  without  solar  perturbations 


12  (O)  MOONFLAG  1 - In  the  sphere  of  Influence  of  the  moon 

0 - In  the  sphere  of  Influence  of  the  earth 


11  (0)  P21FLAG 


1 - Use  base  vectors  already  calculated 
0 - 1st  pass  — calculate  base  vectors 


10  (O)  FSPASFLG  1 - First  pass  through  reposition  routine 

0 - Not  first  pass  through  reposition  routine 


9 (0)  P25FLAG 


8 (0)  IMUSE 


7 (0) 


6 (0)  RRNBSW 


5 (0)  LOKONSW 


1 - P25  in  operation  (preferred  tracking  attitude) 

0 - P25  not  in  operation 

1 - IMU  in  use  (being  switched,  torqued  or  aligned) 

0 - IMU  not  in  use 


RNDVZFLG  1 - P20  or  P22  has  been  enabled  , 

0 - P20  or  P22  has  not  been  enabled 


1 - RETARGET  in  navigation  base  coordinates 

0 - RETARGET  in  stable  member  coordinates 

1 - Radar  lock-on  desired 

0 - Radar  lock-on  not  desired 


4 (O)  NEEDLFLG  1 - Displaiy  total  attitude  error 

0 - DAP  following  error  displayed 

3 (O)  FREEFLAG  A temporary  flag  used  for  utility  purposes  in 

many  routines  by  P51-P53J  by  lunar  and  solar 
ephemerides . 


2 (0)  RIOFUG 


1 - RIO  outputs  data  to  altitude  and  altitude  rate 
meters  only 

0 - Output  of  1 condition  plus  forward  and  lateral 
velocity  on  cross  pointers 
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FLAGWRDO  (Continued) 


Bit  and  inltleil  value  (fresh  start) 


Mnemonic  Meaning  when  1 and  0 


1 


(0)  OLDESFLG 


1 - R29  (powered  flight  RR  designate  routine) 
gyro  comn^nd  loop  requested 
0 - R29  (powered  flight  RR  designate  routine) 
gyro  command  loop  not  requested 
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FIAGWRDl 


Bit  and  Initial  value  (fresh  start) 


Mnemonic 
15  (0)  NJETSFLG 

14  (0)  DIDFIAG 

13  (0)  ERADFUG 

12  (0)  RODFLAG 

11  (O)  Spare 

10  (0)  R61FUG 

9 (O)  spare 

8 (0)  VEHUPFLG 

7 (0)  UPDATFLG 

6 (0)  NOUPFLAG 

5 (0)  TRACKFLG 

4 (O)  spare 

3 (0)  SLOPESW 

2 (0)  GDESSSW 


Meaning  when  1 and  0 

1 - Two  jet  RCS  burn 

0 - Four  Jet  RCS  burn 

1 - Inertial  data  Is  available 

0 - Perform  data  display  Initialization  functions 

1 - Compute  earth  radius  for  Fischer  ellipsoid; 
use  stored  moon  radius  (never  set  In  LUMINARY  ) 

0 - Compute  moon  radius;  use  stored  earth  radius 
(pad  radius)  (in  latitude -longitude  routines) 

1-  If  In  P66,  normal  operation  continues.  Restart 
clears  flag 

0 - If  In  P66,  reinitialization  Is  performed  and 
flag  Is  set 


1 - R6l  (preferred  tracking  attitude  routine)  LEM 
to  be  operated 

0 - R65  (fine  preferred  tracking  attitude  routine) 
Lem  to  be  operated 


1 - Update  CSM  state  vector 

0 - Update.  LM  state  vector 

1 - State  vector  updates  from  tracking  allowed 

0 - Updates  from  tracking  not  allowed 

1 - Neither  CSM  nor  LEM  state  vector  may  be  updated 

0 - Either  CSM  or  LEM  state  vector  may  be  updated 

1 - Tracking  allowed 

0 - Tracking  not  allowed 


1 - Iteration  with  bias  method 

0 - Iteration  with  regular  falsi  method 

1 - No  starting  value  for  Iteration 

0 - Starting  value  for  Iteration  exists 


52 


FLAGWRDl  (Continued) 


Bit  and  Initial  value  (fresh  start) 

Mnemonic  Meaning  when  1 and  0 
1 (O)  Spare 
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FLAGWRD2 


Bit  and  initial  value  (fresh  start) 


Mnemonic 

15 

(0) 

DRIFTFLG 

U 

(0) 

SRCHOPTN 

13 

(0) 

ACMODFLG 

12 

(0) 

LOSCMFLG 

11 

(0) 

STEERSW 

Meaning  when  1 and  0 

1 - T3RUPT  calls  gyro  compensation 

0 - T3RUPT  does  no  gyro  compensation 

1 - Radar  in  automatic  search  option  (R24) 

0 - Radar  not  in  automatic  search  option 

1 - Manual  acquisition  by  rendezvous  radar 

0 - Auto  acquisition  by  rendezvous  radar 

1 - Line-of -sight  is  being  computed  (R2l) 

0 - Line -of -sight  not  being  computed 

1 - Powered  flight  steering  enabled  (sufficient 
thrust) 

0 - Powered  flight  steering  off  (insufficient 
thrust) 


10  spare 


9 (O)  IMPULSW  1 - Minimum  impiilse  biarn  (cut-off  time  specified) 

0 - Steering  burn  (no  cut-off  time  yet  available) 

8 (O)  XDELVFLG  1 - External  delta-V  VG  computation 

0 -.  Lambert  (aimpoint)  VG  computation 

7 (O)  ETPIFLAG  1 - Elevation  angle  supplied  for  P34,  P74 

0 - TPI  time  supplied  for  P34>  P74  to  compute 
elevation  angle 


6 (O)  FINALFLG  1 - Last  pass  through  rendezvous  program  computations 

0 - Interim  pass  through  rendezvous  program  compu- 
tations 

5 (O)  AVFLAG  1 - LEM  is  active  vehicle 

0 - GSM  is  active  vehicle 


4 (0)  PFRATFLG 


1 - Preferred  attitude  computed 
0 - Preferred  attitiade  not  computed 
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FLAGWRD2  (Continued) 


Bit  and  initial  value  (fresh  a text) 


Mnemonic 

Meaning  when  1 and  0 

(0) 

CALCMAN3 

1 - No  final  roll 

0 - Final  roll  is  necessary 

(0) 

CALCMAN2 

1 - Perform  maneuver  starting 
0 - Bypass  starting  procedure 

procedure 

(0) 

NODOFLAG 

1 - V37  not  permitted  (do  not 
mode  change) 

0 - V37  permitted  (major  mode 

allow  a major 

change  enabled) 
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FLAGWRD3 

Bit  and  initial  value  (fresh  start) 


Mnemonic 

Meaning  when  1 and  0 

15  (0) 

POOHFLAG 

1 - POO  Integration  10  minute  checks  are  running 

0 - POO  integration  10  minute  checks  disabled 

14 

(0) 

GLOKFAIL 

1 - Calculated  middle  gimbal  angle  exceeds  60° 

0 - Checked  and  reset  in  IMU  performance  tests 
only 

13 

REFSMFLG 

1 - Reference  to  stable  member  matrix  valid 
(protected  from  fresh  start) 

0 - Transformation  matrix  not  valid 

12 

(0) 

LUNAFLAG 

1 - Lunar  latitude -longitude  conversion 

0 - Earth  latitude-longitude  conversion 

11 

(1) 

N0R29FLG 

1 - R29  not  allowed 

0 - R29  allowed  (rendezvous  radar  designate, 
powered  flight) 

10 

(0) 

VFLAG 

1 - No  star  pair  found  during  R56. 

0 - Star  pair  found  during  R56 

9 

(0) 

R04FLAG 

1 - Alarm  521  suppressed 

0 - Alarm  521  allowed 

9 

(0) 

READRFLG 

1 - Reading  rendezvous  radar  data  pursuant  to  R29 

0 - Not  reading  rendezvous  radar  data  pursuant  to  R29 

8 

(0) 

PRECIFLG 

1 - Normal  integration  in  POO 

0 - Engages  4-tinie  step  (POO)  logic  in  integration 

7 

(0) 

CULTFLAG 

1 - Star  occulted 

0 - Star  not  occulted 

6 

(0) 

ORBWFLAG 

1 - W matrix  valid  for  orbital  navigation  (never 
set  in  LUMINARY) 

0 - W matrix  invalid  for  orbital  navigation 

5 

(0) 

STATEFLG 

1 - Result  of  integration  stored  in  permanent  state 

0 - Result  of  integration  not  to  be  stored  in  per- 
manent state 

4 

(0) 

INTYPFLG 

1 - Conic  integration 

0 - Encke  integration  (precision) 
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FLAGWEID3  (Continued) 


Bit  and  initial  value  (fresh  start) 


Mnemonic 

Meaning  when  1 and  0 

3 

(0) 

VINTFLAG 

1 

- CSM  state  vector  integration 

0 

- LM  state  vector  integration 

2 

(0) 

D60R9FLG 

1 

- W matrix  considered  9-dlmensional 

for 

integration 

0 

- W matrix  considered  6-dimensional 

for 

integration 

1 

(0) 

DIMOFLAG 

1 

- W matrix  is  to  be  used 

0 

- W matrix  is  not  to  be  used 
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15  (O)  MEIKIDFLG  1 - Ma!rk  display  awaiting  astronaut  response 

0 - Mark  display  not  awaiting  astronaut  response 

14  (O)  PRIODFLG  1 - Priority  display  awaiting  astronaut  response 

0 - Priority  display  not  awaiting  astronaut  response 

13  (O)  NRMIDFLG  1 - Normal  display  awaiting  astronaut  response 

0 - Normal  display  not  awaiting  astronaut  response 

12  (O)  PDSPFLAG  1 - Make  normal  display  priority  (set  by  P20 

for  R60  display) 

0 - Do  not  make  normal  display  priority 

11  (O)  MWAITFLG  1 - Higher  priority  display  operating  when  mark 

display  Initiated;  it's  asleep  and  waiting 
0 - Mark  display  not  asleep  because  it's  waiting 
for  higher  priority  display  to  be  completed 


10  (0)  NWAITFLG 


1 - Higher  priority  display  operating  when  normal 
display  initiated 

0 - If  normal  display  is  asleep,  it's  not  because 
another  display  was  operating  when  it  started 


9 (O)  MEIKNVFLG  1 - Mark  display  awaiting  key  release 

0 - Mark  display  not  awaiting  key  release 


8 (O)  NRMNVFLG  1 - Normal  display  awaiting  key  release 

0 - Normal  display  not  awaiting  key  release 


7 (O)  PRONVFLG  1 - Priority  display  awaiting  key  release 

0 - Priority  display  not  awaiting  key  release 

6 (O)  PINBRFLG  1 - Astronaut  has  interf erred  with  existing  display 

0 - Astronaut  has  not  interferred  with  display 

5 (O)  MRUPTFLG  1 - Mark  display  interrupted  by  priority  display 

0 - Mark  display  not  Interrupted  by  priority  display 

4 (O)  NRUPTFLG  1 - Normal  display  interrupted 

0 - Normal  display  not  interrupted 
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FLAGWRDA  (Continued) 


Bit 

and 

initial  value  (fresh  start) 

Mnemonic 

Meaning  when  1 and  0 

3 

(0) 

MKOVFLAG 

1 - Mark  display  interrupting  normal 

0 - Priority  display  interrupting  mark  or  normal 

2 

(0) 

spare 

1 

(0) 

XDSPFLAG 

1 - Mark  (extended  verb)  display  not  to  be 
interrupted 

0 - Mark  display  may  be  interrupted 


FLAGWRD5 

Bit  and  initial  value  (fresh  start) 


Mnemonic 

Meaning  when  1 and  0 

15 

(0) 

DSKYFLAG 

1 - Displays  sent  to  DSKY 

0 - No  displays  to  DSKY 

14 

(0) 

spare 

13 

(0) 

SNUFFER 

1 - U,  V jets  disabled  during  DPS  burns  (V65) 

0 - U,  V jets  enabled  during  DPS  burns  (V75) 

12 

(0) 

NOTHROTL 

1 - Inhibit  full  throttle 

0 - Permit  full  throttle 

11 

(0) 

R77FLAG 

1 - R77  is  operating,  suppress  all  radar  alarms  and 
tracker  falls 

0 - R77  is  not  operating 

10 

(0) 

RNGSCFLG 

1 - Scale  change  has  occurred  during  RR  reading 

0 - Scale  was  the  same  before  the  reading  and  after 

9 

(0) 

DMENFLG 

1 - Measurement  incorporation  using  9x9  W-matrix 

0 - Measurement  incorporation  using  6x6  Wnmatrix 

8 

(0) 

ZOOMFLAG 

1 - P63  throttle-up  has  occiarred 

0 - P63  throttle-up  has  not  occurred 

7 

(0) 

ENGONFLG 

1 - Engine  turned  on  (commanded  on) 

0 ^ Engine  turned  off  (APS  or  DPS) 

6 

(0) 

3AXISFLG 

1 - Maneuver  specified  by  three  axes 

0 - Maneuver  specified  by  one  axis;  R60  calls 
"VECPOINT" 

5 (O) 

AORBSPLG 

1 - Jets  7,15,8,and16  used  for  P-axis  control 

0 - Jets  4»12,3,  and  11  used  for  P-axis  control 

4 

(0) 

NORRMON 

1 - Bypsss  RR  gimbal  monitor 

0 - Perform  RR  gimbal  monitor 

3 

(0) 

SOLNSW 

1 - Lambert  does  not  converge;  Time-radius  routine 

cannot  solve  because  of  near— circular  orbit 
0 - Lambert  or  Time-radius  problem  soluble 
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FLAGWRD5  (Continued) 


Bit  and  initial  value  (fresh  atart) 


Mnemonic 

Meaning  when  1 and  0 

(0) 

MCLVFLAG 

1 - Local  vertical  coordinates  computed 

0 - Middle  gimbal  angle  computed 

(0) 

REiNDWFLG 

1 - W-matrix  valid  for  rendezvous  navigation 

0 - W-matrix  not  valid  for  rendezvous  navigation 
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FIAGWRD6 


Bit 

and 

initial  value 

(fresh  start) 

Mnemonic 

Meaning  when  1 and  0 

15 

(0) 

S32.1F1 

1 - 
0 - 

DELVEETl  exceeds  the  maximum  allowable 

DELVEETl  within  maximum  bound 

U 

(0) 

S32.1F2 

1 - 
0 - 

First  pass  of  CSI  iteration 

Reiteration 

13 

(0) 

S32.1F3A 

See 

TRGX  section 

12 

(0) 

S32.1F3B 

See 

TRGX  section. 

11 

(0) 

spare 

10 

(0) 

GMBDRVSW 

1 - 
0 - 

Initial  positioning  of  DPS  gimbals  complete 
Initial  positioning  of  DPS  gimbals  not  somplete 

9 

(0) 

spare 

8 

(0) 

MUNFLAG 

1 - 
0 - 

Lunar  landing  Average-g  navigation 

Earth  orbital  Average-g  navigation 

7 

(0) 

spare 

6 

(0) 

REDFLAG 

1 - 
0 - 

Landing  site  redesignation  permitted 

Landing  site  redesignation  not  permitted 

5 

(0) 

spare 

4 

(0) 

spare 

3 

(0) 

NTARGFLG 

1 - 
0 - 

Astronaut  did  overwrite  delta  (See  "S34/35-5") 
Astronaut  did  not  overwrite  delta 

2 

(0) 

AUIFLAG 

1 - 

Providing  IDLEFIAG  is  not  set,  SERVICER  will 

exercise  DVMON  on  its  next  pass 

0 - SERVICER  will  skip  DVMON  on  its  next  pass,  even 
if  the  IDLEFIAG  is  not  set.  It  will  then  set 
AUXFIAG 
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FLAGWRD6  (Continued) 


Bit  and  initial  value  (fresh  start) 

Mnemonic  Meaning  when  1 and  0 

1 (O)  ATTFLAG  1 - LM  attitude  exists  in  moon-fixed  coordinates 

0 - No  LM  attitude  available  in  moon-fixed 
coordinates 
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FLAGWRD7 

Bit  and  initial  value  (fresh  start) 


Mnemonic 

Meanins  when  1 and  0 

15 

(0) 

ITSWICH 

1 - Test  Lambert  answer  against  limits 

0 - Accept  next  Lambert  TPI  search  solution 

14 

(0) 

MANUFLAG 

1 - Attitude  maneuver  during  RR  search  (not  set  in 

0 - No  attitude  maneuver  during  RR  search  Luminary) 

13 

(0) 

IGNFLAG 

1 - Ignition  time  has  arrived 

0 - Ignition  time  has  not  yet  arrived 

12 

(0) 

ASTNFLAG 

1 - Astronaut  has  okayed  ignition 

0 - Astronaut  has  not  okayed  ignition 

11 

(0) 

SWAMDISP 

1 - Landing  analog  displays  enabled 

0 - Landing  analog  displays  suppressed 

10 

(0) 

NORMSW 

1 - Unit  normal  input  to  Lambert 

0 - Lambert  computes  its  own  unit  normal 

9 

(0) 

RVSW 

1 - Do  not  compute  final  state  vector  in  Time- 
Theta 

0 - Compute  final  state  vector  in  Time-Theta 

8 

(0) 

V67FLAG 

1 - Astronaut  changing  W-matrix  initialization 
values 

0 - Astronaut  not  changing  values 

7 

(1) 

IDLEFLAG 

1 - Disable  Delta-V  monitor 

0 - Enable  Delta-V  monitor 

6 

(0) 

V37FLAG 

1 - Servicer  running 

0 - Servicer  not  running 

5 

(0) 

AVEGFLAG 

1 - Average -G  desired 

0 - Average -G  not  desired 

4 

(0) 

UPLOCKFL 

1 - K,  K-bar,  K fail 

0 - No  IQCK  fail  since  last  error  reset 

3 

(0) 

VERIFLAG 

Inverted  whenever  P27  is  ended  with  a verb  33 

2 

(0) 

V82EMFLG 

1 - Moon  vicinity 

0 - Earth  vicinity 
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FLAGWRD7  (Continued) 


Bit  and  Initial  value  (fresh  start) 

Mnemonic  Meaning  when  1 and  0 

1 (O)  TFFSW  1 - Calculate  time  to  perigee 

0 - Calculate  TFF 
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FLAGVglD8 


Bit 

and 

initial  value  (fresh  start) 

Mnemonic 

Meaning  when  1 and  0 

15 

(0) 

RPQFLAG 

1 - Position  vector  of  secondary  body  not 
calculated 

0 - Position  vector  of  secondary  body  calculated 

14 

(0) 

spare 

13 

(0) 

NBWXFLG 

1 - First  pass  through  integration 

0 - Succeeding  iteration  of  integration 

12 

CMOOKFLG 

1 - Permanent  GSM  state  in  lunar  sphere  of  influence 

0 - Permanent  GSM  state  in  earth's  sphere  (protected 
from  fresh  start) 

11 

LMOONFLG 

1 - Permanent  LM  state  in  lunar  shpere  of  influence 

0 - Permanent  LM  state  in  earth's  sphere  (protected 
from  fresh  start) 

10 

(0) 

FLUMDISP 

1 - Gurrent  guidance  displays  inhibited 

0 - Gurrent  guidance  displays  permitted 

9 

(0) 

spare 

8 

SURFFLAG 

1 - LM  on  lunar  surface 

0 - LM  not  on  lunar  surface  (protected  from  fresh 
start) 

7 

(0) 

INFINFLG 

1 - Glosure  through  infinity  required  in  conic 
solution 

0 - Glosure  through  infinity  not  required 

6 

(0) 

ORDERSW 

1 - Iterator  uses  second  order  minimum  mode  (not  set  in 
0 - Iterator  uses  first  order  standard  mode  Luminary) 

5 

(0) 

APSESW 

1 - Orbit  does  not  intersect  RDESIRED  (Time-Radius) 

0 - Orbit  does  intersect  REDESIRED 

4 

(0) 

COGAFLAG 

1 - No  conic  solution;  close  to  rectilinear 

0 - Orbit  is  not  too  close  to  rectilinear 
for  solution 
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FLAGWRD8  (Continued) 


Bit  and  initial  value  (fresh  start) 


Mnemonic 

Meaning  when  1 and  0 

(0) 

spare 

(0) 

INITALGN 

1 - Initial  pass  through  P57 

0 - Second  pass  through  P57 

(0) 

360SW 

1 - Transfer  angle  near  360  degrees 

0 - Transfer  angle  not  near  360  degrees 
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FUGWRD9 

Bit  and  initial  value  (fresh  start) 


Mnemonic 

Meaning  when  1 and  0 

15  (0) 

spare 

U (0)  FLVR 

1 - Vertical  rise  (ascent  guidance) 

0 - Non-vertical  rise 

1 13  (0) 

P7071FLG 

1 - P70  or  P71  using  ascent  guidance 

0 - PI 2 using  ascent  guidance 

12 

(0) 

FLPC 

1 - No  position  control  (ascent  guidance) 

0 - Position  control 

11 

(0) 

FLPI 

1 - Pre-ignition  phase  (ascent  guidance) 

0 - Regular  guidance 

10 

(0) 

FLRCS 

1 - RCS  injection  mode  (ascent  guidance) 

0 - Main  engine  mode 

9 

(0) 

LETABORT 

1 - Abort  programs  are  enabled 

0 - Abort  programs  are  not  enabled 

8 

(0) 

FLAP 

1 - APS  continued  abort  after  DPS  staging  (ascent 
guidance ) 

0 - APS  abort  is  not  a continuation 

7 

(0) 

spare 

6 

(0) 

ROTFLAG 

1 - P70  and  P71  will  force  vehicle  rotation  in 
the  preferred  direction 

0 - P70  and  P71  will  not  force  vehicle  rotation 
in  the  preferred  direction 

5 

(0) 

QUITFLAG 

1 - Discontinue  orbital  integration 

0 - Continue  integration 

4 

(0) 

spare 

3 

(0) 

MIDIFIAG 

1 - Integrate  to  TDEC 

0 - Integrate  to  TIMENOW 

2 

(0) 

MIDAVFLG 

1 - Integration  entered  from  one  of  the  drifting 
flight  to  powered  flight  handover  routines 

0 - Integration  not  entered  as  above 

1 

(0) 

AVEMIDSW 

1 - AVETOMID  calling  for  W-matrix  integration} 
do  not  write  over  TO,  PIPTIME 

0 - AVETOMID  without  W-matrix  integration;  allow 
set  up  of  RN,  TO,  PIPTIME 
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FLGWRDIO 


Bit 

and 

initial  value 

(fresh  start) 

Mnemonic 

Meaning  when  1 and  0 

15 

(0) 

spare 

U 

(0) 

INTELAG 

1 

- Integration  in  progress 

0 

- Integration  not  in  progress 

13 

APSFLAG 

1 

- Ascent  stage  (protected  from 

0 

- Descent  stage  fresh  start) 

12 

(0) 

spare 

11 

(0) 

spare 

10 

(0) 

spare 

9 

(0) 

spare 

8 

(0) 

spare 

7 

(0) 

REINTFLG 

1 

- Integration  routine  to  be  restarted 

0 

- Integration  routine  not  to  be  restarted 

6 

(0) 

spare 

5 

(0) 

spare 

4 

(0) 

spare 

3 

(0) 

spare 

2 

(0) 

spare 

1 

(0) 

spare 

69 


FLGWRDll 


Bit 

and 

initial  value  (fresh  start) 

Mnemonic 

Meaning  when  1 and  0 

15 

(1) 

LRBYPASS 

1 - Bypass  all  landing  radar  updates 

0 - Do  not  bypass 

14 

(0) 

spare 

13 

(0) 

spare 

12 

(0) 

VXINH 

1 - If  Z velocity  data  unreasonable,  bypass 

X velocity  update  on  next  pass 

0 - Update  X-axis  velocity 

11 

(0) 

PSTHIGAT 

1 - Past  higate 

0 - Prehigate 

10 

(0) 

NOLRREAD 

1 - Landing  radar  reposition;  bypass  update 

0 - Landing  radar  not  repositioning 

9 

(0) 

XORFLG 

1 - Below  limit  inhibit  X-axis  override 

0 - Above  limit  do  not  inhibit 

8 

(0) 

LRINH 

1 - Landing  radar  updates  permitted  by  astronaut 
0 - Landing  radar  updates  inhibited  by  astronaut 

7 

(0) 

VELDATA 

1 - Landing  radar  velocity  measurement  made 

0 - Landing  radar  velocity  measurement  not  made 

6 

(0) 

READLR 

1 - Ok  to , read  landing  radar  range  data 

0 - Do  not  read  landing  radar  range  data 

5 

(0) 

READVEL 

1 - Ok  to  read  landing  radar  velocity  data 

0 - Do  not  read  landing  radar  velocity  data 

4 

(0) 

RNGEDATA 

1 - Landing  radar  altitude  measurement  made 

0 - Landing  radar  altitude  measurement  not  made 

3 

(0) 

SCALBAD 

1 - Landing  radar  low  scale  discrete  not  present 
when  it  should  be 

0 - Landing  radar  scale  discrete  appears  ok 

2 

(0) 

VFLSHFLG 

1 - Landing  radar  velocity  fail  lamp  should  be 
flashing 

0 - Landing  radar  velocity  fail  lamp  should  not 
be  flashing 
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FLGWRDII  (Continued) 


Bit  and  initial  value  (fresh  start) 

Mnemonic  Meaning  when  1 and  0 

1 (l)  HFLSHFLG  1 - Landing  radar  altitude  fail  lamp  should  be 

flashing 

0 - Landing  radar  altitude  fall  lamp  should  not 
be  flashing 
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DAPBOOLS 

• 

Bit 

and 

initial  value  (fresh  start) 

Mnemonic 

Meaning  when  1 and  0 

15 

(0) 

PULSES 

1 - Minimum  impulse  command  mode 

0 - Not  minimum  impulse 

U 

(1) 

USEQRJTS 

1 - Use  of  glmbal  not  allowed 

0 - Gimbal  may  be  used 

13 

(0) 

C3MD0CKD 

1 - CSM  attached  to  LM 

0 - CSM  not  attached 

12 

(0) 

OUREDSBIT 

1 - Still  in  rate  command  mode 

0 - Not  in  rate  command  mode 

11 

(0) 

ACC40R2X 

1 - 4“ jet  P-axls  translation 

0 - 2- jet  P-axis  translation 

10 

(1) 

AORBTRM 

1 - X translation  B system 

0 - X translation  A system 

9 

(0) 

XOVINHIB 

1 - LPD  phase;  X-axis  override  disabled 

0 - Not  in  Landing  Point  Designation  Phase 

• 

8 

(1) 

DRIFTBIT . 

1 - Assume  that  offset  acceleration  is  zero 

0 - Offset  acceleration  likely 

7 

(1) 

RiCSCALE 

1 - Normal  P£HC  scaling 

0 - Fine  KiC  scaling 

6 

(0) 

ULLAGER 

1 - Internal  ullage  request 

0 - No  program  ullage  request 

5 

(1) 

DBSL2FLG 

4 

(0) 

DESELECT 

N46  Digit 
"D"  Load 

0 

1 

2 

3. 

DAP 

Deadband  BIT  5 BIT  4 

+0.3°  0 0 

+1.00  Q 1 

+5.0°  1 0 

+5.0°  1 1 

3 

(0) 

ACCSOKAY 

1 - Computed  accelerations  probably  correct 

0 - Computed  accelerations  probably  incorrect 

2 

1 

(1) 

(o; 

ATJTRATE2 

AUTRATEl 

Used  together  to  determine  index  (RATEINDX) 
which  is  used  to  select  attitude  maneuver  rate 

• 
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DAFBOOLS  (Continued 


Mnemonic  Meaning  when  1 and  0 


032 

0.2 

0l2 

0.5 

IO2 

2.0 

II2 

10.0 

degrees/second 
degrees/second 
degrees/second 
degrees/ second 


15  (O)  CDESFLAG  1 - DIG  sends  continuous  designate  commands  to  RR 

0 - me  checks  for  lock-on  when  designating 

14  (0)  REMODFLG  1 - Remode  of  RR  antenna  is  required 

0 - No  remode  of  RR  antenna 

13  (0)  RCDUOFLG  1 - RR  CDU's  are  being  zeroed 

0 - RR  CDU's  are  not  being  zeroed 

12  (0)  ANTENFLG  1 - RR  antenna  is  in  mode  2 

0 - RR  antenna  is  in  mode  1 


11  (0)  REPOSMON  1 - RR  antenna  reposition  taking  place 

0 - No  RR  antenna  reposition  taking  place 

10  (0)  DESIGFLG  1 - RR  antenna  dssignation  taking  place 

0 - No  RR  antenna  designation  taking  place 


ALTSCALE  1 - LR  altitude  reading  on  high  scale 
0 - LR  altitude  reading  on  low  scale 


8 (0)  LRVELFLG  1 - LR  velocity  data  fail 

0 - LR  velocity  data  good 


7 (1)  RCDUFAIL  1 - RR  CDU  fail  has  not  occurred 

0,  - RR  CDU  fail  has  occurred 


6 * LRPOSFLG  1 - LR  antenna  command  to  position  #2 

0 - LR  antenna  in  position  #1 
^ - State  of  B6  CH33 

5 (0)  LRALTFLG  1 - LR  altitude  data  fail 

0 - LR  altitude  data  good 

4 (0)  RRDATAFL  1 - RR  data  fail 

0 - RR  data  good 

3 (0)  RRRSFLAG  1 - RR  range  data  on  high  scale 

0 - RR  range  data  on  low  scale 

2 (1)  AUTOMODE  1 - RR  not  in  automatic  mode 

0 - RR  is  in  automatic  mode 


1 (0)  TURNONFL 


X — KH  bUm— uii  aequeiiue  iii  px'ugi7ess 
0 - No  RR  turn-on  sequence  in  progress 
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List  of  References  to  Flagwords  and  Channels 


The  following  is  a listing  of  some  of  the  routines  in  which  the 
majority  of  the  discrete  bits  of  information  are  set,  reset,  and 
tested.  Input  channels  can  only  be  tested  (though  some  flip-flops 
are  automatically  reset  when  tested,  they  will  be  set  again  imme- 
diately if  the  relevant  hardware  signal  is  still  present).  Output 
channels  are  usually  just  set  and  reset,  but  they  can  also  be  tested 
to  assure  that  they  are  configured  as  required.  Flagwords  are  set, 
reset,  and  tested  by  the  programs.  References  refer  to  this  document, 
not  to  the  listing. 

This  list  tries  to  include  all  references  to  each  bit,  but  since 
flagwords  and  channels  can  be  addressed  in  many  different  ways  in 
the  LGC  program,  there  is  no  way  to  assure  that  all  references  are 
included  here,  (in  some  cases  references  are  deliberately  left  out 
because  the  bit  does  not  affect  the  material  presented  in  this  docu- 
ment . ) 


Channel  5 


Bit  Routines 

8 1 - WRITER 

0 - DOFSTRTl  WRITER  MOREIDLE 
test  - TRYGTS 

7 1 - WRITER 

0 - DOFSTRTl  WRITER  MOREIDLE 
test  - TRYGTS 

6 1 - WRITEV 

0 - DOFSTRTl  WRITEV  MOREIDLE 
test  - TRYGTS 

5 1 - WRITEV 

0 - DOFSTRTl  WRITEV  MOREIDLE 
test  - TRYGTS 

4 1 - WRITER 

0 - DOFSTRTl  WRITER  MOREIDLE 
test  - TRYGTS 

3 1 - WRITER 

0 - DOFSTRTl  WRITER  MOREIDLE 
test  - TRYGTS 
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Bit 


Routines 


2 1 - WRITEV 

0  - DOFSTRTl  WRITEV  MOREIDLE 
test  - TRYGTS 

1 1 - WRITEV 

0 - DOFSTRTl  WRITEV  MOREIDLE 
test  - TRYGTS 

Channel  6 

8 1 - WRITE? 

0 - WRITE?  MOREIDLE  DOFSTRTl 
test 

7 1 - WRITE? 

0 - DOFSTRTl  MOREIDLE  WRITE? 
test 

6 1 - WRITE? 

0 - DOFSTRTl  MOREIDLE  WRITE? 
test 

5 1 - WRITE? 

0 - DOFSTRTl  MOREIDLE  WRITE? 
test 

4 1 - WRITE? 

0 - DOFSTRTl  MOREIDLE  WRITE? 
test 

3 1 - WRITE? 

0 - DOFSTRTl  MOREIDLE  WRITE? 
test 

2 1 - WRITE? 

0 - DOFSTRTl  MOREIDLE  WRITE? 
test 

1 1 - WRITE? 

0 - DOFSTRTl  MOREIDLE  WRITE? 
test 

Channel  11 

14  1 - DOFSTART  IMDMON  ENGINOF3  GOFROG 

0 - IGNITION  ABRTJASK 
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Bit  Routines 


13  1 - IGNITION  GOPROG  ABRTJASK 

0  - IMUMON  ENGINOF3 

10  1 - ERROR 

0 - STARTSB2 

9 1 - READACCS 

0 - STARTSB2  AVGEND 

7 1 - V37  VBTSTLTS  DSPALARM  ALMCYCLE  CHARALRM  UPERROUT  UPEND70 

P20LEMB7  ALM/tolD  V73UPDAT  UPEND73  ABORTALM 

0 - STARTSB2  ERROR  TSTLTS3 

6 1 - FLASHSUB  TESTNN  VBTSTLTS  REQDATZ  REQMM 

0 - NV50DSP  STARTSB2  TSTLTS3  BLANKDSP  ENTER  GOLOADLV  VBRESEQ 

5 1 - CHARIN  NV50DSP  MONDO  VBTSTLTS 

0 - STARTSB2  WITCHONE  RELDSP  RELDSPl 


I  4 1 - IMUMON  VBTSTLTS 

0 - IMUMON  STARTSB2  TSTLTS3 


1 - UPRUPT  VBTSTLTS 

0 - STARTSB2  TSTLTS3  V73UPDAT  UP0UT4  ERROR  VBRELDSP 


2 1 - ADVAN 

0 - STARTSB2  DUMMYJB2 


1 1 - SETISSW  VBTSTLTS 

0 - SETISSW  TSTLTS3 
test  - ENDIMU 

Channel  12 

15  1 - ENDTNON 

0 - STARTSB2  UNZ2  CAGESUB  DOFSTRTl 
test  - IMUMON 


14  1 - R23LEM  LRS24.1  RO4X  DODES  R29D0DES 

0 - R21LEM  TRMTRACK  RRGIMON  STDESIG  RO4END  R29  P63LM 

DOFSTRTl 
test  - R22LEM 


1 - LRP0S2 

0 - STARTSB2  LRPOSCAN  DOFSTRTl 
test  - 
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Bit  Routines 


12  1 - ACDT+C12  TRIMGIMB 

0 - ACDT-K112  TRIMGIMB  SUPER JOB  MOREIDLE  DOFSTRT1  HEGUSUM 
test  - SPSCONT 


11-9  same  as  12 

8 1 - LANDISP 

0 - STARTSB2  IMUMON  DISPRSET  DOFSTRT1 

6 1 - NEEDLER  GOARS  IMUATTCK  GOPROG  CA+ECE  DOFSTRTI 

0 - NEEDLER  IMUMON  CAGESUB  SETCOARS  IMUZERO  DOFSTRTI 
test  - NEEDLER 

5 1 - IMUZERO  ISSZERO  CAGESUB 

0 - IMUMON  UNZ2  IMUZER02  IMUFINE  DOFSTRTI 
test  - IMUATTCK 

4 1 - SETCOARS  CAGESUB  GOPROG  DOFSTRTI 

0 - IMUMON  UNZ2  IMUZERO  IMUFINE  DOFSTRTI 
test  - TNONTEST  GLOCKMON  IFAILOK  IMUATTCK  SETCOARS  8192AUG 
TSTLTS3 

2 1 - SETRRECR  INTLZE 

I 0 - STARTSB2  RRAUTCHK  RRGIMON  DORREPOS  TRMTRACK  STDESIG  RESET 22 

IMUMON  R24EaJD  R24LEM3  RRDESDUN  RRDESEND  POOH  RR1AX2  RRDESNB 

I R29DPAS2  DOFSTRTI  PR0G20A  R21LEM9  DISPRSET  P12LM 

test  - SETRRECR 

1 1 1 - RRZEROSB  NORRGMON 

0 - STARTSB2  RRZEROSB  DOFSTRTI 


Channel  13 


15 

1 

- JTLST  T6JOBCHK 

0 

- 

STARTSB1  DOFSTRTI 

14 

1 

- none 

0 

- DOFSTRTI 

13 

1 

- none 

0 

- DOFSTRTI 

12 

1 

- REDESMON 

STARTP64  STARTSB2 

0 

- DOFSTRTI 
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Bit  Routines 


11  1 - P06 

0  - ROSTAND  STARTSB2  DOFSTRTl 
10  1 - VBTSTLTS 

0 - ERROR  TSTLTS3  STARTSB2  DOFSTRTl 

9 1 - ZEROENBL 

0 - STARTSB2  DOFSTRTl 

8 1 - ZEROENBL 

0 - STARTSB2  DOFSTRTl 

7 1 - DODOWNTM 

0 - DOFSTRTl  WOZERO 
test  - DODOWNTM 
6-5  not  set  in  LUMINARY 


4 1 - RADSTART 

0 - . . STARTSB2  DOFSTRTl 

I test  - C13STALL  VBTSTLTS  ^ 

3 1 - RADSTART 

I 0 - - ^ STARTSB2  DOFSTRTl 

test  - RADAREAD 

2 1 - RADSTART 

0 - . ■ STARTSB2  DOFSTRTl 

test  - RADAREAD 

1 1 - RADSTART 

0 - . I . STARTSB2  DOFSTRTl 
test  - RADAREAD  RENDRAD 

Channel  14 

I 15  1 - C0ARS2  ATTCK2  NEEDLES 

0 - DOFSTRTl  IMUMON  STARTSB2 

I 14  1 - C0ARS2  ATTCK2  . . NEEDLES 

0 - DOFSTRTl  IMUMON  STARTSB2 

I 13  1 - C0ARS2  ATTCK2  . NEEDLES 

0 - DOFSTRTl  IMUMON  STARTSB2 

12  1 - RROUT  SPEEDRUN 

0 - DOFSTRTl  IMUMON  STARTSB2 
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Bit  Routines 

11  1 - RRODT  SPEEDRDN 

0 - IMBMON  STARTSB2  DOFSTRTl 

10  1 - GIROEXIT 

0 - STRTGYRO  IMUMON  SETCOARS  STARTSB2  DOFSTRTl 
9 1 - STRTGYR2 

0 - STRTGYRO  IMUMON  STARTSB2  DOFSTRTl 
8 1 - STRTGYR2 

0 - STRTGYRO  IMUMON  STARTSB2  DOFSTRTl 
7 1 - STRTGYR2 

0 - STRTGYRO  IMUMON  STARTSB2  DOFSTRTl 

6 1 - IMUPULSE 

0 - IMUMON  DOFSTRTl 

4 1 - GOPROG  DOIT  P40Z00M  THROTUP  ENGIN0F3 
0 - STARTSB2  DOFSTRTl 

3 1 - ALTROUTl  ALT0UT1 

0 - STARTSB2  DOFSTRTl 

2 1 - ALTROUTl 

0 - ALTOUTl  STARTSB2  DOFSTRTl 

Chemnel  15 

Tested  in  routines  KEYRUPTl  and  LIGHTSET  - 5 LIGHTSET 

2 LIGHTSET 

Channel  16 

7 DESCBITS  SCMEKEY 
6 SCMEKEY 

5 LIGHTSET  MARKRUPT 

4 MARKRUPT 

3 MARKRUPT 
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Channel  30 


Bit  Routines  in  which  bit  is  tested 
Bits  15-11  are  tested  only  in  IMUMON 
10  P40AUT0  REDCmNC  R61G+L02  FINDCDUW  CHEKBITS 
9 IMUMON 

7 RRCDUCHK 

6 LANDISP 

5 P40AUTO  LDNLAND 

4 R10,R11 

1 R10,R11 

Channel  31 

Bit  Routines  in  which  bit  is  tested 
15  DETENTCK  CHEKSTIK 

14  P40AUT0  REDCMANC  NEWDELHI  IMUATTCK  FINDCDUW  R61C+L02 ' CHEKBITS 

13  TSNEXTP  TSNEXTS  IMHATTCK  DETENTCK  QRAIIS  CHEKBITS  • LUNLAND 

STEER?  EXVERT  REDESMON  I4O6ALM 

12-9  CHKVISFZ 

8 RCS 

7 RCS 

6 TSNEXTS  PITFALL  REDESMON 

5 TSNEXTS  PITFALL  REDESMON 

4 TSNEXTP 

3 TSNEXTP 

2 TSNEXTS  PITFALL  REDESMON 

1 TSNEXTS  PITFALL  REDESMON 
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Channel  32 


Bit  Routines 

14  PROCEEDE 
9 DVMON 

8-1  RCSMONIT 

Channel  33 

15 

14 

13  C33TEST 
12  C33TEST 
11  C33TEST 
9 LRHEIGHT  R04Z 

8 INITREAD  DGCHECK  SCALCHNG  R77CHECK 

7 LRP0S2  LRPOSCAN  P2CHK  MUNRETRN  LRPOSOUT 
6 DORSAMP  ASTNRET  MUNRETRN  RO4Z  pICHK  LRPOSOUT 
5 DGCHECK  INITREAD  SCALCHNG  R77CHECK 

4 DODES  INITREAD  DGCHECK  SCALCHNG  DATGDCHK  R29DPAS2  R61C+L01 
3 RENDRAD  LRS22.1  RO4Z 
2 RRAUTCHK  RO4X  R22LEM  P20LEMB7 
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FLAGWRDO 


Bit  Mnemonic  Routines 


15  NEED2FLG  1 - RATEDISP 

0 - R60LEM  DAPATTER  TOTATTER  DOFSTRTl 
test  - ALTDSPLY 

U JSWITCH  1 - ENDSTATE 

0 - INTGRATE  DOFSTRTl 

test  - NBRANCH  DIFEQ+2  NEXTCOL  INTGRATE 

13  MIDFLAG  1 - TESTLOOP 

0 - TESTLOOP  DOFSTRTl 
test  - TIMESTEP  ACCOMP  DOW.. 


MOONFLAG  1 - P21C0NT  INTEGRV  ORIGCHNG  INTWAKEU  INITVEL2  INTINT  REV83 
P76  USEPIOS  ATTACHIT  EXGSUB  OTHINT 
0 - P21C0NT  INTEGRV  ORIGCHNG  INTWAKEU  INITVEL2  INTINT  REV83 
P76  ATTACHIT  DOFSTRTl  OTHINT 
test  - INTEGRV  INTEGRVS  RECTOUT  TIMESTEP  ORIGCHNG  ACCOMP 
OBLATE  ENDSTATE  KEPPREP  A-PCHK  INTWAKEU  P76 
DOW. . ATTACHIT  ORBCHGO 

P21FLAG  1 - P21VSAVE 

0 - GOPROG3  DOFSTRTl 
test  - PR0G21 

FSPASFLG  1 - R21LEM4 

0 - 60TIMES  DOFSTRTl 
test  - 60TIMES 


9 P25FLAG  1 - PROG25 

0 - TRMTRACK  POOH  RESET22  P63LM  DOFSTRTl 
test  - TRMTRACK  CANV37  RESET22  P25LEM1  V37RET 


8 IMUSE  1 - IMUCHK  R02B0TH 

0 - TRMTRACK  IMUMON  CANV37  POOH  P06  ENDTEST1  DOFSTRTl 
RESET 22  S0MERR2 

test  - AGSVCALC  TNONTEST  ENDTNON  IMUMON 


RNDVZFLG  1 - PR0G20A 

0 - TRMTRACK  IMUMON  POOH  P06  RESET22  i P1 2LM  DOFSTRTl 
P63LM  PROG25 

test  - CANV37  RESET22  RRCDUCHK  P20LEMC  P20LEMC1  TRMTRACK 
R22LEM  CALLDGCH  LUNDESCH  V37RET  CSMINT  RELINUS 

RRNBSW  1 - RRDESNB 

0 - RRDESSM  DOFSTRTl  CSMINT 
test  - DODES 
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FLAGWRDO  (Continued) 


Bit  Mnemonic  Routines 


5 LOKONSW  1 - VBCOARK  R21LEM1 

0 - VBCOARK  DOFSTRT1  R21LEM  R21LEM8 
test  - DODES 

4 NEEDLFLG  1 - . R60LEM 

0 - DAPATTER  DOFSTRTI  TOTATTER 

test  - ALTDSPLY 


3 


2 


1 


FREEFLAG  1 - LSPOS  CHKSDATA  GVDETER 

0 - LSPOS  CHKSDATA  GVDETER  DOFSTRTI 
test  - P51C  R51E  SURFLINE  GVDETER 

R1QFLAG  1 - P12LM  ABRTJASK 
0 - DOFSTRTI 

test  - DISPRSET  SPEEDRUN  LANDISP 

OLDESFLG  1 - R29.L0S 

0 - R29  DOFSTRTI 
test  - R29.L0S 
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FLAGWRDI 


Bit 

Mnemonic 

Routines 

15 

NJETSFLG 

1 - DPDAT1 

0 - DPDAT1  D0FSTRT1 
test  - P41LM 

14 

DIDFLAG 

1 - LANDISP 

0 - G0PR0G3  DISPRSET  D0FSTRT1 
test  - LAND ISP 

13 

ERADFLAG 

1 - never  set 

0 - D0FSTRT1  P52LS  P57P0ST  P21VSAVE 
test  - LAT-LONG  LALOTORV 

12 

RDDFLAG 

1 - STRTP66A 

0 - G0PR0G3  D0FSTRT1 
test  - RESTART? 

10 

R61FLAG 

1 - R61LEM 

0 - R65LEM  D0FSTRT1 
test  - R61G+L06 

8 

VEHUPFLG 

1 - ORBCHGO  CSMVEC 

0 - LEMVEC  PR0G20  D0FSTRT1 

test  - UPPSV  LSR22.3  RANGEBQ  FAZC  FAZAB3 

7 

UPDATFLG 

1 - RESET22  PR0G20A  P34  834/35.5  P35  P30  P32  P32/P72C 
P33  P33/P73B  P75  P74  P72  P73 

0 - TRMTRACK  SEUDOPOO  P30  CLUDATE  D0FSTRT1 
test  - R22LEM 

6 

NOUPFLAG 

1 - UPDATOFF 

0 - LEMVEC  CSMVEC  D0FSTRT1 
test  - R22LEM 

5 

TRACKFLG 

1 - RESET22  PR0G20A  PR0G25  P34  P35  P30  P32  P33  P72 

P73  P74  P75  P76 

0 - RNDREFDR  TRMTRACK  SEUDOPOO  D0FSTRT1 
test  - TRMTRACK  P20LEMC  P20LEMD1  R22LEM  P25LEM1 

P20LEMC1  RDRUSECK  P20LEMB  RELINUS  R61C+L02 

3 

SLOPESW 

1 - LAMBERT 

0 - ITERATOR  D0FSTRT1 
test  - ITERATOR  LAMBLOOP 

2 

GUESSW 

1 - INITVEL 

0 - INITVEL2  D0FSTRT1 
test  - LAMBERT 
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FLAGWRD2 


Bit  Mnemonic  Routines 

15  DRIFTFLG  1 - P5IB  CAL53A  UNZ2  AVGEND  GYCOARS  INITBY 
0 - RNDREFDR  PREREAD  GYCOARS  DOFSTRTl 
test  - SVCT3  NBDONLY  UNZ2 

14  SRCHOPTN  1 - R24LEM 

I 0 - P20LEMB3  PR0G20A  DOFSTRTl  TRMTRACK 

I test  - P20LEMB3  LRS24.1  DORROUT 

13  ACMODFLG  1 - P20IiEMBl 

0 - P20LEJ4B3  PR0G20A  DOFSTRTl 
test  - P20LEMB3 

I 12  LOSCMFLG  1 - R21LEM10  BEGDES29  R29.L0S 

0 - RRDESDDN  R29.L0S  R21LEM1  R29DPAS2  PR0G20A  R24LEM 
R29  DOFSTRTl  R21LEM4  RRDESNB 
test  - BEGDES29  R29.LOS  DORROUT  LPS20.1 


11  STEERSW 


1 - DVMCM 

0 - AVERAGEG  DOFSTRTl  VGAIN* 


test  - VGAIN^  STEER? 


9 IMPULSW  1 - S4O.I32  VGAIN* 

0 - STEERING  S4O.I3  P42IGN  DOFSTRTl 
test  P42IGN  STEERING 

8 XDELVFLG  1 - P30  ADVANCE 

0 - ' INITVEL7  DOFSTRTl 

test  - S40.I  UPDATEVG  S4O.8 

7 ETPIFLAG  1 - P34  P74 

0 - P34  P74  DOFSTRTl 

test  - P34/P74C  INTLOOP  ELCALC 


I 6 FINALFLG 


1 - N45PROC  P30 
0 - SELECTMU  DOFSTRTl 
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FLAGWRD2  (Continued) 


Bit  Mnemonic  Routines 

5 AVFLAG  1 - P42STAGE:  S40.9  P34  P35  P32  P33 

0 - P74  P75  P72  P73  DOFSTRTl 

test  - PRECSET, 


4 PFRATFLG  1 - 340.2,3 

0 - R51E  GYCOARS  REGCOARS  DOFSTRTl 
test  - PR0G52 


3 CALCMAN3  Not  really  functional;  set  in  KALCMAN3;  reset 
in  DOFSTRTl 

2 CALCMAN2  1 - WCALC 

0 - NEWANGL  DOFSTRTl 
test  - NEWANGL 


1 NODOFLAG  1 - AGSVCALC  STATINTl  P06 

0 - AGSVCALC  STATINTl  POOH  POSTAND  DOFSTRTl  POODOO 
test  - V37 
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FLAGWRD3 


Bit 

Mnemonic 

Routines 

15 

POOHFLAG 

1 - STATINT1 

0 - CANV37  D0FSTRT1 
test  - TESTLOOP 

14 

GLOKFAIL 

1 - CALCGA 

0 - REDO  CANV37  D0FSTRT1 
test  - REDO 

13 

REFSMFLG 

1 - P51C  GICOARS  REGCOARS  STJRFDISP 

0 - RNDREFDR  GYCOARS  GVDETER 

test  - AGSINIT  R02B0TH  VN1645  PACKOPTN  DSPOPlN  R59 

12 

LUNAFLAG 

1 - LANDJUNK  P52LS  P57POST  P21VSAVE 

0 - DOFSTRTl  P21VSAVE 
test  - LAT-LONG  LALOTORV 

11 

N0R29FLG 

1 - AVCSBMD  DOFSTRTl 

0 - CMPCBJENT 

test  - COPYCYCl  STARTSB2  R29RDJ0B  RDRUSECK 

10 

VFLAG 

1 - R56  PIC3 

0 - PIC3  DOFSTRTl 
test  - PIC3  PICEND 

9 

R04FLAG 

1 - R04  R61G+L01 

0 - R04END  CA1IV37  PR0G20A  DOFSTRTl  R61C+L01  STARTSB2 
test  - R04Z  RADAREAD  RESAMPLE  R77 

READRFLG 

1 - R29DPAS2 

0 - ENDRRD29  STARTSB2  DOFSTRTl 
test  - R29READ  COPYCYCl 

8 

PRECIFLG 

1 - STATINTl  CSMPREC  INTEGRVS  LEMPREC 

0 - STATINTl  INTEXIT  DOFSTRTl 
test  - TESTLOOP 

7 

CULTFLAG 

1 - OCCULT 

0 - OCCULT  DOFSTRTl 
test  - PIC3 

6 

ORBWFLAG 

1 - never  set 

0 - WMATEND  INTWAKEU  DOFSTRTl 
test  - AVETO^ID 

1 5 

STATEFLG 

1 - SETIFLGS  WMATEND  LSR22.3  LSR22.4  , 

0 - ENDINT  TESTLOOP  DOFSTRTl  POODOO  INTEXIT 
test  - A-PCHK 
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Bit  Mnemonic 
1 4 INTYPFLG 


3 VINTFLAG 


2 D60R9FLG 


1 DIMOFLAG 


FLAGtfRD3  (Continued) 

Routines 

1 - OTHCONIC  CSMCONIC  LEMCONIC  INTINT  EXGSUB  REV83  I- 

0 - MIDT0AV2  SETIFLGS  CSMPREC  LEMPREC  MIDTOAVl  MTI'TOAV? 

P76  LSR22.3  LSR22.4  INITVEL2  INTINT  ORBCHGO 
DOFSTRTl  GETRVN  PR0G21 
test  - ALOADED 

1 - STATINTl  CSMPREC  CSMCC»JIC  AVETOMID  DPPSV  LSR22.3 

LSR22.4  ORBCHGO  PR0G21 

0 - STATINTl  LHMPREC  LEMCONIC  AVETCMID  _ MIDT0AV2 

UPPSV  LSR22.3  LSR22,4  DOFSTRTl  ORBCHGO  PR0G21 
test  - INTEGRV  ENDSTATE  A-PCHK 

1 - STATINTl  AVETOMID  UPPSV  LSR22.3  ORBCHGO 

0 - ORBCHGO  SETIFLGS  LSR22.4  DOFSTRTl 

test  - ENDSTATE 

1 - STATINTl  AVETMD  DPPSV  LSR22.3  LSR22.4  ORBCHGO 

0 - SETIFLGS  CSMPREC  LEMPREC  CSMCONIC  LEMCONIC  INTEGRVS 
WMATEND  MIDT0AV2  LSR22.3  ORBCHGO 

DOFSTRTl  PR0G21  P21C0NT 
test  - ACCOMP  ENDSTATE 
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FLAGWRDA 


Bit  Mnemonic  Routines 


15  MRKTDFLG  1 - FLASHSDB 

0 - JOBXCHS  ENDRET  STARTSB2  DOFSTRTl 

test  - OKTOPLAY  MAKEPRIO  FLASHSUB  TERMATE  PINBRNCH 


14  PRIODFLG  1 - FLASHSUB 

0 - ENDRET  STARTSB2  DOFSTRTl 

test  - NORMBWCH  MAKEMARK  MAKEPRIO  PINBRNCH  ENDEXT  OKTOPLAY 
TESTXACT  TERMATE 

13  NRMIDFLG  1 - FUSHSDB 

0 - JOBXCHS  ENDRET  STARTSB2  DOFSTRTl 

test  - MAKEPLAY  MAKEMARK  MAKEPRIO  PINBRNCH  ENDEXT 

I 12  PDSPFLAG  1 - R61C+L02  RELINUS 

I 0 - STARTSB2  R61C+L02  DOFSTRTl 

test  - OKTOPLAY  MAKEMARK  CHKLINUS  TESTXACT  R61TEST 


11  MWAITFLG  1 - MAKEMARK 

0 - MARKWAKE  STARTSB2  DOFSTRTl 
test  - OKTOPLAY  MAKEMARK  NORMRET 

10  NWAITFLG  1 - OKTOPLAY 

0 - NORMWAKE  STARTSB2  DOFSTRTl 
test  - MAKEPLAY  NCRMRET 


9 MRKNVFLG  1 - NV50DSP 

0 - JOBXCHS  NV50DSP  STARTSB2  DOFSTRTl 
test  - OKTOPLAY  MAKEMARK  MAKEPRIO  WTTCHGWE 

8 NRMNVFLG  1 - NV5ODSP  . 

0 - JOBXCHS  NV50DSP  STARTSB2  DOFSTRTl 
test  - MAKEPLAY  MAKEMARK  MAKEPRIO  WITCHCWE 


7 PRONVFLG  1 - NV5ODSP 

0 - NV50DSP  STARTSB2  DOFSTRTl 

test  - OKTOPLAY  MAKEMARK  MAKEPRIO  WITCHONE  TESTXACT 


6 PINBRFLG  1 - NORMBNCH 

0 - ENDRET  STARTSB2  DOFSTRTl 
test  - FLASHSDB 

5 MRDPTFLG  1 - JOBXCHS 

0 - MARKWAKE  STARTSB2  DOFSTRTl 
test  - OKTOPLAY  MAKEMARK  NORMRET 
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FLAGWRDA  (Continued) 


Bit  Mnemonic  Routines 

4 NRDPTFLG  1 - JOBXCHS 

0 - NORMWAKE  STARTSB2  DOFSTRTl 
test  - MAKEPLAY  NORMRET 

3 MKOVFLAG  1 - MAKEMARK 

0 - MARKPLAI  MARKRET  STARTSB2  DOFSTRTl 
test  - JOBXCHS 


1 IDSPFLAG  1 - AGSVGALC  MARKPLAY 

0 - ENDEXT  STARTSB2  DOFSTRTl  GOTOPOOH 
test  - OKTOPLAY 
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FLAGWRD5 


Bit  Mnemonic  Routines 


15  DSKYFLAG  1 - KEYRUPTl 

0 - DOFSTRTl 
test  - T4RDPT 

13  SNUFFER  1 - SNUFFODT 

0 - OUTSNDFF  DOFSTRTl 
test  - AFTERTJ 


12  NOTHROTL  1 - S40.13  S40.13D 

0 - P40LM  S40.13D  P63DM  DOFSTRTl 
test  - P40IGN 

11  R77FLAG  1 - R77 

0 - R77END  DOFSTRTl  STARTSB2 
test  - R77CHECK  DORSAMP  RDRUSECK 


10  RNGSCFLG  1 - SCALCHNG 

0 - LRS22.1  LRHJOB  R29RANGE  DOFSTRTl 
test  - READRDOT  LRHJOB  R29RANGE 


9 mENFLG  1 - LSR22.3 

0 - LSR22.4  DOFSTRTl 

test  - INCORPl  INC0RP2  FAZAB3  INC0R2-3 

8 ZOOMFLAG  1 - P63Z0(»4 

0 - TIG-5  DOFSTRTl 
test  - LUNLAND 


7 ENGONFLG  1 - IGNITION  ABRTJASK 

0 - ENGIN0F3  IMUMON  DOFSTRTl 
test  - GOPROG  DCMCL 

6 3AXISFLG  1 - R62DISP 

0 - R52  ENIMANUl  V89RECL  P4OIN  P4IIM  CANV37 
DOFSTRTl  R61C+L02 
test  - R60LEM  REDCMANC 


5 AORBSFLG  1 - PURGENCY  PJETSLEC 

0 - PURGENCY  PJETSLEC  DOFSTRTl 
test  - TSNEXTP  PEGI  PURGENCY 
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FLAGWRD5  (CONTINUED) 


Bit  Mnemonic  Routines 


4 NORRMON  1 - VBCOARK  R23LiM  R21LEM8 

0 - RRDESEND  STARTSB2  PR0G20A  R23LEM  R23LEM2  DOFSTRTl  R21LEM1 
test  - RRGIMON 


3 SOLNSW  1 - TIMERAD  SOFPCHEK  LAMBERT 

0 - TIMERAD  DOFSTRTl  LAMBERT 
test  - none  (telemetry) 

2 MGLVFLAG  1 - GET.LVC 

0 - GET+MGA  DOFSTRTl 
test  - none  (telemetry) 

1 RENDWFLG  1 - WLINIT 

0 - WMATRXNG  VfMATEWD  INTWAKEU  V67CALL  DOFSTRTl  ATMAG 
test  - STATINTl  AVETOMID  DPPSV  ORBCHGO  LSR22.3 
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FLAGWRD6 


Bit  Mnemonic  Routines 

15  S32.1F1  1 - CSI/B2 

0 - CSI/A  SCNDSOL  DOFSTRTl 
test  - CSI/B2 

U S32.1F2  1 - CSI/A  SCNDSOL 

0 - FRSTPAS  DOFSTRTl 
test  - CIRCL 


13  S32.1F3A  1 - CIRCL  FIFTYFPS 

0 - CSI/A  SCNDSOL  DOFSTRTl 
test  - CSI/B2  CIRCL  SCNDSOL 

12  S32.1F3B  1 - CSI/A  FIFTYFPS 

0 - CIRCL  SCNDSOL  DOFSTRTl 
test  - CSI/^2  CIRCL  SCNDSOL 


10  GMBDRVSW  1 - PITCHOFF 

0 - TRIMGIMB  DOFSTRTl 
test  - PITCHOFF 


8 MUNFLAG  1 - P63LM  P12m 

0 - AVGEND  DOFSTRTl  CANV37 

test  - NORMLIZE  READACCS  AVERAGEG  RRGIMON  P41SP0T.  SERVIDLE 
V83CALL  GETRVN 


6 REDFLAG  1 - P64DISPS 

0 - P64DISPS  STARTP64  P63LM  DOFSTRTl  VRSTART 
test  - P64DISPS  REDESIG 

3 NTARGFLG  1 - NTARGCHK 

0 - S34/35.5  DOFSTRTl 
test  - Not  shown  in  document 
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FLAGWRD6  (Continued) 


Bit  Mnemonic  Routines 


2 AUXFLAG  1 - AVERAGEG 

• 0 - AVERAGEG  DOFSTRTl 

test  - AVERAGEG 


1 ATTFLAG  1 - REFMF 

0 - DOFSTRTl 

test  - PACKOPTN  DSPOPTN  ATTCHK 
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FLAGWRD7 


Bit  Mnemonic 
15  ITSWICH 

13  IGNFLAG 


Routines 

1 - P34/P74C  P33A73B 

0 - P34/P74C  INTLOOP  DOFSTRTl 
test  - INTLOOP  ELCALC 

1 - TIG-0 

0 TIG-5  P42IGN  DOFSTRTl 
test  - ^PROCEED 


12  ASTNFLAG 


11  SWANDISP 


1 - ^PROCEED 

0 - TIG-5  P42IGN  DOFSTRTl 
test  - TIG-0 

1 - P63IGN  ABRTIGN 
0 - DOFSTRTl  AVOEND 
test  - LANDISP 


10  NORMSW 


I 9 RVSW 


1 - INITVEL2 

0 - PARAM  DOFSTRTl  HAVEGUES 

test  - S40.1B  S40.9  GEOM  UPDATEVG  RASTEERl 


1 - INTLOOP  CSI/B2 
0 - CDHMVR  DOFSTRTl  ORBCHGO 


VN0611 


test  - CCMMNOUT 


8 V67FLAG 


7 IDLEFLAG 


1 - V67CALL 

0 - DOFSTRTl  V67CALL 
test  - V67CALL 

1 - STEERING  ENGINOFl  CCMFAIL  DOFSTRTl  MAINENG 

SERVIDLE 

0 - P42IGN  GOABORT  C0MFAIL4 
test  - STEERING  AVERAGED  MAINENG 


6 V37FLAG  1 - PREREAD 

0 - DOFSTRTl  AVGEND 
test  - V37  POODOO  RDRUSECK 


5 AVEGFLAG 


4 UPLOCKFL 


1 - PREREAD 
0 - V37  DOFSTRTl 

test  - V82CALL  READACCS  REV83  RRGIMON  P70  P71  RlO.Rll 
V83CALL 


1 - DPRDPT 
0 - UPRDPT  DOFSTRTl 


test  - UPRUPT 
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FLAGWRD7  (Continued) 


Bit  Mnemonic  Routines 

3 VERIFLAG  1 - UPSTORE 

0 - UPSTORE  DOFSTRTl 
test  - none  (for  telemetry) 

2 V82EMFLG  1 - V82G0FF1  V82G0N1 

0 - V82G0FF1  V82G0N1  DOFSTRTl 

test  - SR30.1 

1 TFFSW  1 - CALCTPER 

0 - CALCTFF  DOFSTRTl 
test  - CALCTFF 
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FLAGWRD8 


Bit  Mnemonic 


Routines 


15  RPQFLAG  1 - INTEGRV  INTEGRVS  GOBAQDE 

0 - ACCGMP  DOFSTRTl 
test  - TIMESTEP  LUNSPH 

13  NEWIFLG  1 - INTEGRV  INTEGRVS 
0 - TESTLOOP  DOFSTRTl 
test  - TESTLOOP 


12  CMOONFLG  1 - ENDSTATE  A-PCHK  INTWAKEU  P76  ATTACHIT  ORBGHGO 
0 - ENDSTATE  A-PCHK  INTWAKEU  P76  ATTACHIT  ORBGHGO 
test  - INTEGRV  SELECTMU  INTINT  CSI/B2  P76 

11  LMOONFLG  1 - ENDSTATE  A-PCHK  INTWAKEU 
0 - ENDSTATE  A-PCHK  INTWAKEU 

test  - V82G0N1  AVETOMID  INTEGRV  FAZC  ATTACHIT  REV83 
OTHINT 


10  FLUNDISP  1 - CCMFAIL 

0 - GOABORT  IGNITION  GOCUTOFF  C0MFAIL4  DOFSTRTl 
test  - DISPEXIT  ASCTERMl 


8 SURFFLAG 


7 INFINFLG 


1 - LANDJUNK 

0 - ATMAG 

test  - CHANGEVB  YMKRUPT  RRDESSM  ATTACHIT  NBDONLY  WLINIT 
V67CALL  P20LEMA  STATINTl  LSR22.3  R21LEM  RANGEBQ 
R22LEM  R24LEM3  SERVICER  LUNDESCH  LPS20.1  P20LEMB7 
PR0G20  AVESTAR  VAC ST OR  SURFAGAN  MARKRUPT  UPPSV 
R22LEM42  INTEGRV  LAS TB IAS  REV83  P21VSAVE  UPPSV4 
V83CALL  RANGEBQ  R21LEM1  ATTACHED 

1 - INFINITY 

0 - POLYCOEF  DOFSTRTl 
test  - CCMMNOUT  LAMBLOOP 


6 ORDERSW 


1 - none 
0 - DOFSTRTl 
test  - ITERATOR 


5 APSESW  1 - TIMERAD 

0 - TIMERAD  DOFSTRTl 
test  - none  (telemetry) 
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FLAGWRDB  (Continued) 


Bit  Mnemonic  Routines 

4 COGAFLAG  1 - TIMERAD  TIMETHET 

0 - COMMNOUT  PARAM  DOFSTRTl 
test  - none  (telemetry) 

2 INITALC2J  1 - BTIMATT 

0 - DOFSTRTl  ATTCHK 

test  - SURFDISP  INITBY  SDRFLINE 

1 360SW  1 - GETX  WLOOP 

0 - GETX  DOFSTRTl 
test  - POLYCOEF 
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FLAGWRDS 


Bit  Mnemonic 


1 14  FLVR 


13  P7071FLG 


12  FLPC 


Routines 

1 - P12LM  INJTARG 

0 - CMPONENT  DOFSTRT1 
test  - CMPONENT 

1 - GOABORT 

0 - DOFSTRT1 

test  - ASCENT  CMPONENT 

1 - MAINENG 
0 DOFSTRTl 
test  - MAINENG 


11  FLPI 


1 - P12LM 

0 - P12RET  DOFSTRTl 
test  - CMPONENT 


10  FLRCS 


9 LET ABORT 


1 8 FLAP 


6 ROTFLAG 


1 - CUTOFF 

0 - GOABORT  DOFSTRTl 

test  - ASCTERMl  ASCTERM  ASCENT  ATMAG 

1 - P63I(3J 

0 - LANDJUNK  TERMASC  GOABORT  DOFSTRTl 
test  - P70  P71  R10,R11 

1 - UPTHROT 

0 - DOFSTRTl 

test  - GOABORT  P12INIT 

1 - INJTARG 

0 - DOFSTRTl  CMPONENT 
test  - CMPONENT 


5 QUITFLAG 


1 - VERB96 

0 - STATINTl  DOFSTRTl 
test  - STATINTl  TESTLOOP 


3 MIDIFLAG 


2 MIDAVFLG 


1 - MIDTOAVl 

0 - MIDTOAVl  MIDT0AV2  CKMID2  DOFSTRTl 
test  - CKMID2 

1 - MIDT0AV2 

0 - MIDT0AV2  DOFSTRTl 
test  - ENDSTATE 


1 AVEMIDSW 


1 - AVETOMID 
0 - INTEXIT  DOFSTRTl 
test  - SVDWN2 
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FLGWRDIO 


Bit  Mnemonic  Routines 

14  INTFLAG  1 - INTSTALL 

0 - TNTWAKEl  GOPROG  G0PR0G2A  DOFSTRTl 
test  - INTSTALL 


13  APSFLAG  1 - LAND  JUNK  DPDATl  ABRTJASK  WANTAPS 

0 - DPDATl 

test  - P40IW  P42LM  S40.13  RCS  l/ACCS  DAPDATAl 

DAPDATA2  SER7ICER  P4OAUTO  DVMON  AFTERTJ  S4O.I3O 

7 REINTFLG  1 - ENDSTATE  A-PCHK  P76  UPJOB  INC0RP2 
0 - GOPROG2A  INTWAKEl  DOFSTRTl  POODOO 
test  - INTSTALL  INTWAKE 
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FLGWRDll 


Bit  Mnemonic  Routines 

15  LRBYPASS  1 - SERVIDLE  ABRTJASK  CANV37  DOFSTRTl 

0 - P63LM 

test  - MDNRETRN  RlO.Rll  RDRUSECK  RADAREAD  RESAMPLE 

12  VXTNH  1 - VMEASCHK 

0 - ABRTJASK  VMEASCHK  DOFSTRTl  CANV37  SERVIDLE 

test  - VMEASCHK 


11  PSTHIGAT 


10  NOLRREAD 


9 XORFLG 


1 - MDNRETRN 

0 - ABRTJASK  DOFSTRTl  CANV37  SERVIDLE 
test  - MDNRETRN  DPDATCHK 

1 - MDNRETRN 

0 - ABRTJASK  POSGOOD  DOFSTRTl  CANV37  SERVIDLE  P1GHK 
test  - DPDATCHK  R10,R11  MDNRETRN 

1 - MDNRETRN 

0 - ABRTJASK  DOFSTRTl  CANV37  SERVIDLE 
test  - MDNRETRN 


8 LRINH  1 - SET57 

0 - ABRTJASK  LROFF  DOFSTRTl  CANV37  SERVIDLE  RESET57 
test  - NOREASON  VMEASCHK 


7 VELDATA  1 - LRVJOB 

0 - ABRTJASK  CONTSERV  DOFSTRTl  CANV37  SERVIDLE 
test  - VMEASCHK 


6 LRP0S2FLG  1 - POSGOOD 

0 - ABRTJASK  SERVIDLE  DOP’STRTI  CANV37 
test  - 

5 READVEL  1 - VALTCHK 

0 - ABRTJASK  DOFSTRTl  CANV37  SERVIDLE 
test  - VALTCHK 


4 RNGEDATA  1 - LRHJOB 

0 - CONTSERV  ABRTJASK  DOFSTRTl  CANV37  SERVIDLE 
test  - DPDATCHK 

3 N0511FLG  1 - P1CHK 

0 - ABRTJASK  SERVIDLE  DOFSTRTl  ■CANV37 
test  - MDNRETRN 
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FLGWRDll  (Continued) 


Bit  Mnemonic  Routines 

2 VFLSHFLG  1 - VMEASCHK 

0 - ABRTJASK  VMEASCHK  ONLITES  DOFSTRTl  CANV37  SERVIDLE 
test  - RlO.Rll  RADLITES 

1 HFLSHFLG  1 - UPDATCHK 

0 - ABRTJASK  UPDATCHK  ONLITES  DOFSTRTl  CANV37  SERVIDLE 
test  - R10,R11  RADLITES 
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RADMODES 


Bit 

Mnemonic 

15 

CDESFLAG 

14 

REMODFLG 

13 

1 

RCDUOFLG 

12 

ANTENFLG 

1 

11 

REPOSMON 

10 

i 

DESIGFLG 

1 

9 

ALTSCALE 

8 

LRVELFLG 

7 

RCDUFAIL 

6 

1 

LRPOSFLG 

Routines 

1 - VBCOARK  LRS24.1  R21LEM8 

0 - VBCOARK  TRMTRACK  ITURN0N2  STARTSUB  POOH  RRAUTCffiC  P12LM 

R24END  R24LEM3  RRDESEND  RRDESNB  RESET22  PR0G20A  R21LEM9 
test  - RRDESEND  STDESIG  DODES 

1 - RRDESSM  RRDESNB  R29 

0 - ITURN0N2  STARTSUB  STARTSB2  RRADTCHK  REMODE 
test  - RRGIMON  RR1AX2  BEGDES  LRS24.1  COPYCYCl 

1 - RRADTCHK  RRZERO 

0 - ITURN0N2  STARTSUB  STARTSB2  RRZEROSB  RRADTCHK 

test  - RRGIMON  SETTRRF  P20LEMB3  R22LEM  COPYCYCl  RRCDUCHK 


1 - RRZEROSB  RMODTNV 
0 - ITURN0N2  STARTSUB  RRZEROSB  RMODTNV 
test  - DORREPOS  RRLIMCHK  RRANGLES  RMODTNV  REMODE  DODES 
RRLIMNB  R29  R21LEM 


T - RRGIMON  R29 

0 - ITURN0N2  STARTSUB  STARTSB2  RRADTCHK  DORREPOS  RRUX2 
PREPOS29 

test  - RRGIMON  RR1AX2  STARTDES  STDESIG  DORROITT  RRZERO 
RENDRAD  COPYCYCl 


1 - STARTDES  R29 

0 - VBCOARK  RRDESEND  TRMTRACK  ITDRNON2  STARTSUB  POOH 
STDESIG  STARTSB2  RRDESDUN  R24END  R24LEM3  RRDESNB 
RESET22  R29DPAS2  COPYCYCl  R29  P12LM  PR0G20A  R21 LEM9 
test  - DORREPOS  RR1AX2  STDESIG  R29  BEGDES29  REMODE 


1 - SCALCHNG  R04Z 

0 - ITURN0N2  STARTSUB  SCALCHNG  RO4Z 
test  - LRHEIGHT  UPDATCHK 


1 - RESAMPLE  R77CHECK 

0 - ERROR  ITDRN0N2  STARTSUB  GOODRAD  TSTLTS3  R77CHECK 
test  - RADLITES 

1 - ERROR  ITURN0N2  STARTSUB  RRCDUCHK  TSTLTS3 
0 - RRCDUCHK 

test  - RRCDUCHK  SETTRKF  ENDRADAR  RENDRAD 


1 - STARTSUB  LRP0S2  RO4Z 
0 - ITURN0N2  STARTSUB  RO4Z 
test  - DORSAMP 
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RADMODES  (Continued) 


Bit 


Mnemonic 


Routines 


5 LRALTFLG  1 - RESAMPLE  R77CHECK 

0 - ERROR  ITDRN0N2  STARTSUB  GOODRAD  TSTLTS3  R77CHECK 
test  - RADLITES 


4 RRDATAFL  1 - RESAMPLE 

0 - ERROR  ITURN0N2  STARTSUB  GOODRAD  TSTLTS3 
test  - SETTRKF 


3 RRRSFLAG  1 - SCALCHNG  LRS22.1  R04Z 

0 - ITURN0N2  STARTSUB  SCALCHNG  LRS22.1  RO4Z 
test  - RENDRAD  RRANGOUT 


2 AUTOMODE  1 - ITURN0N2  STARTSUB  RRAUTCHK 
0 - RRAUTCHK 

test  - RRAUTCHK  RRCDUCHK  RRGIMON  SETTRKF  RRUX2  RRZERO 
COPYCYCl  R29RDJ0B  NORRGMON 


1 


TURNONFL 


1 - RRAUTCHK 

0 - ITURN0N2  STARTSUB  STARTSB2  RRTURNON  RRAUTCHK 
test  - RRZERO 
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DAPBOOLS 


Bit 

Mnemonic 

Routines 

15 

PUT5ES 

1 - MINIMP  LANDJUNK 

0 - NOMINIMP  P63IGN  DOFSTRTl  IGNITION  ABRTJASK 
test  - TSNEXTP  TSNEXTS 

TIGTASK 

14 

USEQRJTS 

1 - ENGIN0F3  AVERACaiG  DVMOJ  DOFSTRTl 

0 - DVMON 

test  - TJLAW4  TRYGTS  SPSCONT 

13 

CSMDOCKD 

1 - DPDATl 

0 - DPDATl  DOFSTRTl 

test  - PURGENCY  TJLAW4  l/ACCS  DAPDATA2  DAPDATAl  DPDATl 
BACKP  STIKLOAD  FINDCDDW  P40IM  MINRTN 

12 

OURRCBIT 

1 - DETENTCK 

0 - DETENTCK  DOFSTRTl 

test  - DETENTCK  CHEKSTIK  QRAXIS 

11 

ACC40R2X 

1 - DPDATl  GOABORT  P12LM 

0 - DPDATl  DOFSTRTl 

test  - DPDATl  DAPDATAl  +XORULGE 

10 

AORBTRAN 

1 - C»JFAIL2  DPDATl  DOFSTRTl 

0 - CCMFAIL2  DPDATl 

test  - MINRTN  DAPDATAl  +XORULGE 

9 

XOVINHIB 

1 - CMPCXJENT  MUNRETRN 

0 - DOFSTRTl  P65START  CMPONENT  ABRTJASK  CANV37 
VRTSTART 

test  - TSNEXTP  FINDCDUW 

GOTOPOOH 

8 

DRIFTBIT 

1 - ALLCOAST  CDMFAIL2  DOFSTRTl 

0 - P42IGN  ABRTJASK 

test  - l/ACCMJT  SPSRCS  RCS  BACKP  AFTERTJ 

7 

RHCSCALE 

1 - DPDATl  DOFSTRTl 

0 - DPDATl 

test  - DAPDATAl  STIKLOAD 

6 

ULLAGER 

1 - ULLGTASK  COIFAIL2 

0 - P42IGN  ENGINOFl  GOPOST  GOTOPOOH  GOCUTOFF  ABRTJASK 
DOFSTRTl  STOPCLOK 
test  - RCS 
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D APB POLS  (Continued) 


Bit  Mnemonic  Routines 


5 DBSL2FLG  1 - . 'DPDAtt^ 

0 - . . DPDATl  . 

'test  - iWESTORDB  DAPDATAI 

4 DBSELECT  1 - DPDATl 

0 - DPDATl  D0FSTRT1 
test  - RESTORDB  DAPDATAI 

3 ACCS OKAY  1 - l/ACCRET 

0 - STARTSBl  DOFSTRTl 
test  - DAPIDLER 


2 ADTRATE2  1 - DPDATl  DOFSTRTl 
0 - DPDATl 
test  - DAPDATAI 


1 ADTRATEl  1 - DPDATl 

0 - DPDATl  DOFSTRTl 
test  - DAPDATAI 
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IM0DES30 


Bit  Routines 

15  1 - IMIMON  (IMU  temp,  out  of  limits) 

0 - IMUMON  GOPROG  TSTLTS3  DOFSTRTl 
test  - IMUMON 

14  1 - IMUMON  GOPROG  DOFSTRTl  (ISS  turn-on  delay  initiate) 

0 - IMUMON 

test  - IMUMON  TNONTEST  ENDTNON 

13  1 - IMUMON  IFAILOK  GOPROG  TSTLTS3  DOFSTRTl  (iMU  good) 

0 - IMUMON 
test  - SETISSW 

12  1 - IMUMON  GOPROG  TSTLTS3  DOFSTRTl  (ICDU  good) 

0 - IMUMON 
test  - SETISSW 

11  1 - IMUMON  GOPROG  DOFSTRTl  (iMU  not  caged) 

0 - IMUMON 
test  - IMUMON 

10  1 - ERROR  C33TEST  PFAILOK  GOPROG  TSTLTS3  DOFSTRTl  (PIPA  good) 

0 - C33TEST 

test  - PIPFREE  C33TEST  SETISSW 

9 1 - IMUMON  DOFSTRTl  (iMU  not  operating) 

0 - IMUMON 

test  - IMUCHK  R02B0TH  IMUMON  TNONTEST  C33TEST  IMUZERO 

8 1 - TNONTEST  (tum-on  delay  incomplete) 

0 - TNONTEST  GOPROG  DOFSTRTl 
test  - TNOTTEST  C33TEST 

7 1 - ITURN0N2  (turn-on  delay  just  started) 

0 - TNONTEST  GOPROG  DOFSTRTl 
test  TNONTEST  C33TEST 

6 1 - CAGESUB2  (iMU  caged) 

0 - UNZ2  GOPROG  DOFSTRTl 

test  - PIPUSE  PFAILOK  IMUPULSE  STRTGYRO  8192AUG  IMUZERO  IMDZER02 
IMUCOARS  GOARS  C0ARS2  IMUFINE  IFAILOK  V37  IMUFINED 

5 1 - CAGESUB2  (Secondary  PIPA  fail  monitor 

0 - PFAILOK  DOFSTRTl  disabled) 

test  - C33TEST 
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TM0DES30  (Continued) 


Bit  Routines 

4 1 - CAGESUB2  IMDZERO  SETCOARS  DOFSTRTl  (IMU  fall  monitor  inhibit) 

0 - DNZ2  IMUZER02  IFAILOK 
test  - SETISSW 

3 1 - CAGESUB2  IMTJZERO 

0 - UNZ2  IMTJZER02  DOFSTRTl 
test  - SETISSW 

2 1 - IMUMON  (tum-on  sequence  failure) 

0 - EMDTNON  GOPROG  DOFSTRTl 
test  - IMUMON  ENDTNON 

1 1 - PIPFREE  CAGESDB2  DOFSTRTl  (PIPA  fail  monitor  disable) 

0 - PIPUSE 

test  - C33TEST  SETISSW 
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IMODES33 


Bit  Routines 

14  1 - PROCEEDE  (proceed  button) 

0 - PROCEEDE  STARTSB2  DOFSTRTl 
test  - PRXEEDE 

13  1 - ERROR  C33TEST  PFAILOK  STARTSB2  TSTLTS3  DOFSTRTl  (PIPA  good) 

0 - C33TEST 
test  - C33TEST 

12  1 - ERROR  C33TEST  STARTSB2  TSTLTS3  DOFSTRTl  (downlink  not  too  fast) 

0 - C33TEST 

test  - DNTMFAST  C33TEST 

11  1 - ERROR  C33TEST  STARTSB2  TSTLTS3  DOFSTRTl  (uplink  not  too  fast) 

0 - C33  TEST 

test  - UPTMFAST  C33TEST 

8 1 - INTLZE 

0 - DISPRSET  STARTSB2  DOFSTRTl 
test  - DISPRSET 

7 1 - ALTRODTl 

0 - ALTOUTl  DISPRSET  STARTSB2  LANDISP  DOFSTRTl 
test  - LANDISP 

6 1 - IMUMON  CAGESDB2  IMUZERO  SETCOARS  DOFSTRTl  (DAP  disable) 

0 - UNZ2  IMUZER02  IMDFINE 
test  - CHEKBITS 

5 1 - IMUZERO 

0 - IMIIZER02  STARTSB2  DOFSTRTl  (zeroing  in  progress) 
test  - none  (telemetry) 

1 1 - VBTSTLTS 

0 - TSTLTS3  ST ARTSB 2 DOFSTRTl  (lamp  test) 

test  - IMUMON  SETISSW  SETGLOCK  SETTRKF  ’ ' 
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RCSFLAGS 


Bit  Routines 
Not  used 


13  1 - DAPIDLER 

0 - STARTSBl  DOFSTRTl 
test  - DAPIDLER 

12  1 - STARTDAP  SKIPPAXS 

0 - PJETSLEC  DOFSTRTl 
test  - SUPERJOB 

11  1 - QRTIME 

0 - STARTDAP  DETENTCK  TOPSEUDO  DOFSTRTl 
test  - DETENTCK  RHCACTIV 

10  1 - PEGI 

0 - STARTDAP  DETENTCK  PEGI  DOFSTRTl 
test  - DETENTCK  RATERROR 

9 1 - DETENTCK 

0 - DETENTCK  CHEKSTIK  DOFSTRTl 
test  - DETENTCK  RATERROR 

5 

7 Not  used 

6 

5 1 - NEGUSDM 

0 - STARTDAP  ACDT-K:i2  DOFSTRTl 
test  - PAXFILT 

4 1 - ALTDSPLY 

0 - ALTDSPLY  DOFSTRTl 
test  - ALTDSPLY 

3 1 - NEEDLER  DOFSTRTl  CHEKBITS 

0 - NEEDLER 
test  - NEEDLER 

2 1 - NEEDLER 

0 - NEEDLER  DOFSTRTl 
test  — NEEDLER 

1 1 - TRYUORV 

0 - STARTDAP  TRYUORV  DOFSTRTl 
test  - TRYUORV 
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DSPTABi 1 


Bit  Routines 

9 1 - VBTSTLTS  PROGLARM  (program  check  fail  lamp) 

0 - ERROR  TSTLTS3  SLAPl 
test  - none 

8 1 - SETTRJKF  VBTSTLTS  (tracker  fail  lamp) 

0 - ERROR  GOPROG  SETTRKF  TSTLTS3  SLAPl 
test  - SETTRKF 

6 1 - SETGLOCK  VBTSTLTS  (gimbal  lock  warning  lamp) 

0 - SETGLOCK  TSTLTS3 

test  - SETGLOCK  IMUZERO  DOFSTRTl 

5 1 - VBTSTLTS  R10,R11  LITIT  (LR  altitude  fail) 

0 - R10,R11  ERROR  SLAPl  TSTLTS3  GOPROG 
test  - LITIT 

4 1 - CAGESUBl  SETCOARS  VBTSTLTS  TSTLTS3  (no  attitude  lamp) 

0 - ISSZERO  ENDTNON  IMUZERO  IMUFINE  TSTLTS3 
test  - IMUZERO  GOPROG  DOFSTRTl 

3 1 - VBTSTLTS  R10,R11  LITIT  (LR  velocity  fail) 

0 - R10,R11  ERROR  SLAPl  TSTLTS3  GOPROG 
test  - LITIT 
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ALIN 


Alignment  of  the  Inertial  Sub-System 


P51 


P51B 


P51C 


Perform  "IMJCHK"  (assure  that  IMU  is  on) 


Proceed  to  "G0PERF1"  with  TS  = 0001 5g 

(Request  that  celestial  body  acquisition  be  performed) 

(If  terminate,  proceed  to  "GOTOPOOH" ; if  proceed,  proceed 
to  "P5IB";  if  other  response,  continue  at  next  step.) 


THETAD  = 0 

Proceed  to  "GODSPRET"  with  TS  = K:V06N22 

(Display  TffilTAD  and  continue  at  next  step  when  display  is  up) 

Proceed  to  "GODSPRET"  with  TS  = K:V41N00  (indicate  coarse 
align  in  progress;  continue  at  next  step  when  display  is  up) 


Perform  "COARSE" 


Proceed  to  second  step  of  "P51"  > 

IdPIPADT  = less  significant  half  of  TIMENOW 
PIPA  = -0 
GCOMP  = 0 

Switch  FLAGWRD2  bit  15  (DRIFTFLG)  to  1 
STARIND  = 0 
Perform  "AOTMARK" 

(return  after  marks  are  averaged) 

Perform  "AOTSTALL" 

If  AOTGOOD  = 0,  perform  "CURTAINS" 

If  STARIND  = 0: 

STARSAV1  = STARAD^ 

TSt  = TSIGHT 
Perform  "PLANET" 

PLANVEC  = TS 
STARIND  = 1 
Proceed  to  "P51C" 

TSt  = TSIGHT 
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Perform  "PLANET" 


TS^  = PLANVEC 
STARADq  = STARSAVl 

STARAD.  = STARSAVC 

— o — 

Perform  "CIXSDATA" 

If  FLAGVj'RDO  bit  3 (FREEFLAG)  = 0:  (error  between  actual  separation 

and  measured  separation  is  not 
Proceed  to  second  step  of  "P51"  acceptable) 

Perform  "AXISGEN" 

[refsnmat]  = [dcmat] 

Switch  FUGWRD3  bit  13  (REFSMFLG)  to  1 
Proceed  to  "GOTOPOOH" 


COARSE  If  IMUCADR  0;  (IMU  in  use) 

Delay  1 second 
Proceed  to  "COARSE" 

Perform  "IMUCOARS" 

Perform  "IMUSTALL" 

If  ISSGOOD  = 0,  perform  "CURTAINS" 
Perform  "IMUFINE" 

Perform  "MJSTAIL" 

If  ISSGOOD  = 0,  perform  "CURTAINS" 
Return 
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AOTMARK  Inhibit  interrupts 


I 


I 


I 


AOTSTALL 


I 


If  MARKSTAT  / OOOOOg*.  (*aLrk  system  already  busy) 

Proceed  to  "POODOO"  with  TS  = 201 05g 

If  bits  2 and  3 of  EXTTBACT  are  not  both  0: 

TS1,  = return  address  of  routine  calling  "AGTMARK" 
dp 

Proceed  to  "BAILOUTI"  with  TS  = 31211g 
Switch  bit  2 of  ErrVBACT  to  1 

Establish  a special  additional  working  storage  area  for 
the  mark  system;  store  its  address  in  bits  1-9  of 
MARKSTAT.  It  will  be  denoted  hereafter  as  MARKVAC. 

If  no  storage  area  is  ayailable  for  MARKVAC: 

TSIj  = return  address  of  routine  calling  •' AOTMARK" 
dp 

Proceed  to  "BAIL0UT1"  with  TS  = 31207g 
Establish  "GETDAT"  (pr15) 

Release  interrupt  inhibit 
Return 

Inhibit  interrupts 

If  OPTCADR  > 0 or  if  OPTCADR  < -1 : 

TSIj  = return  address  of  routine  calling  "AOTSTALL" 
dp 

Proceed  to  "BAIL0UT1"  with  TS  = 31210g 
If  OPTCADR  = -1:  (operation  already  complete  and  good) 

OPTCADR  = +0 
AOTGOOD  = 1 

Release  Interrupt  inhibit 
Return 

If  OPTCADR  = -0:  (operation  already  complete  and  bad) 
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(If  OPTCADR  = -0) 

OPTGADR  = +0 
AOTGOOD  = 0 

Release  interrupt  inhibit 
Return 

(Otherwise,  OPTCADR  = +0) 

OPTCADR  = return  address  (to  caller  of  "AOTSTALL") 

Put  present  job  to  sleep 
When  awakened,  return  via  LOG 
MKRELEAS  MARKSTAT  = OOOOOg 

Release  special  working  storage  area  MARKVAC 
If  OPTCADR  = +0:  ("AOTSTALL"  not  entered  yet) 

OPTCADR  = -1 
End  task 
LOG  s OPTCADR 
AOTGOOD  = 1 

Wake  job  put  to  sleep  in  "AOTSTALL" 

OPTCADR  = +0 
End  task 

GETDAT  Switch  bit  12  of  MARKSTAT  to  1 (to  inhibit  processing  of 

marks  in  "MARKRUPT") 

Proceed  to  "GOXDSPF"  with  TS  = K:V01N71  (AOTCODE) 

(if  terminate,  proceed  to  "KILIAOT"^  if  proceed, 
continue  at  next  step;  if  other  response,  proceed 
to  "GETDAT") 

(AOTCODE  should  be  of  the  form  000  000  xxx  xxx  xxx^) 
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XYMA.RK  = bits  15-7  of  AOTCODE  shifted  right  6 places  to  bit 
positions  9-1 

If  XYMARK  < 0,  proceed  to  "GETDAT" 

If  XYMARK  = 00007g:  (detent  code  7 for  COAS) 

Proceed  to  "GOXDSPF"  with  TS  = K:V06N87  (AZ,  EL) 

(if  terminate,  proceed  to  "KILLAOT";  if  proceed, 
continue  at  next  step;  if  other  response,  repeat 
this  step) 

TSazm  = AZ 

TSelev  = EL 

TSsrot  = 0 

Proceed  to  "OPTAXIS" 

(otherwise,  XYMARK  is  between  1 and  6 inclusive) 

TSelev  = -^O^L^YMARK 
TSazm  = AOTAZ^^j^ 

TSsrot  = AOTAZ2  - TSazm 
OPTAXIS  Perform  "OANB" 

UYP  = cosTSsrot  U^YP'  - sinTSsrot  UXP ' 

UXP  = cosTSsrot  UXP'  + sinTSsrot  UYP' 

STARAD^  = 0 
Proceed  to  "OETMKS" 

OANB  TSelev  = TSelev  converted  to  one ' s complement  form 

TSazm  = TSazm  converted  to  one ' s complement  form 

/ sinTSelev  \ 

SCAXIS  = I cosTSelev  sinTSazm  j 
VcosTSelev  cosTSazm  / 

UYP'  = unit(SCAXIS  * K:UNITX)  (0,  cosTSazm,  -sinTSazm)) 
UXP'  = unit (UYP'  * SCAXIS) 

Return 
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GETMKS  XYMARK  = OOOOOg 
MARKCNTR  = 0 

Switch  bits  15  thru  10  of  MARKSTAT  to  0 

TS  = K:V54N71  ("mark  X or  I"  verb;  star  code  noun) 

PAST IT  Proceed  to  "G0MARK4" 

(if  terminate,  proceed  to  "KILIAOT" ; if  proceed, 
proceed  to  "MARKCHEX" ; if  other  response,  proceed 
to  "GETDAT".) 

MARKRUPT  (Entered  on  program  interrupt  initiated  by  the  mark  or 
mark  reject  buttons  or  by  a commanded  change  in  descent 
rate. ) 

TScdu  = CDU 

TSt  = TIMENOW 

If  bits  3>  4 and  5 of  channel  16  all  = 0: 

Proceed  to  "SOMEKEI" 

(Something  other  than  mark  or  mark  reject) 

If  bit  12  of  MARKSTAT  = 1,  Resume 

(Processing  of  marks  inhibited) 

If  MARKSTAT  = OOOOOg:  (mark  program  not  operating) 

Perform  "ALARM"  with  TS  = 001 12g 

Resume 

If  bit  5 of  channel  16  = 1:  (mark  reject) 

If  FLAGWRD8  bit  8 (SURFFLAG)  = 1: 

If  MARKCNTR  > 0: 

MARKCNTR  = MARKCNTR  - 1 
Resume 

Perform  "ALARM"  with  TS  = 001 15g 
Resume 
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S0M8KSY 


]{MKRUPT 


YMKRUPT 


(If  bit  5 of  channel  16  » 1:) 

If  bit!  10  and  11  of  MARKSTAT  both  =0:  (no  aarks 

to  reject) 

Perfora  "ALARM"  with  TS  = 001 I5g 

Re suae 

Proceed  to  "REJECT" 

If  bit  4 of  channel  16  =*  1 , proceed  to  "YMKRUPT" 

If  bit  3 of  channel  16  = 1 , proceed  to  "YMKRUPT" 

If  bit  6 or  bit  7 of  channel  16  = 1,  proceed  to  "DESCIITS" 
(Coaaanded  change  in  descent  rate) 

Perfora  "ALARM"  with  TS  = 001 I3g 

Resume 

i = 0 

lYMARK  = OlOOOg  (bit  10  = l) 

Skip  next  two  steps 
i = 1 

XYMARK  » 02000g  (bit  11  = l) 

If  FLAGWR88  bit  8 (SURFFLAG)  = 1,  proceed  to  "SURFSTOR" 

If  bit  14  of  MARKSTAT  ==  1:  (mark  pair  just  completed) 

If  MARKCNTR  > 4: 

Perfora  "ALARM"  with  TS  = 001 07g 
If  FLAGWRD8  bit  8 (SURFFLAG)  = 1; 

Proceed  te  "DSPV6N79" 

Resume 

MARKCNTR  = MARKCNTR  + 1 

Switch  bits  14,  11  and  10  of  MARKSTAT  to  0 
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SURFSTOR 


VACSTOR 


(End  of  indanted  steps) 

If  bit  which  is  1 in  XYMARK  is  also  1 in  MARKSTAT: 
(wrong  mark) 

Perform  "ALARM"  with  TS  = 001 14g 
Resume 

Proceed  to  "VACSTOR" 
i = 0 

Switch  bits  10  and  11  of  MARKSTAT  to  1 
( Show  surface  mark  for  "MARKCHEX" ) 

Get  address  of  MARKVAC  from  low  9 bits  of  MARKSTAT 


TSIOiT  = TSt 
i = i + 6 MARKCNTR 
MKDEX  = i 


(x:  0,6,12,18,24) 

<y:  1,7,13,19,25) 

(store  in  case  of  surface  mark) 


MARKVAC,  = TScdu 

i y 

i = i + 2 


(inner  gimbal  angle) 

(x:  2,8,14,20,26) 
(y:  3,9,15,21,27) 

(middle  gimbal  angle) 

(x:  4,10,16,22,28) 
(y:  5,11,17,23,29) 

(outer  gimbal  angle) 

If  FLAGWRD8  bit  8 (SURFFLAG)  = 1: 


MARKVAC,  = TScdu 
1 z 

1 = 1 + 2 


MARKVAC,  = TScdu 

1 X 


Proceed  to  "REMARK"  skipping  first  step 

Switch  bit  13  of  MARKSTAT  to  0 (enable  selective  mark 

reject) 

MARKSTAT  = MARKSTAT  + XXMARK 

(switching  bit  10  or  11  of  MARKSTAT  to  1 ) 


If  bits  10  and  11  of  MARKSTAT  both  = 1: 


Switch  bit  14  of  MARKSTAT  to  1 
Proceed  to  "REMARK" 


(indicate  both  marks 
taken) 
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REJECT 


If  bit  13  of  MARKSTAT  = 0;  (r«j«ct  only  latest  mark) 


If  bit  10  of  XYMARK  * 1: 

Switch  bit  10  of  MARKSTAT  to  0 

If  bit  11  of  XMARK  « 1: 

Switch  bit  1 1 of  MARKSTAT  to  0 

If  bit  13  of  MARKSTAT  = 1:  (no  mark  since  last  reject) 

Switch  bits  10  and  11  of  MARKSTAT  to  0 

Switch  bit  14  of  MARKSTAT  to  0 (reject  pair) 

Switch  bit  13  of  MARKSTAT  to  1 (see  above) 

REMARK  MKDEX  = bits  11  and  10  of  MARKSTAT  shifted  right  9 places 

to  bit  positions  2 and  1 (MIDEX  = 0,1,2  or  3) 

Establish  "CHANGEVB"  (pr15) 

Resume 

GHANGEVB  If  FLAGWRD8  bit  8 (SURFFLAG)  = 1,  proceed  to  ••DSPV6N79'' 

TS  = K;V54N71  (request  X or  Y mark) 

If  MKDEX  = 1,  TS  = K:Y53N71  (request  Y mark) 

If  MKMX  * 2,  TS  = K:V52N71  (request  X mark) 

Proceed  to  "PASTIT" 

MARKCHEX  Switch  bit  12  of  MARKSTAT  to  1 (inhibit  processing  in 

"MARKRDPT" ) 

Store  address  of  MARKVAC  in  low  9 bits  of  XYMARK 
MKDEX  > 0 

If  bits  10  and  11  of  MARKSTAT  are  not  both  1: 

(last  pair  incomplete) 

If  MARKCMTR  = 0: 
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(If  MARKCMTR  = 0; ) 

Perform  "ALARM"  with  TS  = 001 11g 
Proceed  to  "GETMKS" 

MARKGNTR  = MARKCNTR  - 1 
AVESTAR  MKDEX  = MKDEX  + 1 
i = 6 MARKCNTR 

Get  address  of  MARKVAC  from  XYMARK 

If  FLAGWID8  bit  8 (SORFFLAG)  = 1,  proceed  to  "SURFSTAR" 
ANG  = (MARKVAC , MARKVAC^  , MARKVAC ) 

Perform  "CD»TR*GS" 

Perform  "NBTOSM" 

TS  = [nbsmmat]  UXP 
i = i + 1 

ANG  = (MARKVAC^^^,  MARKVAC^  , MARKVAC ^^2  ) 

Perform  "CD*TR»GS" 

Perform  "NBTOSM" 

TS  = ( [NB^OIAT]  UIP)  * TS 

TSstar  = -unitTS 

AVEIT  n = MKDEX 

STARAD,  = STARAD,  + — TSstar 

~ 6 n — 6 n — 

STARSAV2  = STARAD^ 

If  MARKCNTR  > 0: 

MARKGNTR  = MARKGNTR  - 1 

Proceed  to  "AVESTAR" 

Call  "MKRELEAS"  in  0,05  seconds 
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Proceed  to  "ElIDErr" 


DSPy6N79  Proceed  to  "GOXDSPF"  with  TS  « K;V06M79  (CURSOR-SPIRAL) 
(If  terminate,  proceed  to  "KILIAOT" ; if  proceed, 
proceed  to  "SURESND";  if  other  response,  continue 
at  next  step. ) 

If  bit  6 of  MPAC  = 1,  proceed  to  "SURFAGAN"  (V32E) 


Proceed  to  "DSPV6N79" 

SURFSMD  Switch  bit  H of  MARKITAT  to  1 (show  mark  end) 
SURFAGAN  Save  YAC  area  for  surface  marking 


^^^MKDEX+1  ' 

'^^^MXDEX+3  ' 

If  bit  U of  MARKSTAT  = 1,  proceed  to  "MARKCHEX" 

If  MARKCNTR  > 4: 

Perform  "ALARM"  with  TS  = 001 07g 

If  FLAGWRD8  bit  8 (SURFFLAG)  = 1,  proceed  to  "DSPV6N79" 
Resume 

MARKCNTR  = MARKCNTR  + 1 


Proceed  to  "CSTMKS"  skipping  first  two  steps 

SURFSTAR  ANG  = (MARKVAC.^,,  MARKVAC.,  MARKVAC  ) (Save  CDU' s at  time  of 

^ X-mark  for  use  in  "CD^TR^^GS") 

TSyrot  = MARKVAC (CURSOR  angle  converted  to  one's  comp,  form) 

If  TSyrot  = 0: 

If  TSsrot  = 0: 


TS  = SCAXIS 
Proceed  to  "JUSTOA" 

TS  = unit(OTP'  cosTSyrot  - UXP'  sinTSyrot) 
TS  = unit(TS  » SCAXIS ) 
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JTJSTOA 


FLANET 

I 


TSsrot  = MARKVAC^_I^^  (SPIRAL  angle  converted  to  one's  comp,  form) 
TSsep  = l/l2  (TSsrot  - TSyrot  + K ; ABOUT 1 ) 

TS  = unlt(cosTSsep  S^CAXIS  + slnTSsep  TS) 

Perform  "CD*TR*GS" 

Perform  "NBTOSM" 

TS  = I^NBSMMAtJ  TS 
Proceed  to  "AVEIT" 

TSIGHT  = TSt 

i = low  6 bits  of  AOTCOrJE  (0  to  40) 

If  STARIND  = 0,  BESTI  = 6 i 
If  STARIND  = 1 , BESTJ  = 6 i 
If  i = 0;  (planet) 

Proceed  to  "GOFLASH"  with  TS  = K;V06N88  (STARADq) 

(If  terminate,  repeat  this  step;  if  proceed, 
continue  at  next  step;  if  other  response, 
repeat  this  step.) 

TS  = unitSTARAD^ 

Return 

If  i < 38:  (star) 

TS  = KtCATLOG. 

— — X 

Return 

Perform  "LOCSAM” 

If  i = 38,  TS  = VSUN 
If  1 = 39,  TS  = VEARTE 
If  i = 40,  TS  = VMOON 
Retiorn 
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LOG  SAM  QiMIN  = rettirn  addre«8 


GHKSDATA 


TSIGHT  = TSt 
Perform  "LSPOS" 

TDEG1  = TSIGHT 
Perform  "LEMPREC 

If  PBODY  = 0;  (earth  centered) 

VMOON  = unit(K:RSUBEM  VMOON  - MTT) 

VEARTH  = -unitRATT 

GEARTH  = cos(arc3ln(K:RSUBE  / |RATT | ) + K:5DEGREES) 
GMOON  = K:GSS5 

If  PBODY  = 2:  (moon  centered) 

VSUN  = unit(YSUN  - K:R0E  YMOON) 

PARTH  = - unit(K:RSUBEM  VMOON  + RATT) 

VMOON  = - unitRATT 

GMOON  = cos(arcsin(K:RSUBM  / |MTT[)  + K:5DEGREES) 
GEARTH  = K:GSS5 
GSUN  = K:GSSl)N 
Return  via  QMIN 

Switch  FLAGWRDO  bit  3 (FREEFLAG)  to  1 (R54) 

TSang  = arccos(STARADQ • STARAB^) 

Switch  FLAGWRDO  bit  3 (FREEFLAG)  to  0 
THETA  = arccoa(TS^‘  TS^2)  “ TSang 
DSPTEMI^p  = I THETA  I 
Switch  FLAGWRDO  bit  3 (FREEFLAG)  to  1 
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AXISGEN 


PR0G52 


Proceed  to  "GOFLASH"  with  TS  = K:V06N05  (DSPTiMi) 

(if  terminate,  proceed  to  ‘'GOTOPOOH";  if  proceed, 
skip  next  step;  if  other  response,  continue  at 
next  step.) 

Switch  FLAGWRDO  bit  3 (FREEFLAG)  to  0 
Return 


TS1  = TS^ 


TS2  = unit(TS^  * TS^2) 
TS3  = TS1  * TS2 


[rfstmat] 


TS1  = STARAD 


TS1  TS1  TS1 
X y z 

TS2  TS2  TS2 
X y z 

TS3  TS3  TS3 

X y z 


"I 


0 


TS2  = unit(STARADQ  » STARAD^) 
TS3  = TS1  * TS2 


[smstmatJ  = 


iTSI  TS1  TS1 
X y z 

1 TS2  TS2  TS2 
X y z 

[TS3  TS3  TS3 

' X y z 

[dcmat  ] = [smstmatJ  [rfstmat] 


Unitize  each  of  the  three  rows  of  DCMAT 
(assure  that  it  is  orthogonal) 

STARADq  = IxDMAT]’^  K:UNITX 

STARAD^  = [DCMATJ"^  K:UNITI 

STARAD^ 2 = CdCMAT]’’^  K:UNITZ 

Return 

Perform  '•R02B0TH'' 

If  FLAGWRD2  bit  4 (PFRATFLG)  = 1 ; 

OPT  ION  2 ==  1 and  skip  next  step 
0PTI0N2  = 3 (REFSMMAT  option) 
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P52B  Perform  "G0PERr4R"  with  0PTI0N1  = 1 

(If  terminate,  proceed  to  "GOTOPOOH" ; if  proceed, 
skip  next  step;  if  other  response,  repeat  this 
step. ) 

End  job 

If  0PTI0N2  bit  2 = 0 and  bit  1 = 1r  (0PTI0N2  = 1,5,9, 
Proceed  to  "P52D"  (Preferred) 

If  0PTI0N2  bits  2 and  1 both  = 1:  (0PTI0N2  = 3,7,11, 
Perform  "R51"  (REFSMMT) 

Proceed  to  "GOTOPOOH" 

If  0PTI0N2  bits  2 and  1 = 0:  (0PTI0N2  = 0,4,12,....) 

TS  = TIAND  and  skip  next  step  (Landing  site) 
(otherwise,  0PTI0N2  = 2,6,....)  (Nominal) 

TS  = -0 
DSPTEM1  = TS 

Proceed  to  "GOFIASH"  with  TS  = K:V06N34  (DSPTEMI) 

(If  terminate,  proceed  to  "GOTOPOOH";  if  proceed, 
continue  at  next  step;  if  other  response,  repeat 
this  step.) 

If  more  significant  half  of  DSPTEMI  ^ 0: 

TALIGN  = TIMENOW  and  skip  next  step 
TALIGN  = DSPTEMI 

If  0PTI0N2  bit  2 = 1:  (0PTI0N2  = 2,6,10, ) 

TSt  = TALIGN 
Perform  "S52.3" 

Proceed  to  "P52D" 

P52LS  Switch  FLAGWRD1  bit  13  (ERADFLAG)  to  0 (0PTI0N2  = 0,4, 
Switch  FLAGWRD3  bit  12  (LUNAFLG)  to  1 
TS  = RLS  (landing  site  vector  in  MF  coordinates) 
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TSt  = TALIGN 


TUND  = TALIGN 
Perform  "MOONMX" 

ALPHAV  = [^MOONMAtJ'^  (TS  + M504  * TS) 

TSt  = TALIGN 
Perform  "N89DISP" 

XSMDrf  = unitALPHAV 

Perform  "LSORIENT"  (compute  landing  site  orientation) 

Proceed  to  "P52D" 

N89DISP  TStime  = TSt 

Perform  ”LAT-L0NG”  (calculate  and  display  landing  site) 
UNDLONG  = LONG  / 2 
UNDALT  = ALT 
LANDLAT  = LAT 

Proceed  to  "GOFLASH"  with  TS  = K;V06N89  ( LANDLAT, LANDL0NG,LANDALT) 
(if  terminate,  proceed  to  "GOTOPOOH”;  if  proceed, 
continue  at  next  step;  if  other  response,  repeat 
this  step.)  . 

LONG  = 2 LANDLONG 

ALT  = LANDALT 

LAT  = LANDLAT 

TSt  = TStime 

Perform  "LALOTORV” 

Return 

P52D  Perform  "S52.2”  (compute  glmbal  angles) 

Proceed  to  "GOFLASH"  with  TS  = K:V06N22  (TOETAD) 

(If  terminate,  proceed  to  "GOTOPOOH”;  if  proceed 
continue  at  next  step;  if  other  response,  proceed 
to  "P52D".) 
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GYCOARS 


Proceed  to  "G0PERF1"  with  TS  = 00013rt  (perform  checklist  #13) 
(If  terminate,  proceed  to  "GOTOPOOH";  if  proceed, 
proceed  to  "BEGCOAES" ; if  other  response,  continue 
at  next  step . ) 

MC  = unit(  [REFSMMAT]  XSMDrf)  (get  desired  SM  wrt  present  SM) 
YDC  = unit(  [EEFSMMATj  YSMDrf) 

ZDC  = unit(  [REFSMMAT]  ZSMDrf) 

Perform  "GYCOARS" 

Proceed  to  "GOTOPOOH" 

QMAJ  = return  address 
Perform  "CALCGTA" 

Switch  FLAGWRD2  bit  15  (DRIFTFLG)  to  0 
Switch  FLAGWRD3  bit  13  (REFSMFLG)  to  0 

Perform  "GODSPR"  with  TS  = KjV16N20  (monitor  gimbal  angles) 
Perform  "IMDPTJLSE"  with  TS  = address  of  OGC 
Perform  "IMJSTALL" 

If  ISSGOOD  = 0,  perform  "CURTAINS"  (bad  return) 

[refsmmat]  = [xsmdmat] 

Switch  FLAGWRD2  bit  4 (PFRATFLG)  to  0 

Switch  FLAGWRD3  bit  13  (REFSMFLG)  to  1 

IdPIPADT  = TIMEN0W-, 

Is 

PIPA  = -0 
KOMP  = 0 

Switch  FLAGWRD2  bit  15  (DRIFTFLG)  to  1 
Proceed  to  "R51K" 
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S52.2 


(^4AJ  = return  address 


Perform  "CDUTRIG" 

Perform  "CALCSMSC" 

BiBrf  = unit(  [rEFSMMAT]'^  piBsm) 

YNBrf  = unit(  [rEFSMMAT]'^  pBsm) 
pBrf  = unlt([REFSM4ATj'^  pBsm) 

XSMrf  = XSMDrf 
YSMrf  = YSMDrf 
ZSMrf  = pMDrf 
Perform  "CALGGA" 

Return  via  QMAJ 

S52. 3 QMAJ  = return  address 
TDEC1  = TSt 
Perform  "LEMCONIC" 

XSMDrf  = unitRATT 
YSMDrf  = unit(VATT  » MTT) 

ZSMDrf  = unit (XSMDrf  » YSMDrf) 

Return  via  QMAJ 

LSORIENT  QMAJ  = return  address 

pMDrf  = unit  [(RRECTCSM  * VRECTCSM)  * XSMDrf] 

YSMDrf  = unit (ZSMDrf  • XSMDrf) 

Return  via  QMAJ 

CAL53A  Perform  "352.2" 

TS  = CDU  - THETAD  (TS  = CDU  - THETAD  , etc.) 
~ ~ — l x X X 
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If  any  of  the  three  components  of  TS  is  ^ K:EEGREE1 
and<  K:DEG359r 

Perform  "COARSE" 


Is 


bit  15  (DRIFTFLG)  to  1 

XSMrf  XSMrf 
y z 

YSMrf  ISMrf 
y z 

ZSMrf  ZSMrf 
y z_ 

Return 

R51  QMAJ  = retiorn  address 

Proceed  to  "GOPERF1"  with  TS  = OOOISg  (perform  checklist  #15) 
(If  terminate,  proceed  to  "GOTOPOOH";  if  proceed, 
continue  at  next  step;  if  other  response,  proceed 
to  "R5IE".) 

TSt  = TIMENOW  + K:TSIGHT1 
Perform  "LOCSAM" 

Perform  "R56"  (select  best  star  pair) 

If  HAVEPAIR  » 0; 


IdPIPAGT  = TIMEN 
PIPA  = -0 
XCMP  = 0 
Switch  FLAGWRD2 


[refsmmat]^ 


XSMrf 

n 

YSMrf 

j 

ZSMrf 


Perform  "ALARM"  with  TS  = 00405g 

Proceed  to  "GOFLASH"  with  TS  = K:V05N09  (display  alarm) 
(if  terminate,  proceed  to  "GOTOPOOH";  if 
proceed,  continue  at  next  step;  if  other 
response,  proceed  to  second  step  of  "R5I".) 

R51E  STARIND  = 0 (start  with  star  farther  from  line-of- sight ) 

Perform  "R52"  (set  AOTGODE  and  maneuver  LM) 

Perform  "AOTMARK" 

Perform  "AOTSTALL" 

If  AOTGOOD  = 0,  perform  ’•CURTAINS"  (bad  return) 
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If  STARIND  = 0; 


STARSAV1  = STARAD^ 

TSt  = TSIGKT 
Perform  "PLANET" 

PLANVEC  = TS 
STARIND  = 1 

Proceed  to  second  step  of  "R51E" 

STARSAV2  = STARAD^ 

TSt  = TSIGHT 
Perform  "PLANET" 

STARAD^  = unit(  [^FSMMAt]  TS) 

STARADq  = unlt(  [rEFSMMAT]  PLANVEC  ) 

TS^  = STARSAV1 
TS^2  = STARSAV2 

Perform  "CHKSDATA"  (R54) 

If  FLAGWRDO  bit  3 (FREEFLAG)  = 1: 

Perform  "AXISGEN" 

Perform  "R55" 

Switch  FLAGWRD2  bit  4 (PFRATFLG)  to  0 

Proceed  to  "GOPERF1"  with  TS  = 0001/^  (checklist  #14) 
(If  terminate,  proceed  to  "G0T0P00H"j  if  proceed, 
proceed  to  second  step  of  "R51";  if  other 
response,  continue  at  next  step.) 

Return  via  QMAJ 
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R52  AOTCODE  = 00200g  + BESTI  / 6 (setting  detent  code  to  2) 

If  STARIND  = 1 , AOTCODE  = 00200g  + BESTJ  / 6 

Proceed  to  "GOFLASH"  with  TS  = K:V01N70  (AOTCODE) 

(If  terminate,  proceed  to  "GOTOPOOH";  if  proceed, 
continue  at  next  step;  if  other  response,  repeat 
this  step.) 

Switch  FLAGWRD5  bit  6 (3AXISFLG)  to  0 

TS1  = bits  15-7  of  AOTCODE  shifted  right  to  bit  positions  9-1 
If  TS1  ^ 0,  proceed  to  "GETAZEL"  (COAS  calibration) 

If  TS1  = 7,  proceed  to  "GETAZEL"  (COAS  sighting) 

i = TS1  (detent  position  between  1 and  6 inclusive) 

TSazm  = AOTAZ. 

1 

TSelev  = K;r52el 
Proceed  to  "AZEL" 

GETAZEL  Proceed  to  "GOFLASH"  with  TS  = KsV06N87  (AZ,  EL) 

(If  terminate,  proceed  to  "GOTOPOOH";  if  proceed, 
continue  at  next  step;  if  other  response,  repeat 
this  step.) 

TSazm  = AZ 

TSelev  = EL 

AZEL  Perform  "OANB"  (get  SCAXIS) 

TSt  = TIMENOW 
Perform  "PLANET" 

POINTVSM  = unit([EEFSMMATl  TS) 

Perform  "R60IEM"  (attitude  maneuver) 

If  bits  15-7  of  AOTCODE  = 0:  (COAS  calibration) 

Proceed  to  "R52"  skipping  first  two  steps 
Retvirn 
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QMIN  - retiarn  address 
Perform  "CALCGTA" 

Proceed  to  "GOFLASH"  with  TS  = K;V06N93  (OGC,IGC,MGC) 
(If  terminate,  proceed  to  "GOTOPOOH";  if  proceed, 
continue  at  next  step;  if  other  response,  return 
via  (^IN.) 

TS  = address  of  (OGC,  IGC,  MGC) 

Perform  "IMUPULSE" 

Perform  "IMUSTALL" 

If  ISSGOOD  = 0,  perform  "CURTAINS"  (bad  return) 

Retxu:n  via  QMIN 

QMIN  = return  address 

Perform  "CDTJTRIG" 

Perform  "CALCSMSC" 

Switch  FLAGWRD3  bit  10  (VFLAG)  to  1 
BESTI  = 0 
BESTJ  = 0 

SAX  = unit(  [REFSMMAT]'^  (^  pBsm  + ^ ZNBsm)) 
i = 38 
i = i - 1 

If  i = 0,  proceed  to  "PICEND" 

If  K:CATL0G^»  SAX  < K:CSS33,  proceed  to  "PIC1" 

j = i 

j j 1 

If  j = 0,  proceed  to  "PIC1" 
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If  KtCATLOGj*  SAX  < K:CSS33,  proceed  to  "PIC3" 

If  K:CATLOG^*  K:CATL0Gj  > K:CSS40,  proceed  to  "PIC3" 
TSstar  = KtCATLOG^ 

Perform  "OCCULT"  (see  if  first  star  is  occTilted) 

If  FLAGWRD3  bit  7 (CULTFLAG)  = 1,  proceed  to  "PIC1" 

TSstar  = K:CATLOG. 

J 

Perform  "OCCULT"  (see  if  second  steir  is  occulted) 
If  FLAGWRD3  bit  7 (CULTFLAG)  = 1,  proceed  to  "PIC3" 
If  FLAGWRD3  bit  10  (VFLAG)  = 1; 

Switch  FLAGWRD3  bit  10  (VFLAG)  to  0 
BESTI  = 6 i 
BESTJ  = 6 j 
Proceed  to  "PIC3" 

BESTI  = BESTI  / 6 
BESTJ  = BESTJ  / 6 
TSa  = K:CATL0G3g3^j. 

BESTI  = 6 BESTI 
BESTJ  = 6 BESTJ 

Switch  FLAGWRD3  bit  10  (VFLAG)  to  1 
TSb  = K:CATL0G^»  KrCATLOGj 
Switch  FLAGWRD3  bit  10  (VFLAG)  to  0 
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If  TSa  > TSb: 


(new  pair  has  better  separation) 


PICEND 


OCCULT 


BESTI  = 6 i 
BESTJ  = 6 j 
Proceed  to  "PIC3" 

If  FUGWRD3  bit  10  (VFLAG)  = 1:  (no  pairs  found) 

HAVEPAIR  = 0 
Retiarn  via  QMIN 
i = BESTI  / 6 

j = BESTJ  / 6 

If  SAX*  KrCATLOGj  < SAX*  K;CATL0G^; 

BESTI  = 6 j (farther) 

BESTJ  = 6 i (closer) 

HAVEPAIR  = 1 

Retixrn  via  QMIN 

VEARTH  VEARTH  VEARTH  "I 
X y z 

VSUN  VSUN  VSUN 

X y z 

VMOON  VMOON  VMOON 

X y z -■ 

/CEARTH\  p 

TS  =(  CSUN  ) - TSmat  TSstar 

\CM00N  / L J 

Switch  FLAGtfRD3  bit  7 (CULTFLAG)  to  0 

If  TS  < 0,  or  if  TS  or  TS  < 0: 

X ’ y z 

Switch  FLAGtfRD3  bit  7 (CULTFLAG)  to  1 
Return 


I^TSmatj  = 
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P57 

P570PT 


Perform  "IMQCHK"  (assure  that  IMJ  is  on) 

0PTI0N2  = 00003g  (REFSMMA.T  orientation) 

Perform  "GOPERFAR"  with  0PTI0N1  = 00001 g 

(If  terminate, proceed  to  "GOTOPOOH^;  if  proceed, skip 
next  step;  if  other  response, repeat  this  step.) 

End  job 

If  0PTI0N2  bit  2 = 0 and  bit  1 =1:  (0PTI0N2  = 1,5,9,...) 

Proceed  to  "PACKOPTN"  (Preferred  orientation) 

If  0PTI0N2  bit  2 = 1 and  bit  1 = Or  (0PTI0N2  = 2,6,10,...) 
Proceed  to  "P570PT"  (recycle;  invalid  in  P57) 

If  0PTI0N2  bits  2 and  1 = 1r  (0PTI0N2  = 3,7,11,...) 

\_XSMdJ  = [rEFSMMAtJ  (REFSMMA.T  orientation) 

Proceed  to  "PACKOPTN" 

(otherwise,  0PTI0N2  = 0,4,8,12,....)  (Landing  site  orientation) 

DSPTEM1  = TIG 

Perform  "GOFLASH"  with  TS  = K:V06N34  (DSPTEMi) 

(if  terminate,  proceed  to  "GOTOPOOH";  if  proceed, continue 
at  next  step;  if  other  response, repeat  this  step.) 

If  DSPTEMI  = 0:  (key-in  time  = O) 

TALIGN  = TIMENOW 
TDEC1  = TIMENOW 
Proceed  to  "P57D" 

If  TIMENOW  ^ DSPTEMI:  (key-in  time  1:  present  time) 

TALIGN  = DSPTEMI 
TDEC1  = DSPTEMI 
Proceed  to  "P57D" 

TIG  = DSPTEMI  (key-in  time  > present  time) 

TALIGN  = DSPTEMI 

TDEC1  = DSPTEMI 
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P57D 

PACKOPTN 


DSPOPTN 


(aiTIMTT 

BYIMTT 

ATTCHK 


Perform  "LEMPREC" 
pMDrf  = unitMTT 

Perform  "LSORIENT"  (compute  desired  IMQ  orientation) 

0PTI0N2  = OOOOOg  (zero  alignment  option) 

0PTI0N3  = OOOOOg  (zero  flag  bit  configuration) 

If  FLAGWRD3  bit  13  (REFSMFLG)  = 1,  0PTI0N3  = 001 OOg 
If  FLAGWRD6  bit  1 (ATTFLAG)  = 1,  0PTI0N3  = 0PTI0N3  + 0001 Og 
0PTI0N1  = 0001 Og 

Proceed  to  "GOFLASH"  with  TS  = K:V05N06  (OPTIONI ,0PTI0N2,0PTI0N3) 
(if  terminate, proceed  to  "GOTOPOOH";  if  proceed, continue 
at  next  step;  if  other  response,  repeat  this  step.) 

If  FLAGWRD3  bit  13  (REFSMFLG)  = 1,  proceed  to  "(^ITLMATT" 

If  FLAGWRD6  bit  1 (ATTFLAG)  = 1,  proceed  to  "BYLMATT" 

If  0PTI0N2  bit  2 = 1';  (0PTI0N2  = 2,3,6,?,...) 

Proceed  to  "BYLMATT"  (don't  have  attitude) 

Perform  "ALARM"  with  TS  = 00701 g (option  inconsistent  with  flags) 

Proceed  to  "GOFLASH"  with  TS  = KrV05N09  (display  aleu-m) 

(if  terminate, proceed  to  "GOTOPOOH";  if  proceed, proceed  to 
"DSPOPTN";  if  other  response,  proceed  to  "DSPOPTN".) 

Perform  "REFMF" 

Switch  FLAGWRD8  bit  2 (INITALGN)  to  1 

If  0PTI0N2  bit  1 = 1:  (0PTI0N2  = 1,3, 5, 7, ) 

Proceed  to  "GVDETER" 

If  FLAGWRD6  bit  1 (ATTFLAG)  = 1,  proceed  to  "P570PT0" 

Switch  FLAGWRD8  bit  2 ( INITALGN ). to  0 

If  0PTI0N2  bits  2 and  1 both  = Or  (0PTI0N2  = 0,A,8, ) 

Proceed  to  "P570PT0" 
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If  0PTI0N2  bit  2 = 0 and  bit  1 = 1:  (0PTI0N2  = 1,5,9,...) 


Proceed  to  "P570PT1" 

If  0PTI0N2  bit  2 = 1 and  bit  1 = 0:  (0PTI0N2  = 2,6,10, ) 

Proceed  to  "P570PT2" 

If  0PTI0N2  bits  2 and  1 both  = 1;  (0PTI0N2  = 3,7,11, ) 

Proceed  to  "P570PT3" 

P570PT0  pci  = pBSAV 
PC2  = ZNBSAV 
Perform  "CDUTRIG" 

Perform  "CALCSMSC" 


TS  = pBsm 

SAMETYP  STARSAV1  = TS 


STARSAV2  = ZNBsm 

Perform  "MFREF"  (VEC1,2  to  reference  coordinates) 

Proceed  to  "SURFLINE" 

P570PT1  pci  = unitRLS 


PC2  = ZNBSAV 
Perform  "CDUTRIG" 


Perform  "CALCSMSC" 
Perform  "CD*TR»GS" 
Perform  "NBTOSM" 

TS  = [nbsmmat]  GSAV 
Proceed  to  "SAMETYP" 
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Proceed  to  "2STARS” 


P570PT2 
P570PT3  pci  = unitRLS 
PC2  = unites 
Perform  "CD^TR^GS" 

Perform  "NBTOSM" 

STARSAV1  = [nBSMMAT  J GSAV 
Perform  "MFREF" 

Proceed  to  "1STAR" 

SURFLINE  STARADq  = unitC  [iSMOdAT  ] pCI ) 

TS^  = STARSAV1 

STARAD^  = unit(  [XSMIMAT]  pC2) 

TS^2  = STARSAV2 

If  FLAGWRD8  bit  2 (INITALGN)  = 1,  proceed  to  "INITBY" 
Perform  "CHKSDATA"  (R54) 

If  FUGWRDO  bit  3 (FREEFLAG)  = 0,  proceed  to  "P57POST" 
INITBY  Perform  "AXISOEN" 

Perform  "CALCGTA" 

If  FLAGWRD8  bit  2 (INITALGN)  = 1,  skip  next  step 

Proceed  to  "GOFLASH"  with  TS  = K;V06N93  (gyro  singles) 
(If  terminate,  proceed  to  "GOTOPOOH";  if  proceed, 
continue  at  next  step;  if  other  response,  proceed 
to  "P57P0ST'’.) 

TS  = (OGC,  IGC,  MGC) 

- ogc 

TS  = TS  / K:5DEGREES 
- ogc 
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If  overflow  ( any  component  of  TS  1 ) : 
pMrf  = [DCMt]'^:  KsUNITX 
YSMr-f  = [DCMAtJ'^  K:UNITY 
ZSMrf  = [DCmT]"^  K:UNITZ 
Perform  "CDUTRIG" 

Perform  "CALCSMSC" 

Perform  "CALCGA" 

If  FLAGWRD8  bit  2 (INITALGN)  = 0,  skip  next  step 

Proceed  to  "GOFIASH"  with  TS  = K:V06N22  (pETAD) 

(if  terminate, proceed  to  "GOTOPOOH";  if  proceed, 
continue  at  next  step;  if  other  response, 
repeat  this  step.) 

Perform  "COARSE" 

IdPIPADT  = TIMENOW^ 

Is 

PIPA  = -0 
GCOMP  = 0 

Switch  FIAGWRD2  bit  15  (DRIFTFLG)  to  1 
ANG  = THETAD 
Perform  "CD*TR*GS" 

Perform  "NBTOSM" 

STARADq  = [NBSMMT]  K:UNITX 
STARAD^  = [NBSMMT]  KiUNITY 
Perform  "CDUTRIG" 

Perform  "CALCSMSC" 

TS^  = MBsm 
TS^2  “ YNBsm 
Perform  "AXISGEN" 

Perform  "CALCGTA" 

(End  of  indented  steps) 
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TS  = address  of  (OGC,IGC,MGC) 
Perform  "IMUPUISE” 


SURFDISF 


2STARS 

1STAR 

R59 


Perform  “IMUSTALL" 

If  ISSGOOD  = 0,  perform  "CURTAINS" 

Switch  FLAGWRD3  bit  13  (REFSMFLG)  to  1 

If  0PTI0N2  = OOOOOg,  proceed  to  "P57POST" 

If  FLAGWRD8  bit  2 (INITALGN)  = 1; 

Proceed  to  "ATTCHK"  skipping  first  step 
Perform  "REFMF" 

Proceed  to  "P57P0ST" 


STARIND  = 0 (first  star) 

Skip  next  step 

STARIND  = 1 (second  star) 

If  FLAGWRD3  bit  13  (REFSMFLG)  = 0,  proceed  to  "R590UT" 

Proceed  to  "GOFLASH"  with  TS  = K:V01N70  (detent  and  star  code) 
(If  terminate,  proceed  to  "GOTOPOOH";  if  proceed, 
continue  at  next  step;  if  other  response, 
proceed  to  "R59"«) 

i = low  6 bits  of  AOTCODE 

If  STARIND  = 0,  BESTI  = 6 i 

If  STARIND  = 1 , BEST J = 6 i 
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If  i = 0,  proceed  to  "R590UT"  (planet,  not  star  code) 

If  38  < i»  proceed  to  "R590UT"  (sun,  earth  or  moon) 

TS  = unit([EEFSMMA.T]  K:CATL0G^) 

Perform  "CDUTRIG" 

Perform  "SMTONB" 

STAR  = [SMNBMAT]  TS  (star  vector  in  NB  coor) 

POSCODE  = 1 

niC^  QMIN  = A0TAZpQ3^Qj^ 

TSazm  = QMIN 

TSelev  = K;r52el  (elevation  = 45  degrees) 

Perform  "OANB" 

TS1  = arccos(STAR«  SCAXIS) 

TS2  = TS1  - K:DEG30 

If  TS2  > 0:  (star  not  in  field  of  view;  tr7  next  position) 
POSCODE  = POSCODE  + 1 
If  POSCODE  > 7,  proceed  to  "R59ALM" 

Proceed  to  "INGAZ” 

TS  = TS1  - KiDEG.5 
If  TS  < Or 

CURSOR  = 0 
SPIRAL  = 0 
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(If  TS  < 0:) 

Proceed  to  •'79DISP" 

TS1  = 12  TS1 

TS2  = unit(SCAXIS  * K:UNITX) 

TS3  = unit(-TS2  * SC AXIS) 

TS4  = unit(SCAXIS  » STAR) 

TS5  = arccos(TS4*  TS2) 

TS  = TS3  • TS4 

If  TS  > 0,  skip  next  step 

TS5  = K;AB0UT1  - TS5 

TS5  = TS5  QMIN  / 2 (one's  complement  form,  scaled  revs) 
Perform  "1ST02S" 

CURSOR  = TS5  (two's  complement  form,  scaled  ^ revs) 

TS  = CURSOR  + TS1  (one's  complement  form,  scaled  revs) 
Perform  "1ST02S'' 

SPIRAL  = TS  (two's  complement  form,  scaled  revs) 

79DISP  Proceed  to  "GOFLASH"  with  TS  = K:V06N79  (CURSOR, SPIRAL, POSCODE) 
(If  terminate,  proceed  to  "GOTOPOOH";  if  proceed, 
continue  at  next  stepj  if  other  response,  proceed 
to  "R59" , ) 

TS  = bits  3-1  of  POSCODE  shifted  left  to  bits  9-7 
TS1  = bits  6-1  of  AOTCODE 

AOTCODE  = TS  + TS1  (star  code  in  bits  6-1;  detent  code 

(derived  from  POSCODE)  in  bits  9-7) 
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R590UT 


Perform  "AOTMARK" 


R59AIJ< 


R69RET 


ASTAR 


GVDETER 


Perform  »'AOTSTALL" 

If  AOTGOOD  = 0,  perform  "CURTAINS" 

Proceed  to  "R59RET" 

Perform  "ALARM"  with  TS  = 00404g 

Proceed  to  "GOFLASH"  with  TS  = K:V05N09  (display  alarm) 
(if  terminate,  proceed  to  "GOTOPOOH";  if  proceed, 
proceed  to  "R5^UT";  if  other  response,  proceed  to 
"R59" . ) 


If  STARIND  = 0,  proceed  to  "ASTAR" 

TSt  = TSIOiT  (time  of  second  mark) 

Perform  "PLANET" 


PC2  = TS 
Perform  "SURFLINE" 

OTARSAV1  = STARAD^  (first  star  marked) 

TSt  = TSimT  (time  of  first  mark) 

Perform  "PLANET" 

VEC1  = TS 

Proceed  to  "1STAR"  (get  second  star  sighting) 

THETAD  = K:42DEG 

X 

THETAD  = -K:42DEG 

y 

THETAD  = K:35nEG 
z 

Switch  FLAGWRD3  bit  13  (REFSMFLG)  to  0 

Perform  "LUNG"  (align  to  TffilTAD  and  get  gravity  vector) 
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LUNG 


Perform  "NBTOSM" 

pBsm  = [nBSMMAt]  KiUNITX 

XSMsm  = 2 STAR  STAR  - K:UNITX 

- X — — 

PBsm  = [RBSHMAT]  K:  UNITY 

YSMsm  = 2 STAR  STAR  - K: UNITY 

y - - 

PBsm  = fpSMMAT]  K:UNITZ 

ZSMsm  = 2 STAR  STAR  - K:UNITZ 

— 2 — — 

Perform  "CALCGA"  (get  new  THETAD) 

STARAD^2  = i 

Perform  "LUNG” 

STARSAV1  = unit(|  MUT  + STARAD^2) 

DSPTEM1  = arccos(STARSAV1  • PAV) 

Switch  FLAGWRDO  bit  3 (FREEFLAG)  to  0 

Proceed  to  "GOFLASH"  with  TS  = K:V06N04  (DSPTEMi) 
(if  terminate,  proceed  to  "GOTOPOOH";  if  proceed, 
continue  at  next  step;  if  other  response, 
switch  FLAGWRDO  bit  3 (FREEFLAG)  to  1 and 
continue  at  next  step.) 

PAV  = STARSAV1 

If  FLAGWRDO  bit  3 (FREEFLAG)  = 1,  proceed  to  "GVDETER" 
Proceed  to  "ATTCHK" 

QMIN  = return  address 
GACC  = 0 
Perform  "COARSE" 

GCTR  = -20 
IdPIPADT  = K:PRI031 
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GCOMPSW  = 0 


GREED 


GRABGRAV 


ADDGRAV 


REGCOARS 


^OMP  = 0 

Perform  "PIPASR"  skipping  first  step  (don't  load  PIPTIMEl) 


Call  "GRABGRAV"  in  two  seconds 
End  job 

Perform  "PIPASR"  skipping  first  step 
Establish  "ADDGRAV"  (pr13) 

End  task 
Perform  "l/PIPA" 

GCTR  = GCTR  + 1 

GACC  = GACC  + K:lungt  DELV 

If  GCTR  < 0,  proceed  to  "GREED" 

STAR  = unit^CC 
Perform  "CDUTRIG" 

Perform  "SMTONB" 

^UT  = [smnbmat]  star 

Rettirn  via  QMIN 
Perform  "CAL53A" 

Switch  FLAGWRD3  bit  13  (REFSMFLG)  to  1 
Switch  FLAGWRD2  bit  4 (PFRATFLG)  to  0 
Perform  "R51" 

Proceed  to  "GOTOPOOH" 
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P57P0ST  Proceed  to  "G0PERF1"  with  TS  = 00014^  (checklist  # 14) 
(if  terminate,  proceed  to  "GOTOFOOH";  if  proceed, 
proceed  to  "ATTCHK"  skipping  first  step;  if  other 
response,  continue  at  next  step.) 

If  0PTI0N2  00002g,  proceed  to  "GOTOPOOH" 

(0PTI0N2  = 00002g  so  calculate  landing  site) 

Perform  "CDUTRIG" 

Perform  "NBTOSM” 

TSgref  = [REFSMMAT]^  [nbSm]  ^AV 

Switch  FLAGWRD3  bit  12  (LUNAFLG)  to  1 

ALPHAV  = I RLS I TSgref 

Switch  FLAGWRD1  bit  13  (ERADFLAG)  to  0 

TSt  = TIMENOW 

Perform  "N89DISP" 

P = ALPHAV  (scaled  B29) 

PIPTIME  = TSt 
Perform  "MOONMX" 

RLS  = [M00NMATj(p  - (iMOONMAT)'^  IM5O4)  * p) 

Proceed  to  "GOTOPOOH" 

KILLAOT  Switch  EXTVBACT  to  zero  (allow  extended  verbs) 

Proceed  to  "GOTOPOOH" 

IMUCHK  If  bit  9 of  IM0DES30  =1:  (IMU  off) 

Perform  "ALARM"  with  TS  = 0021 Og 
Proceed  to  "GOTOPOOH" 

Switch  FLAGWRDO  bit  8 (IMUSE)  to  1 
Return 
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Quantities  in  Computations 


IdPIPADT:  See  IMUC  section. 
AIPHAV:  See  COOR  section. 
ALT:  See  COOR  section. 

ANG:  See  COOR  section. 


AOTAZ.,  AOTEL.  (1  = 1 ,2,3 ,4>5,6) ; Twelve  single  precision  scalars 
stored  in  units  of  revolutions,  scaled  B-1  in  two's  complement 
form.  The  AOT  has  six  working  positions,  fixed  by  detents,  defined 
by  angles  of  rotation  around  the  -X  spacecraft  axis,  measured 
from  the  +Z  spacecraft  axis  (AOTAZ ) and  by  angles  of  elevation 
above  the  Y-Z  plane  (AOTEL) . These  quantities  are  stored  in 
erasable  memory  because  their  exact  values  vary  among  spacecraft, 
but  the  nominal  values  are; 

i AOTAZ.  AOTEL. 

1 1 


1 

(left  forward) 

-60° 

45 

2 

(forward) 

0° 

45 

3 

(right  forward) 

60° 

45 

4 

(right  rear) 

120° 

45 

5 

(rear) 

180° 

45 

6 

(left  rear) 

-120° 

45 

AOTCODE:  A single  precision  scalar  containing  the  star  selection 
code  in  bits  6-1  (an  octal  number  from  1 to  45g  for  stars, 

0 for  a planet,  and  46^-50^  for  sun,  earth  and  moon),  and 

the  AOT  detent  code  in  bits  9-7  (1,2, 3, 4, 5 or  6 for  AOT  detents; 

0 for  COAS  calibration;  7 for  COAS  position  to  be  specified.) 


AOTGOOD:  A flag  indicating  that  the  AOT  marking  procedure  was 
successfully  executed.  (Implemented  as  a variable  return 
address  in  the  listing.) 


AZ,  EL:  Single  precision  angles  of  azimuth  and  elevation  of  the  COAS 
stored  in  units  of  revolutions,  scaled  B-1  in  two's  complement  form. 


BESTI:  Single  precision  value,  scaled  B14,  of  the  index  parameter  for 

star  #1  of  the  "best"  star  pair  as  determined  by  "R56".  It  is  the 
star  farthest  from  the  AOT  center  detent  position  and  will  be  zero 
if  no  star  pairs  are  foiind  that  are  satisfactory.  In  "R59"  it  is  the 
value  of  the  index  parameter  of  the  first  celestial  body  used  for 
marking  (if  two  bodies  are  to  be  used).  It  is  equal  to  six  times  the 
decimal  equivalent  of  the  "star  selection  code"  (see  AOTCODE  definition 
and  the  Star  Table), 


BESTJ:  See  BESTI.  In  "R56"  it  is  the  index  parameter  for  star  #2 
which  is  the  closest  star  to  the  AOT  center  detent  position.  In 
"R59"  it  is  the  index  parameter  of  the  second  celestial  body  used 
for  marking  (if  two  are  to  be  used)  or  the  index  parameter  of  the 
single  body  being  used  (Technique  3 alignment). 
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CDU:  See  COOR  section. 

CEARTH,  CMOON,  CSUN:  Three  double  precision  cosines  defining  the 
areas  around  the  earth,  moon  and  sun  within  which  an  object 
to  be  marked  is  considered  to  be  occulted;  scaled  B2  and 
vmitless . 

CURSOR:  Single  precision  angle  through  which  the  reticle  must  be 

rotated  to  place  the  cursor  on  a star  for  a given  viewing  position. 
Used  only  on  the  lunar  surface,  scaled  BO  in  units  of  half  revolutions. 


[DCMAtJ  ; Double  precision  direction  cosine  matrix,  scaled  B1  and 
unitless.  When  multiplied  by  K:UNITX,  KrUNITY  and  K:UNITZ  it  is 
equivalent  to  the  program  notation  of  XDC,  YDC  and  ZDC  respectively. 

DELV:  See  SERV  section. 

DSPTEM1,  DSPTEM2:  See  DATA  section. 

EXTVBACT;  See  EXVB  section. 

GACC:  Double  precision  sum  of  measured  gravity  vectors,  scaled  B13 
in  units  of  centimeters  per  second  squared  and  expressed  in 
stable  member  coordinates. 

^OMP,  GCOMPSW:  See  IMUG  section. 

GCTR:  Single  precision  counter  scaled  B14  and  unitless.  Set  to  -20 
in  "LUNG"  and  incremented  by  one  each  two  seconds  until  it  becomes 
zero,  thus  allowing  40  seconds  of  PIPA  readings  for  determination 
of  the  gravity  vector. 

GOUT:  Double  precision  unit  gravity  vector,  scaled  B1  and 
expressed  in  navigation  base  coordinates. 

GSAV:  Double  precision  storage  for  unit  gravity  vector  determined- 
in  previous  pass  through  "P57" , scaled  B1  and  expressed  in 
navigation  base  coordinates. 

HAVEPAIR:  Single  precision  flag  to  indicate  whether  "R51"  was 

successful  in  finding  a star  pair  adequately  separated  for  marking. 

I IM0DES30,  IMUCADR,  ISSGOOD'.See  IMUC  section. 

K:35DEG:  Single  precision  constant  stored  as  06211^  scaled  B-1  in 
units  of  revolutions.  Equation  value:  0.09793 . (^Equivalent  to 
35.255  degrees.) 

K:42DEG:  Single  precision  constant  stored  as  07357,^  scaled  B-1  in 
units  of  revolutions.  Equation  value  0.11667  (Equivalent  to 
42.001  degrees.) 

K:5DEGREES:  Double  precision  constant  stored  as  0.013888889, 

scaled  BO  in  units  of  revolutions.  Equation  value:  0.013888889. 
(Equivalent  to  5 degrees . ) 
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KtABOUTI:  Double  precision  constant,  scaled  BO  in  units  of 
revolutions.  Equation  value;  0.9999999. 

K:CATL0G^:  A list  of  thirty-seven  unit  vectors  defining  the 
position  of  stars  to  be  used  as  references  against  which 
star  sighting  measurements  can  be  compared,  scaled  B1  and 
\initless.  See  table  below. 

K;C3S33:  Double  precision  constant  stored  as  0.16070,  scaled 
B2  and  unitless.  Equation  value;  0.64280.  (Equivalent  to 
the  cosine  of  50  degrees) 

K;CSS40;  Double  precision  constant  stored  as  0.16070,  scaled  B2 
and  unitless.  Equation  value;  0.64280.  (Equivalent  to 
the  cosine  of  50  degrees) 

K;CSS5:  Double  precision  constant  stored  as  0.2490475,  scaled 
B2  and  unitless.  Equation  value;  0.99619.  (Equivalent 
to  the  cosine  of  5 degrees) 

K;CSSUN;  Double  precision  constant  stored  as  0.125,  scaled  B2 
and  unitless.  Equation  value;  0.5.  (Equivalent  to  the 
cosine  of  60  degrees) 

K;DEG.5;  Double  precision  constant  stored  as  0.00138888,  scaled 
BO  in  units  of  revolutions.  Equation  value;  0.00138888. 

K:DEG30;  Double  precision  constant  stored  as  0.083333333,  scaled 
BO  in  units  of  revolutions.  Equation  value;  0.083333333. 
(Equivalent  to  30  degrees) 

—1  A, 

K;DEG359;  Single  precision  constant  stored  as  16338  x 2 , scaled 

BO  in  imits  of  revolutions.  Equation  value;  0.99719. 

(Equivalent  to  359  degrees) 

K;DEG60;  Single  precision  constant  stored  as  0.333313,  scaled 
B-1  in  units  of  revolutions.  Equation  value:  0.1666. 

(Equivalent  to  60  degrees) 

K:DEGREE1;  Single  precision  constant  stored  as  46  x 2 

scaled  BO  in  units  of  revolutions.  Equation  value:  0.0028. 
(Equivalent  to  1 degree) 

K:l\angt:  Implied  constant,  scaled  B-1  in  units  of  seconds 

Equation  value: 
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K;PRI031:  See  SERV  section. 


K:r52el:  Single  precision  constant  stored  as  lOOOOg,  program 

notation  "BIT13",  scaled  B-1  in  \inits  of  revolutions.  Equation 
value:  0.125.  (Equivalent  to  45  degrees) 

K:R0E:  Double  precision  constant  stored  as  0.00257125,  scaled  BO 
and  imitless.  Equation  value:  0.00257125.  (Equivalent  to  the 
ratio  of  the  mean  Earth  to  Moon  distance  to  the  mean  Earth  to 
Sun  distance) 

-29 

K:RSITBE:  Double  precision  constant  stored  as  6378166  x 2 , scaled 

B29  in  units  of  meters.  Equation  value:  6378166.  (Equivalent  to 
6378.166  km;  the  equatorial  radius  of  the  Earth) 

-29 

K:RSUBEM:  Double  precision  constant  stored  as  384402000  x 2 , scaled 

B29  in  imits  of  meters.  Equation  value:  384402000.  (Equivalent  to 
384,402.0  km;  the  mean  distance  between  the  Earth  and  Moon) 

-29 

K:RSUBM:  Double  precision  constant  stored  as  1738090  x 2 , scaled 

B29  in  units  of  meters.  Equation  value:  1738090.  (Equivalent 
to  1738.09  km;  the  mean  radius  of  the  moon) 

—28 

K:TSIGHT1:  Double  precision  constant  stored  as  36000  x 2 , 

scaled  B28  in  units  of  centiseconds.  Equation  value:  36000. 
(Equivalent  to  6 minutes) 

K:UNITX,  K:UNITY,  K:UBITZ:  See  SERV  section. 

K:VxxNxx:  See  Major  Variables  section. 

LANDLONG,  LANDLAT,  LANDALT:  Double  precision  locations  for  display 
of  LONG,  LAX  and  ALT  respectively  in  Noun  80. 

LAX,  LONG:  See  COOR  section. 

^504:  See  COOR  section. 

LOG:  Single  precision  octal  storage  for  starting  address  of  an 
awakened  job. 

MARKCNXR:  Single  precision  counter  to  keep  track  of  the  number 
of  valid  marks  made  by  the  astronaut  and  to  limit  the  number 
allowed,  scaled  BI4  and  unitless. 

MARKSTAT:  Single  precision  address  storage  and  flagword.  The 

address  of  the  special  working  storage  area  assigned  to  the 
mark  system  is  kept  in  bits  9-1  of  MARKSXAX.  Bit  15  is 
always  0.  The  other  bits  have  the  following  significance: 
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Bit 

U 


13 


12 


11 

10 


Meaning 

(l)  A set  of  marks  Is  complete  and  the  next 
mark  Is  to  be  Interpreted  as  part  of  a 
new  set. 

(0)  A pair  of  marks  Is  In  the  process  of  being 
executed  and  redundant  raarke  will  not  be 
accepted. 

(1)  A mark  has  been  made  since  the  last  reject 
and  It  alone  will  be  cleared  If  a reject 
Is  entered. 

(0)  If  a reject  Is  entered,  both  marks  will 
be  cleared. 

(1)  The  processing  of  marks  and  mark  rejects 
In  the  "MARKRUPT”  routine  Is  Inhibited 
because  the  parameters  needed  for  Inter- 
pretation of  marks  have  not  yet  been 
Initialized,  or  the  astronaut  has  Indicated 
that  he  Is  finished  taking  marks. 

(0)  The  processing  of  marks  Is  allowed. 

(1)  The  Y mark  of  a pair  has  been  accepted. 

(0)  The  Y mark  of  a pair  has  not  yet  been  accepted. 

(1)  The  X mark  of  a pair  has  been  accepted. 

(O)  The  X mark  of  a pair  has  not  yet  been  accepted. 


MARKVAC.:  Single  precision  storage  for  two's  complement  values 
of  gimbal  angles  from  the  CDU  at  the  time  of  each  of  the  X and 
Y marks  taken,  for  use  In  constructing  the  llne-of-slght  vector 
at  each  mark  and  determining  the  average  llne-of-slght  vector, 
scaled  B-1  In  units  of  revolutions. 


MARKVACj^gjjj2[^^  2*  Single  precision  storage  for  CURSOR  and  SPIRAL  angles 

respectively.  Indexed  such  that  up  to  five  sets  of  angles  can  be 
stored  for  use  In  determining  the  average  llne-of-slght  vector. 
Storage  locations  actually  used  are  those  normally  reserved  for 
Y-mark  CDU  Information.  (Only  X-mark  Information  Is  used  on 
the  Itmar  sijrface.)  Scaled  B-1  In  units  of  revolutions. 

MKDEX:  Single  precision  Index  scaled  B14  and  unitless,  or  B3  and 
unitless. 

MPAC;  See  MATX  section. 

n:  Single  precision  Integer  scaled  B14. 

[NBSMMAT] : See  COOR  section. 

OGC,  IGC,  MGC:  See  COOR  section. 

OPTCADR:  Single  precision  octal  storage  for  address  to  return 
to  program  that  has  requested  marking  and  Is  waiting  for  the 
marking  to  be  completed. 
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0PTI0N1,  0PTI0N2,  0PTI0N3:  See  DATA  section. 
PBODY:  See  ORBI  section. 


PIPA:  See  IMQC  section. 

PIPTIME:  See  SERV  section. 

PLANYEC:  Double  precision  unit  vector  in  the  direction  of  the 
first  celestial  body  to  be  used  for  marking,  scaled  B1  and 
expressed  in  reference  coordinates. 

POINTVSM:  See  ATTM  section. 

POSCODE:  Single  precision  counter  to  indicate  the  position  of 
the  AOT . Changed  to  the  appropriate  detent  code  in  " 79DISP" ; 
scaled  B14  and  unitless. 

QMAJ,  QMINr  Single  precision  octal  return  address  storage  cells. 

QMIN  is  also  used  as  temporary  working  storage. 

MTT:  See  ORBI  section. 

|rEFSMMAtJ:  See  COOR  section. 

I^RFSTMATj  : Double  precision,  3x3  matrix  such  that  A^^  ^ = [RFSTMAT]  A^ 
where  A is  a vector  expressed  in  " line-of-sight”  ant^reference 
coordinates  respectively;  scaled  B1  and  unitless. 

RLS;  See  DESC  section. 


See  SERV  section. 


R^CTCSM:  See  ORBI  section. 

SAX:  Double  precision  unit  vector  in  the  direction  of  the 
line-of-sight  of  the  AOT  center  position,  scaled  B1  and 
expressed  in  reference  coordinates. 


SCAXIS:  See  ATTM  section. 

I SMNBMATj : See  COOR  section. 

I SMSTMAtI : Double  precision, 
A = [SMSTMA^A  where 
" f i^-of-sight”  an3™stable 
scaled  B1  and  unitless. 


3x3  matrix  defined  such  that 
A is  a vector  expressed  in 
member  coordinates  respectively; 


SPIRAL:  Single  precision  angle  through  which  the  reticle  must  be 
rotated  to  place  the  spiral  on  a given  star.  Used  only  on 
the  lunar  surface,  scaled  BO  in  units  of  half  revolutions. 
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STAR:  Line-of-sight  vector  to  a star,  expressed  in  navigation 

base  coordinates.  Also  temporary  storage  for  ^GG  in  "ADDGRAV" . 

STARADq,  S^TARAD^r  Double  precision  unit  vectors  used  primarily 
for  storage  of  mea.sured  position  vectors  of  the  two  celestial 
bodies  being  marked  and  expressed  in  stable  member  coordinates. 
Also  used  as  working  storage  for  other  occasions. 

STARAD^2‘  Double  precision  \mit  vector  used  for  working  storage. 

STARIND:  Single  precision  index  scaled  B14  and  unitless. 

STARSAV1 , S^TARSAV2:  Double  precision  vectors  scaled  B1  and  unit- 
less. Used  to  store  the  two  "measurement"  vectors  for 
comparison  with  two  "reference"  vectors  to  determine  IMU 
alignment.  Expressed  in  stable  member  coordinates. 

TALIGN:  Double  precision  t3me  for  determination  of  IMU  alignment, 
scaled  B28  in  units  of  centiseconds . 

TDEG1 : See  ORBI  section. 

THETA:  See  GOOR  section. 

THETAD:  See  TMIG  section. 

TIG:  See  RTRN  section. 

TIMENOW:  See  EXVB  section. 

TLAND:  See  DESG  section. 

TSIGHT:  DouW.e  precision  time  of  latest  sighting,  scaled  B28 
in  units  of  centiseconds. 

UXP,  IRP:  Double  precision  vectors  expressed  in  navigation  base 
coordinates,  scaled  B1  and  unitless.  Unit  vectors  perpendicular 
to  the  planes  whose  images  in  the  AOT  eyepiece  coincide  with 
the  horizontal  {J.)  and  vertical  (Y)  crosshairs.  The  inter- 
section of  these  planes  determines  the  line-of-sight  vector 
to  the  star  being  marked. 

UXP' , UYP' : Double  precision  vectors  expressed  in  navigation 
base  coordinates,  scaled  B1  and  unitless.  Unit  vectors 
perpendicular  to  the  AOT  line-of-sight  and  to  the  horizontal 
(X)  and  vertical  (Y)  crosshairs  in  the  AOT  eyepiece  reticle. 

Each  defines  one  of  two  planes  whose  intersection  determines 
the  line-of-sight  vector  to  the  image  of  a star  in  the  AOT 
eyepiece.  Because  of  the  construction  of  the  AOT  (a  rotating 
shaft  above  a fixed  mirror),  the  field  of  view  rotates  about 
the  line-of-sight  vector  as  the  AOT  shaft  rotates  about  the  -X 
spacecraft  axis. 
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VATT : See  ORBI  section. 

VEARTH,  VMOON,  VSUN:  Double  precision  unit  vectors  in  the  direction 
of  the  earth,  moon  and  sun  with  origin  at  the  spacecraft,  scaled 
B1  and  expressed  in  reference  coordinates.  (Origin  also  at 
the  earth  or  moon) 

See  COOR  section. 

VKECTCSM;  See  ORBI  section. 

]QX!,  YDC,  ZDC:  In  "P52D"  these  are  the  desired  stable  member 
unit  vectors  in  present  stable  member  coordinates.  They  are 
also  the  x,y  and  z components  of  [dCMAT^. 

fflJBrf,  YNBrf,  ZNBrf,  ffllBsm,  YNBsm,  ^Bsm:  See  COOR  section. 

JBMrf,  YSMrf,  ZSMrf:  See  COOR  section. 

]^Drf,  YSMDrf,  ZSMDrf:  See  COOR  section. 

fXSMDMATj  : Double^  precision,  3x3  matrix  defined  such  that 

Asmd  = [XSMI»4AT1  Aref,  where  A is  a vector  expressed  in  desired 
stable  member  coordinates  and  reference  coordinates  respectively; 
scaled  B1  and  unitless.  The  components  are  ^MDrf,  YSi'lDrf 
and  ZSMDrf. 

XYMARK:  Single  precision  octal  storage  for  bit  indicating  whether 
mark  being  processed  is  an  X or  a Y mark,  or  working  storage 
for  other  occasions. 

YNBSAV,  ZNBSAV:  Double  precision  unit  vectors  in  the  directions  of 
the  Y and  Z navigation  base  axes,  scaled  B1  and  expressed  in 
moon-fixed  coordinates. 
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Values  of  KiCATLOG^  (Star  Table) 


Display  Index 


X Con'ponent  Y Component 


Z Component 


Identification 


01 

02 

03 

04 

05 

06 
07 
10 
11 
12 

13 

14 

15 

16 
17 
20 
21 
22 

23 

24 

25 

26 
27 

30 

31 

32 

33 

34 

35 

36 

37 

40 

41 

42 

43 

44 

45 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 


O.87486589I8 

0.9342640400 

0.4775639450 

0.4917670276 

0.0130968840 

0.5450107404 

0.7032235469 

0.4105636020 

0.3507315038 

0.2011399589 

0.1371725575 

-0.0614937230 

-0.1820751783 

-0.4118589524 

-0.3612508532 

-0.4657947941 

-0.7742591356 

-O.86O82O5219 

-0.9656605484 

-0.9525211695 

-0.4523440203 

-0.9170097662 

-0.5812035376 

-0.6898393233 

-0.7861763936 

-0.5326876930 

-0.3516499609 

-0.1146237858 

-0.1124304773 

0.1217293692 

0.2069525789 

O.45371969O8 

0.5520184464 

0.3201817378 

O.454IO8627O 

0.8139832631 

0 . 83’42971408 


0.0260879174 
0.1735073142 
0.1166004340 
0.2204887125 
O.OO78O62795 
0.5314955466 
0.7075846047 
0.4988110001 
0.8926333307 
0.9690337941 
0.6813721061 
0.6031563286 
0 . 9404899869 
0.9065485360 
0 . 5747270840 
0.4774785033 
0.6152504197 
0.4636213989 
0.0525933156 
-0.0593434796 
-0.0493710140 
-0.3502146628 
-0.2909171294 
-0.4182330640 
-0.5217996305 
-0.7160644554 
-0.8240752703 
-0.3399692557 
-0.9694934200 
-0.7702732847 
-0.8719885748 
-0 . 8779508801 
-0.7933187400 
-0.4436021946 
-0.5392368197 

-0.5557243189 

-0.2392481515 


0.4836621670  Andromedae 
-0.3115219339  ^ Ceti 
O.87O82548O3  y Cassiopeiae 
-0.8423473935  Eridani 
0.9998837600  <6  Ursae  Minoris 
-0.6484410356  0 Eridani 

0.0692868685  Ceti 

^^Persei 

0.2831839492  ^<Tauri 
-0.1432348512  Orionis 
0.7189685267  Aurigae 
-0.7952489957  ^ Carinae 
-0 . 2869271926  <2\  Canis  Majoris 
0.0924226975  Canis  Minoris 
-0 . 7342932655  y' Velorum 
0.7450164351  Ursae  Majoris 
-0.1482892839  K Hydrae 
0.2098647835  <^Leonis 

O.254428O8O9  Leonis 

-0.2986331746  7 Corvi 
-0.8904759346  '^Crucis 
-0 .1908999176  Virginia 
0.7599800468  *'/ Ursae  Majoris 
-0.5909338474  6^  Centauri 
0.3311371675  '^Bootis 
0.4511047742  Coronae  Borealis 
-0.4441196390  'XScorpii 
-0. 9334250333  Trianguli  Australis 
0 , 2178116072  'X  Ophiuchi 
0.6259880410  'A  Lyrae 
-0 .4436288486  Sagittarii 
0.1527766153  AAquilae  ' 

-0. 2567508745  ^ Capricorn! 
-0.8370786986  Pavonis 
0.7092312789  A Cygni 
0.1691204557  ='  Pegasi 
-0. 4966976975  Piscis  Austrini 


The  "Display"  column  gives  the  star  number  that  is  displayed  by  the 
program  (as  an  octal  quantity).  The  "Index”  column  is  the  decimal 
equivalent  of  the  "Display"  column  and  when  multiplied  by  six  is 
equal  to  BESTI  (or  BESTJ), 
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Stars  in  Star  Table 


Display 

Name 

Catlg. 

Magnitude 

Right 

Ascension 

Declination 

01 

Alpheratz 

(X.  And 

2.1 

0 

06 

49.9 

+28 

55 

29 

02 

Diphda 

Cet 

2.2 

0 

42 

05.0 

-18 

09 

04 

03 

Navi 

7 Cas 

Var. 

0 

54 

53.0 

+60 

33 

17 

04 

Achernar 

Eri 

0.6 

1 

36 

35.9 

-57 

23 

20 

05 

Polaris 

« UMi 

2.1 

2 

03 

18.9 

+89 

07 

34 

06 

Acaraar 

0 Eri 

3.4 

2 

57 

07.4 

-40 

25 

27 

07 

Menkar 

Cet 

2.8 

3 

00 

42.5 

+ 3 

58 

23 

10 

Mirfak 

Per 

1.9 

3 

22 

10.3 

+49 

45 

21 

11 

Aldebaran 

^ Tau 

1.1 

4 

34 

11.8 

i-16 

27 

01 

12 

Rigel 

^ Ori 

0.3 

5 

13 

05.7 

- 8 

14 

06 

13 

Capella 

Aur 

0.2  ■ 

5 

14 

28.2 

4-45 

58 

10 

14 

Canopus 

Car 

-0.9 

6 

23 

17.1 

-52 

40 

44 

15 

Sirius 

CMa 

-1.6 

6 

43 

49.6 

-16 

40 

25 

16 

Procyon 

<4  cMi 

0.5 

7 

37 

43.9 

4-  5 

18 

11 

17 

Regor 

Vel 

1.9 

8 

08 

36.4 

-47 

14 

51 

20 

Dnoces 

t UMa 

3.1 

8 

57 

09.7 

+48 

09 

38 

21 

Alphard 

Hya 

2.2 

9 

26 

06.8 

- 8 

31 

40 

22 

Regulus 

Leo 

1.3 

10 

06 

46.5 

+12 

06 

52 

23 

Denebola 

P Leo 

2.2 

11 

47 

31.8 

+14 

44 

23 

24 

Gienah 

y Crv 
Cru 

2.8 

12 

14 

15.6 

-17 

22 

32 

25 

Acrux 

1.0 

12 

24 

54.9 

-62 

55 

59 

26 

Spica 

c<  vir 

1.2 

13 

23 

36 , 6 

-11 

00 

19 

27 

Alkaid 

UMa 

1.9 

13 

46 

21.6 

+49 

27 

45 

30 

Menkent 

® Cen 

2.3 

14 

04 

54.6 

-36 

13 

23 

31 

Arcturus 

^ Boo 

0.2 

14 

14 

17.5 

+19 

20 

16 

32 

Alphecca 

CrB 

2.3 

15 

33 

25.0 

+26 

48 

53 

33 

Antares 

0^  Sco 

1.2 

16 

27 

33.9 

-26 

22 

01 

34 

Atria 

c<  TrA 

1.9 

16 

45 

28.3 

-68 

58 

31 

35 

Rasalhague 

^ Oph 

2.1 

17 

33 

32.4 

+12 

34 

50 

36 

Vega 

<4  Lyr 

0.1 

18 

35 

55.3 

+38 

45 

17 

37 

Nunki 

ir  Sgr 

2.1 

18 

53 

24.3 

-26 

20 

08 

40 

Altair 

«.  Aql 

0.9 

19 

49 

19.1 

-h  8 

47 

16 

41 

Dabih 

^ Cap 

3.2 

20 

19 

19.6 

-u 

52 

38 

42 

Peacock 

c<  Pav 

2.1 

20 

23 

17.0 

-56 

49 

58 

43 

Deneb 

^ Cyg 

1.3 

20 

40 

24.4 

+45 

10 

21 

44 

Enif 

6 Peg 

2.5 

21 

42 

42.7 

+ 9 

44 

12 

45 

Fomalhaut 

PsA 

1.3 

22 

55 

59.7 

-29 

46 

54 

"Display"  gives  the  star  number  that  is  displayed  by  the  program  (as  an 
octal  quantity),  "Catlg"  refers  to  the  name  on  pp.  282-292  of  "The 
American  Ephem.eris  and  Nautical  Almanac  for  the  Year  1970,"  where  the 
magnitude  and  coordinate  information  were  obtained. 

Right  ascension  is  given  in  hours,  minutes,  and  seconds;  Declination  is 
given  in  degrees,  minutes,  and  seconds.  Both  are  for  January  O.767,  1970, 
the  beginning  of  the  Besselian  year. 
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ASCT 


Ascent  Guidance 


Perform  "R02B0TH'' 

Switch  RADMODES  bit  10  (DESIGFLG)  and  bit  15  (CDESFIAG)  to  0 
Switch  bit  2 of  channel  12  to  0 (disable  RRCDF  error  counters) 
DVTHRUSH  = K:THRESH2 
DVCNTR  = 4 
TRKMKCNT  = 0 

Proceed  to  "GOFIASH"  with  TS  = K:V06N33  (TIG) 

(If  terminate,  proceed  to  "GOTOPOOH";  if  proceed,  continue 
with  next  step;  if  other  response,  repeat  this  step.) 

Switch  FLAGWRD6  bit  8 (MONFLAG)  to  1 

Switch  DAPBOOLS  bit  11  (ACC40R2X)  to  1 

Switch  FIAGWRDO  bit  2 (RIOFIAG)  to  1 

Switch  FLAGWRDO  bit  7 (RNDVZFLG)  to  0 

Switch  FLAGWRD9  bit  11  (FLPI)  to  1 

Switch  FIAGWRD9  bit  14  (FLVR)  to  1 

TSt  = TIMENOW 

Perform  "MOONMX" 

TS  = [mOONMAt]"^  (K:UNITZ  + LM504  * K:UNITZ) 

WM  = KrMOONRATE  [PEFSMMAT^  TS 
LANDMAG  = |rLs| 

Perform  "P12INIT"  (initialize  APS  parameters  and  ascent 

targets) 

TGO  = KrTGOA 
TDEC1  = TIG 
Perform  "LEMPREC" 

VIS  = j^FSMMA'^  PTT 
R = [refsmma'0  MTT 
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Perform  "MJNGRAV"  with  TSr  = R 
piTR  = unitR 

Y = RCO  (piTR  • ^XIS) 

XRANGE  = - Y 

ZDOTD  = K:VINJN0M 
RDOTD  = K:RDOTDNOM 

Proceed  to  "GOFIASH"  with  TS  = K:V06N76  (ZDOTD,  RDOTD,  XRANGE) 
terminate,  proceed  to  "GOTOPOOH";  if  proceed,  continue 
with  next  step;  if  other  response,  repeat  this  step.) 

WHICH  = "P12TABLE" 

YCO  = XRANGE  + Y 

V = K:49FPS  piTR  + VIS 
RDOT  = V • OTITR 

mis  = unit(piTR  * ^XIS) 

Proceed  to  "ASCENT”  (calculate  initial  guidance  quantities) 

P12RET  TS  = (ATP)^  + (ATY)^ 

If  TS  = 0,  skip  next  step 
TS  = arcsin(ATY  / VtS  ) 

YAW  = TS 

PITCH  = - arccos(piTR  • unitOTFC) 

Perform  "PFLITEDB"  with  interrupts  inhibited 
Switch  FLAGWRD9  bit  11  (FLPI)  to  0 

Proceed  to  "BURNBABY" 

(Standard  pre-ignition  sequence;  initializes  average-g 
navigation  at  TIG-30  seconds  and  calls  "P12IGN"  at  time  of 
ignition  which  sets  AVEGEXIT  to  "ATMAG"  establishing  the 
two  second  guidance  loop.  See  BURN  section  for  details.) 
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P70 


P70A 


P71 


P71A 


ABRTJASK 


If  MODREG  = MMNUMBER  or  FLAGWRD9  bit  9 (LETABORT)  = 0 or 
FLAGWRD7  bit  5 (AVEGFLAG)  ^ 0: 

Proceed  to  "ABORTALM" 

TS  = 0 

Proceed  to  the  second  step  of  "P71A" 

If  MODREG  = MMNUMBER  or  FLAGWRD9  bit  9 (LETABORT)  = 0 or 
FLAGWRD7  bit  5 (AVEGFLAG)  = 0: 

Proceed  to  "ABORTALM" 

TS  = 2 

Inhibit  interrupts 

Cause  the  "Resume"  instruction  to  resume  operations  at  "ABRTJASK" 
Resume 

(The  purpose  of  the  above  manipulation  of  the  "Resume"  instruction 
is  to  cause  the  instructions  beginning  at  "ABRTJASK"  to  be 
performed  immediately.  "ABRTJASK"  will  appear  as  a task  to 
all  other  jobs,  i.e.  "ABRTJASK"  will  be  performed  prior  to  the 
performance  of  any  other  job.  Note  also  that  "ABRTJASK"  is 
performed  under  interrupt  inhibit  so  that  no  tasks  which  are 
scheduled  on  program  interrupts  will  be  performed  until  after 
"ABRTJASK"  is  completed.) 

TSa  = 70 

If  TS  i 0; 

TSa  = 71 

Switch  FLGWRD10  bit  13  (APSFLAG)  to  1 (tell  DAP  we  are 

on  ascent  stage) 

MODREG  = TSa 

DISPDEX  = TSa  (positive  to  kill  "CLOKTASK") 

Switch  DAPBOOLS  bit  6 (ULLAGER)  to  0 
Switch  DAPBOOLS  bit  8 (DRIFTBIT)  to  0 

Switch  DAPBOOLS  bit  9 (XOVINHIB)  to  0 (allow  X-axis  override) 
Switch  DAPBOOLS  bit  1$  (PULSES)  to  0 
DB  = K:1DEGDB 
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GO ABORT 


Switch  FLAGWRD5  bit  7 (ENGONFLG)  to  1 

Switch  bits  14  and  13  of  channel  11  to  01  ^ (ensure  engine  an) 

Switch  FLGWRD11  to  40000g  (bypass  LR  updates) 

Switch  FLAGWRDO  bit  2 (RIOFLAG)  to  1 
TEVENT  = TIMENOW 
AVEGEXIT  = "SERVEXIT" 

Cause  "ENEMA"  to  restart  P70  or  P71  at  "GOABORT" 

Cause  "ENEMA"  to  maintain  "SERVICER"  and  "R10,R11" 

Clear  all  other  restart  logic 
Proceed  to  "ENEMA" 

DVCNTR  = 4 
WHICH  = "ABRTABEE" 

Switch  FLAGWRD9  bit  10  (FLRCS)  to  0 
Switch  FIAGWRD8  bit  10  (FLUNDISP)  to  0 
Switch  FLAGWRD7  bit  7 (IDLEFLAG)  to  0 
Switch  DAPBOOLS  bit  11  (ACC40R2X)  to  1 
Switch  FLAGWRD9  bit  13  (P7071FLG)  to  1 
Perform  "INITCDUW" 

If  MODREG  =70:  (P70) 

TGO  = TIMENOW  - TIG 

TBUP  = MASS  / K:MD0TDPS 

D'71  = (MASS  / K:DVD)  / K:2SEC 

DV2  = DV1 

DV3  = DV1 

AT  = K:ATD  / DV1 

TTO  = K:100PCTT0 

VE  = - K:DPSVEX 
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(If  MODREG  =70:) 


I 

INJTARG 


Perform  "COMMINIT"  (initialize  ascent  targets) 

Proceed  to  "INJTARG" 

Switch  FLAGWRD9  bit  9 (LETABORT)  to  0 
DVTHRUSH  = K:THRESH2 
Perform  "P12INIT" 

If  FLAGWRD9  bit  8 (FLAP)  = 1: 

TG01  = 2 TGO 
TGO  = TG01 

Proceed  to  the  third  step  of  "UPTHROT" 

TGO  = TIMENOW  - TIG 
RDOTD  = ABTRDOT 
Y = RCO  (piTR  . ^AXIS) 

TS  = I Y I - YLIM 

If  TS  ^0,  YCO  = TS  signY 

XHANGE  = YCO  - Y 

Switch  FLAGWRD9  bit  U (FLVR)  to  1 
TS  = (unitpSM  * unitR)  . ^ 

TS1  » signTS  arccos(tinitRCSM  . tinitR) 

If  TSI^  THETCRIT: 

JPARM  = J2PARM 
KPARM  = K2PARM 

RP  = THETCRIT  (this  step  included  only  because  of  coding 

efficiency) 

If  TS1  < THETCRIT: 

JPARM  = J1PARM 
KPARM  = K1PARM 

RP  = J2PARM  (this  step  included  only  because  of  coding 

efficiency) 
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RP  = RCO 


UFTHROT 


THROTUP 


P12INIT 


COmiNIT 


Switch  FLAGWRD9  bit  6 (ROTFUG)  to  1 
Perform  "THROTUP" 

Switch  FLAGWRD9  bit  8 (FLAP)  to  1 
Perform  "P40AUT0" 

Perform  "THROTUP" 

Change  job  priority  to  17 
AVEGEXIT  = "ATMAG" 

End  job 

THRUST  = KtMAXTHRUST 

Switch  bit  4 of  channel  14  to  1 

Return 

DV3  = K:DVA 

DV2  = K:DVA 

DV1  = KrDVA 

AT  = K:ATA 

TBUP  = K:TBUPA 

TTO  = - K:ATDECAY 

VE  = - K:APSVEX 

If  FIAGWRD9  bit  8 (FLAP)  = 1,  return 

RCO  = KrHINJECT  + LANDMAG 

TXO  = 0 

YCO  = 0 

YDOTD  = 0 

SAXIS  = unlt(  [^FSMMA'^  (TOECTCSM  * pECTCSM) 
Return 


(pr17 ) 
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ABORTALM  Switch  bit  7 of  channel  11  to  1 


(turn  on  Operator  Error  lamp) 


Perform  "RELDSP" 

Proceed  to  "PINBRNCH" 

ATMAG  (Entered  via  AVEGEXIT  at  the  end  of  each  "SERVICER"  cycle) 

RDOT  = HDOTDISP  (documentation  convenience;  ROOT 

and  HDOTDISP  are  the  same  cells 
ZAIIS  = UHZP  computer;  as  are  ZAXIS  and 

UHZP) 

If  FLAGWRD9  bit  10  (FLRCS)  =1: 

Proceed  to  "ASCENT" 

If  ABDVC0NV<  K:MINABDV: 

Perform  "STOPRATE"  with  interrupts  inhibited 
Proceed  to  "ASCTERM1" 

Switch  FLAGWRD8  bit  8 (SURFFLAG)  to  0 
Switch  FLAGWRD5  bit  1 (RENDWFLG)  to  0 
DVO  = DV1 
DV1  = DV2 
DV2  = DV3 

DV3  = K:0NE  / ABDVCONV 

TS  = (DVO  + DV1  + DV2  + DV3)  VE  K:2SEC9  / 4 
TBUP  = (TS  + TBUP  - K:6SEC18)  / 2 
AT  = VE  / TBUP 
ASCENT  RMAG  = | R | 

ZDOT  = ^IS  . V 
LAXIS  = ^XIS  * UNITR 
YDOT  = I^IS  . V 
Y = RCO  (UNITR  . ^IS) 

GEFF  = (GDT1  / K:2SEC18)  • UNITR  + (| UNITR  * V^  / RMAG) 
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If  FLAGWRD9  bit  13  (P7071FLG)  = 1,  perform  "ZDOTDCMP" 


MAINENG 


DZDOT  = ZDOTD  - ZDOT 
DYDOT  = YDOTD  - YDOT 
DRDOT  = RDOTD  - RDOT 

VGVECT  = DRDOT  IINITR  + DYDOT  lAXIS  + DZDOT  miS 
VGVECT  = VGVECT  - i TGO  (aiFF  piTR 
VGBODI  = [^PI^  VGVECT 
If  FLAGWRD9  bit  10  (FLRCS)  = 1 : 

TGO  = I VGVECT I / K:ATRCS 
PCONS  = 0 
PRATE  = 0 
Perform  "RPC0MP2" 

End  job 

TS1  = I VGVECT  I / VE 

TGO  = TBUP  TS1  (1  - 0.5  TS1 ) - TTO 

TTOGO  = - TGO 

If  FLAGWRD7  bit  7 (IDLEFLAG)  = 0: 

If  TGO  < K:4SEC17: 

TS  = - (TIMENOW  - PIPTIME  + TTOGO ) 

If  TS  £ 0,  TS  = 1 
ENGOFFDT  = TS 

Call  "ENG0FF1  " in  ENGOFFDT  centiseconds 
Switch  FLAGWRD7  bit  7 (IDLEFLAG)  to  1 
If  TGO  < K:T2A: 

Proceed  to  "CMPONENT" 

TS  = (TBUP  - TGO)  / TBUP 
TSa  = - logg(TS) 
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D12  = TBUP  - (TGO  / TSa) 

If  FLAGWRD9  bit  12  (FLPC)  = 1: 

PRATE  = 0 
IRATE  = 0 
Proceed  to  "CONST" 

If  TGO  < K:T3: 

Switch  FLAGWRD9  bit  12  (FLPC)  to  1 

PRATE  = 0 

IRATE  = 0 

Proceed  to  "CONST" 

D21  = TGO  - D12 
TSe  = i TGO  - D21 

PRATE  = (DRDOT  D21  + TGO  RDOT  + RMAG  - RCO)  / (TSe  TGO) 
IRATE  = (DIDOT  D21  + TGO  IDOT  + I - ICO)  / (TSe  TGO) 

If  PRATED  0: 

PRATE  = 0 
Proceed  to  "CONST" 

If  PRATE  / TBUP  <K:PRLIMIT: 

PRATE  = K:PRLIMIT  TBUP 
CONST  PCONS  = (DRDOT  / TSa)  - PRATE  D1 2 
ICONS  = (DIDOT  / TSa)  - IRATE  D1 2 
CMFONENT  If  FLAGWRD9  bit  13  (P7071FLG)  = 1,  perform  "RPC0MP2" 

ATR  = ('(K:100CS  PRATE  + PCONS ) / TBUp}  - GEFF 
ATI  = (K;100CS  IRATE  + ICONS)  / TBUP 
m = ATI  LAXIS  + ATR  IMITR 
AHMAG  = I AH  I 
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ATPSQ  = (AT)^  - (AHMAG)^ 

If  ATPSQ  <0: 

AH  = (AT  / AHMAG)  AH 
ATP  = 0 

Skip  next  step 
ATP  = V ATPSQ  sign(DZDOT) 

UNFC  = ATP  ZAXIS  + M 
If  FLAGWRD9  bit  11  (FLPI)  = 1; 

Proceed  to  "P12RJET" 

If  FLAGWRD9  bit  U (FLVR)  = 1 : 

If  RMAG  - LANDMAG  <K:25KFT; 

Switch  DAPBOOLS  bit  9 (XOVINHIB)  to  1 
TS  = unit (ATI  LAXIS  + ATP  ZAXIS) 

If  RDOT  4::;  KtAOFPS; 
pwc  = TS 
HNFC  = UNITR 
Proceed  to  "ASCTERM" 

Switch  FLAGWRD9  bit  6 (ROTFLAG)  to  0 
Switch  FLAGWRD9  bit  U (FLVR)  to  0 
If  FLAGWRD9  bit  6 (ROTFLAG)  = 0: 

TXO  = PIPTIME  + K:10SECS 
UWWC  = - p'lTR 
If  TXO  > PIPTIME; 

Proceed  to  "ASCTERM" 
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If  FIAGWRD9  bit  6 (ROTFIAG)  = 1 : 


ASCTERM 


ASCTERM1 


ENGOFF1 


TS  = (pFC  • pBPIP)  - COSTHET1 
If  TS  <0: 

TS  = (pBPIP  • UNITE)  - C0STHET2 
If  TS  ^0: 

PFC  = UNITE 
Proceed  to  "ASCTEEM" 

Switch  FLAGWED9  bit  6 (EOTFLAG)  to  0 
Switch  DAPBOOLS  bit  9 (XOVINHIB)  to  0 (allow  x-axia  override) 

If  FLAGWED9  bit  13  (P7071FLG)  = 0; 

Switch  FLAGWED3  bit  11  (N0E29FLG)  to  0 

If  FLAGWRD9  bit  10  (FLECS)  = 1: 

End  job 

Perforin  "FINDCDUW" 

If  FLAGWRD9  bit  10  (FLECS)  =1; 

End  job 

If  FLAGWED8  bit  10  (FLUNDISP)  = 1: 

End  job 

Proceed  to  "GODSP"  with  TS  = K:V06N63  (ABVEL,  HDOTDISP,  HCALGI  ) 


Perform  "ENGIN0F2" 

Establish  "CUTOFF"  (pr17) 

End  task 
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CUTOFF 


Switch  FLAGWRD9  bit  10  (FLRCS)  to  1 


TERMASC 


RPC0MP2 


ZDOTDCMP 


Proceed  to  "GOFLASH"  with  TS  = K:V16N63  (ABVEL,  HDOTDISP,  HCALCI) 
(If  terminate,  proceed  to  "TERMASC";  if  proceed,  continue 
with  next  step;  if  other  response,  repeat  this  step.) 

Inhibit  interrupts 

Perform  "ZATTEROR" 

Perform  "SETMINDB" 

Release  interrupt  inhibit 

Proceed  to  "GOFLASH"  with  TS  = K:V16N85  (VGBODY) 

(if  terminate,  proceed  to  "TERMASC";  if  proceed,  proceed 
to  "TERMASC";  if  other  response,  repeat  this  step.) 

Inhibit  interrupts 

Perform  "RESTORDB" 

Switch  FLAGWRD9  bit  9 (LETABORT)  to  0 


Release  interrupt  inhibit 
Proceed  to  "GOTOPOOH" 


RP  = RMAG  + RDOT  TGO  + 


PCONS  TGO^ 
2 TBDP 


^ PRATE  TGO^ 
6 TBUP 


Return 

TS  = (unitRCSM  * unitR)  • ^ 


TS1  - signTS  arccos(unitRCSM  • unitR) 
RA  = JPARM  + KPARM  TS1  - RP 


If  RA  < RAMDJ , RA  = RAMIN 

ZDOTD  = %/  2 K;MUMm37  RA  / (RA  + RP)  RP 

Return 
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Quantities  In  Computations 


ABDVCONV:  Double  precision  magnitude  of  sensed  change  in  velocity- 
converted  to  units  of  meters  per  centisecond  and  scaled  B5. 

ABRTABLE:  see  WHICH  of  the  BURN  section. 

ABTRDOT:  Double  precision  erasable  memory  constant  representing  the 
radial  rate  required  at  insertion  for  aborts  from  powered  descent, 
scaled  B7  in  units  of  meters  per  centisecond. 


AH:  Double  precision  intermediate  computation,  scaled  B-9  in  units 
of  meters  per  centisecond  squared. 

AHMAG:  Double  precision  intermediate  computation,  scaled  B-9  in 
units  of  meters  per  centisecond  squared. 

AT:  Double  precision  LM  thrust  acceleration  magnitude,  scaled  B-9 
in  units  of  meters  per  centisecond  squared. 

ATP:  Double  precision  intermediate  computation,  scaled  B-9  in  units 
of  meters  per  centisecond  squared. 

ATPSQ:  Double  precision  intermediate  computation,  scaled  B-18  in 
units  of  meters  squared  per  centiseconds  to  the  fourth  power. 

ATR:  Double  precision  required  radial  acceleration,  scaled  B-9  in 
units  of  meters  per  centisecond  squared. 

ATY:  Double  precision  required  crossrange  acceleration,  scaled  B-9 
in  units  of  meters  per  centisecond  squared. 

AVEGEXIT:  see  SERV  section. 

C0STHET1 r Double  precision  erasable  memory  constant,  scaled  B-8 
in  units  of  meters  per  centisecond  squared. 

C0STHET2:  Double  precision  erasable  memory  constant,  scaled  B2  and 
unities s . 

DB:  see  DAPB  section. 

DISPDEX:  see  BURN  section. 

DRDOT,  DYDOT,  DZDOT:  Double  precision  velocity-to-be-gained  components 
in  the  radial,  crossrange,  and  downrange  directions  respectively, 
scaled  B7  in  units  of  meters  per  centisecond. 

DVCNTR:  see  SERV  section. 

DVTHRUSH:  see  SERV  section. 


ASCT  - 13 


DVO,  DV1 , DV2,  DV3:  Double  precision  quantities  representing  the 
reciprocal  of  successive  FIFA  readings,  scaled  B7  in  units  of 
centiseconds  per  meter;  program  notation  I/DVO,  1/DVI,  1 /DV2,  1/DV3. 

D12:  Double  precision  intermediate  computation,  scaled  B17  in  units 
of  centiseconds. 

D21 : Double  precision  intermediate  computation,  scaled  B17  in  units 
of  centiseconds. 

ENGOFFDT;  Single  precision  delta  time  for  engine  cutoff,  scaled  b14 
I in  units  of  centiseconds. 

GDT1 ; see  SERV  section. 

GEFF:  Double  precision  effective  gravity,  scaled  B-9  in  units  of 
meters  per  centiseconds  squared. 

HCALC1 : See  DESC  section. 

HDOTDISF;  See  SERV  section. 

JPARM:  Double  precision  parameter  used  in  the  calculation  of  ZDOTD  for 

aborts  from  the  TOwered  descent,  scaled  B24  in  units  of  meters  (see  note 
following  K2FARM;.  JFARM  contains  JIFARM.or  J2FARM. 

J1FARM:  Double  precision  parameter  used  in  the  calculation  of  ZDOTD  for 
aborts  where  the  LM  to  GSM  phase  angle  is  less  than  THETCRIT,  scaled 
B24.  in  units  of  meters  (see  note  following  K2FARM)}  part  of  the 
erasable  load. 

J2PARM;  Double  precision  parameter  used  in  the  calculation  of  ZDOTD  for 
aborts  where  the  114  to  GSM  phase  angle  is  greater  than  or  equal  to 
THETGRIT,  scaled  B24  in  units  of  meters  (see  note  following  K2FARM); 
part  of  the  erasable  loado 

KFARM:  Double  precision  parameter  used  in  the  calculation  of  ZDOTD  for 
aborts  from  the  powered  descent,  scaled  B24  in  units  of  meters  per 
revolution  (see  note  following  K2FARM).  KFARM  contains  K1FARM  or  K2FARM. 

K1FARM:  Double  precision  parameter  used  in  the  calculation  of  ZDOTD  for 
aborts  where  the  LM  to  GSM  phase  angle  is  less  than  THETGRIT,  scaled 
B24  in  units  of  meters  per  revolution  (see  note  following  K2FARM); 
part  of  the  erasable  load. 

K2PARM:  Double  precision  parameter  used  in  the  calculation  of  ZDOTD  for 

aborts  where  the  114  to  GSM  phase  angle  is  greater  than  or  equal  to 
THETGRIT,  scaled  B24  in  tmits  of  meters  per  revolution  (see  note  below); 
part  of  the  erasable  load. 

Note:  JFARM  and  KFARI4  are  considered  in  this  document  to  be  scaled  B24;  thus 
the  erasable  parameters  J1FARM,  J2FARM,  K1FARM,  K2FARM  are  expected  to 
be  multiplied  by  2 and  then  scaled  B24  (of  course  this  is  the  same  as 
scaling  by  B23)  in  order  to  introduce  a factor  of  2 into  the  equation 

which  calculates  RA. 
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_5 

KrAPSVEX;  Single  precision  constant  stored  as  - 30.3  X 2 , scaled 

B5  in  units  of  meters  per  centisecond.  Equation  value:  - 30.3 

9 

KzATA:  Double  precision  constant  stored  as  3.2883  E-4  X 2 , scaled 
B-9  in  units  of  meters  per  centisecond  squared;  program  notation 
(at) A.  Equation  value:  3.2883  E-4 

K:ATD:  Double  precision  constant  stored  as  0.02,  scaled  B-2  in  units 
of  reciprocal  centiseconds;  program  notation  K(AT).  Equation 
value:  0.005 

—28 

KzATDECAY:  Double  precision  constant  stored  as  - 10.  X 2~  , scaled 

B28  in  units  of  centiseconds.  Equation  value:  - 10. 

KzATRCS:  Double  precision  constant  stored  as  0.785  E-4  X 2^*^,  scaled 
B-10  in  units  of  meters  per  centisecond  squared;  program  notation 
AT/^CS.  Equation  value:  0.785  E-4 

_5 

KzDPSVEX:  Single  precision  constant  stored  as  - 29.5588868  X 2 , scaled 

B5  in  units  of  meters  per  centisecond.  Equation  value:  - 29.5588868. 

_7 

K:DVA:  Double  precision  constant  stored  as  15.2  X 2 , scaled  B7  in 

units  of  centiseconds  per  meter;  program  notation  (1/DV)A. 

Equation  value : 15.2 

_g 

K:DVD:  Double  precision  constant  stored  as  436.7  X 2 , scaled  B9 

in  units  of  kilogram-meters  per  centisecond-second;  program 
notation  K(1/DV).  Constant  corresponds  to  KzDPSVEX  times 
KzMDOTDPS  converted  to  the  units  shown  above.  Equation  value: 

436.7 

KzHINJECT:  Double  precision  constant  stored  as  18288.  X 2 scaled 
B24  in  units  of  meters.  Equation  value:  18288.  (equivalent  to 
60,000  feet) 

KzMAXTHRUST:  Single  precision  constant  stored  as  10000-,  scaled  BI4 
in  units  of  DPS  throttle  pulses;  program  notation  BI°T13.  Equation 
value:  4096.  (enough  to  oversaturate  the  throttle  — see  THRUST) 

KzMDOTDPS:  Double  precision  constant  stored  as  O.I48  X 2~^,  scaled 
B3  in  units  of  kilograms  per  centisecond.  Equation  value:  0.1 48 
(equivalent  to  32.62  pounds  mass  per  second.) 

K.-MINABDV:  Double  precision  constant  stored  as  0.0356  X 2"^,  scaled 
B5  in  units  of  meters  per  centisecond.  Equation  value:  0.0356 

KzMOONRATE:  Double  precision  constant  stored  as  0.2661699489  E-7  X 2^*^, 
scaled  B-19  in  units  of  radians  per  centisecond.  Equation  value: 
0.2661699489  E-7 

K:MU14ii37:  Double  precision  constant  stored  as  4.902778  E 8 X 2~^'^ , 
scaled  B37  in  units  of  meters  cubed  per  centisecond  sqftared; 
program  notation  MUM(-37).  Equation  value:  4.902778  E 8 
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K:ONE:  Single  precision  constant  stored  as  00004rt,  scaled  B12  and  unitless; 
program  notation  BIT3H.  Equation  value:  1.0. 

K:PPILIMIT;  Double  precision  constant  stored  as  - 0.0639>  scaled  B-21  in 
iinits  of  meters  per  centi second  cubed.  Equation  value:  -0.3048  E-7. 

K:RD0TDN0Mr  Double  precision  constant  stored  as  0.059436  X 2"”^,  scaled 
B7  in  units  of  meters  per  centisecond.  Equation  value:  0.059436. 
(Corresponds  to  19«5  feet  per  second.) 

-1 7 

K:TBUPA:  Double  precision  constant  stored  as  91902.  X 2 , scaled 

B17  in  units  of  centiseconds;  program  notation  (TBUP)A.  Equation 
value:  91902. 

-1 7 

K:TG0A:  Double  precision  constant  stored  as  3.7  E 4 X 2 , scaled 

B17  in  units  of  centiseconds;  program  notation  (TGO)A.  Equation 
value:  3.7  E 4 

—1 L 

K:THRESH2:  Double  precision  constant  stored  as  308.  X 2 scaled 
B14  in  units  of  centimeters  per  second.  Equation  value:  308. 

-1 7 

K:T2A:  Double  precision  constant  stored  as  200.  X 2 , scaled  B17 

in  units  of  centiseconds.  Equation  value:  200. 

-1 7 

K:T3:  Double  precision  constant  stored  as  1000.  X 2 , scaled  B17 

in  units  of  centiseconds.  Equation  value:  1000. 

K:IJNITZ:  Double  precision  constant  vector  stored  as  (0,  0,  0.5), 
scaled  B1  and  unitless.  Equation  value:  (O,  0,  1) 

_7 

K:VINJN0M:  Double  precision  constant  stored  as  16.7924  x 2 , scaled 

B7  in  units  of  meters  per  centisecond.  Equation  value:  16.7924. 
(Equivalent  to  5509.5  feet  per  second.) 

K:10SECS:  Double  precision  constant  stored  as  1000  x 2 , scaled  B28  in 

units  of  centiseconds.  Equation  value:  1000. 

K:100PCTT0:  Double  precision  constant  stored  as  38  x 2 scaled  B17  in 
units  of  centiseconds.  Equation  value:  38. 

—1 8 

K:100CS:  Double  precision  constant  stored  as  200  x 2 , scaled  B17  in 

units  of  centiseconds.  Equation  value:  100. 

K:1DEGDB:  Single  precision  constant  stored  as  00554g,  scaled  B-3  in  units 
of  revolutions.  Equation  value:  0.00277.  (Equivalent  to  1 degree.) 

K:2SEC:  Implicit  program  constant  equal  to  two,  (2)  seconds. 

—1 8 

K:2SEC18:  Double  precision  constant  stored  as  200.  X 2 , scaled 

B18  in  units  of  centiseconds;  program  notation  2SEC(18). 

Equation  value:  200. 

• _9 

K:2SEC9:  Double  precision  constant  stored  as  200.  X 2 , scaled 

B9  in  vuiits  of  centiseconds;  program  notation  2SEC(9). 

Equation  value:  200. 
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Boaled 


K:25KFT;  Double  precision  constant  stored  as  7620.  X 2 
B24  in  units  of  meters.  Equation  value:  7620. 

-1  7 

K:4SEC17;  Double  precision  constant  stored  as  400.  X 2 , scaled  B17 

in  units  of  centiseconds;  program  notation  4SEC(17).  Equation 
value : 400 . 

K:49FPS:  Double  precision  constant  representing  the  expected  LM  RDOT 
at  the  end  of  the  vertical  rise  phase,  stored  as  0.149352  X 2~  , 
scaled  B6  in  units  of  meters  per  centisecond.  Equation  value:  0.149352 

_7 

K;40rPS:  Double  precision  constant  stored  as  0.12192  X 2 , scaled  B7 

in  units  of  meters  per  centisecond.  Equation  value:  0.12192 

—1  ^ 

K:6SEC18:  Double  precision  constant  stored  as  600.  X 2 , scaled  B18 

in  units  of  centiseconds;  program  notation  6SEC(18).  Equation 
value : 600 . 

LMDMAG:  Double  precision  magnitude  of  lunar  landing  (or  launch)  site 
radius,  scaled  B24  in  units  of  meters;  program  notation  /LAND/. 

LAXIS:  Double  precision  crossrange  unit  vector,  scaled  B1 , unitless, 
and  expressed  in  the  Platform  Coordinate  system. 

M504:  Double  precision  libration  vector  of  the  moon,  scaled  BO  in  units 
of  radians  and  expressed  in  moon-centered,  moon-fixed  coordinates. 

MASS:  see  SERV  section. 

MMNUMBER:  see  PGSR  section. 

MODREG;  see  DATA  section. 

[^MOONMAtJ  ; Double  precision,  3X3  orthogonal  transformation  matrix,  scaled 
B1  and  unitless.  Defined  such  that  Asg  = [mOONMA!^  ^^^ef,  where  A is  a 
vector  expressed  in  selenographic  and  reference  coordinates  respectively. 

PCONS:  Double  precision  pitch  guidance  coefficient,  scaled  B9  in  units  of 
meters  per  centisecond  . 

PIPTIME,  PIPTIME1  : see.  SERV  section. 

PITCH:  Double  precision  predicted  FDAI  pitch  angle  at  the  end  of  the 
pitch  over  maneuver,  scaled  BO  in  units  of  revolutions. 

PRATE:  Double  precision  pitch  rate  guidance  coefficient,  scaled  B-8  in 
units  of  meters  per  centisecond  squared. 

P12TABLE:  see  WHICH  of  the  BURN  section. 

^AXIS:  Double  precision  unit  vector,  scaled  B1 , unitless,  and  expressed  in 
the  Platform  Coordinate  system. 
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R:  Double  precision  present  navigated  vector  position  of  the  LM, 
measured  from  the  center  of  the  moon,  scaled  B24  in  units  of 
meters  and  expressed  in  the  Platform  Coordinate  system. 

RA:  Double  precision  distance  from  the  center  of  the  moon  to  the 

apogee  of  the  desired  insertion  orbit,  scaled  B24  in  units  of  meters. 

RAMIN:  Double  precision  parameter  which  is  the  minimum  value  allowed 

for  RA,  scaled  B24  in  units  of  metersi  part  of  the  erasable  load. 

MTT,  VATT,  TAT:  see  ORBI  section. 

RCO;  Double  precision  desired  insertion  radius  magnitude,  scaled  B24 
in  units  of  meters. 

RCSM:  see  SERV  section. 

RDOT,  YDOT,  ZDOT:  Double  precision  velocity  components  in  the  radial, 
crossrange,  and  downrange  directions  respectively,  scaled  B7  in 
units  of  meters  per  centisecond. 

RDOTD,  YDOTD,  ZDOTD:  Double  precision  desired  velocity  components  in 
the  radial,  crossrange,  and  downrange  direction  respectively,  scaled 
B7  in  units  of  meters  per  centisecond. 

j^MFSMMA'^  : see  COOR  section. 

RLS:  Double  precision  lunar  landing  (or  lavinch)  site  vector,  measttred 
from  the  center  of  the  moon,  scaled-  B27  in  units  of  meters  and 
expressed  in  the  Platform  coordinate  system. 

RMAG:  Double  precision  magnitude  of  the  IM  position  vector,  scaled 
B24  in  units  of  meters. 

RP:  Double  precision  predicted  Insertion  radius  magnitude  measured 
from  the  center  of  the  moon,  scaled  B24  in  units  of  meters. 

RRECTCSM,  VRECTCSM:  see  ORBI  section. 

TBUP:  Double  precision  ratio  of  mass  to  mass  flow  rate,  scaled'  B17  in 
lanits  of  centiseconds . 

TDEC1:  see  ORBI  section. 

TEVENT:  Double  precision  time-of-event  for  downlink  information  (as 
used  in  this  section  time-of-abort)  , scaled  B28  in  xinits  of 
centiseconds. 

TOO,  TG01 : Double  precision  predicted  length  of  burn,  scaled  B17  in 
imits  of  centiseconds. 

THETCRIT:  Double  precision  LM  to  CSM  phase  angle  at  which  abort  targets 

are  switched,  scaled  BO  in  units  of  revolutions;  part  of  the 
erasable  load. 
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TIG;  Double  precision  time  of  engine  ignition,  scaled  B28  in  units 
of  centiseconds. 

TIME5;  see  DAPA  section. 

THRUST;  Cell  used  to  provide  DPS  throttle  commands  when  Bit  4 of  channel 
14  is  set,  scaled  BI4  in  imits  of  DPS  throttle  pulses.  One  pulse 
corresponds  to  about  2.8  pounds  of  thrust.  The  maximum  command 
recognized  by  the  throttle  is  3428  pulses. 

TIMENOW;  Current  time  scaled  B28  in  units  of  centiseconds,  incremented 
every  centi second. 

TRKMKCNT;  see  RNAV  section. 

TTO;  Double  precision  time  delay  from  the  Issuance  of  the  engine  OFF 
signal  to  actual  thrust  decay,  scaled  B17  in  units  of  centiseconds. 

TTOGO;  Double  precision  negative  of  time-to-go  for  display  purposes, 
scaled  B28  in  units  of  centiseconds. 

TXO;  Double  precision  time  at  which  X-axis  override  is  permitted  in 
ascent  guidance,  scaled  B28  in  units  of  centiseconds. 

UHZP;  see  SERV  section. 

UNITR;  Double  precision  unit  vector  in  the  radial  direction,  scaled  Bl  , 
unitless,  and  expressed  in  the  Platform  coordinate  system;  program 
notation  UNIT/r/. 

IMFC;  see  BURN  section. 

HNWC;  see  Burn  section. 

V;  Double  precision  present  navigated  velocity  vector  of  the  LM,  scaled 
B7  in  units  of  meters  per  centisecond  and  expressed  in  the  Platform 
coordinate  system. 

VE;  Double  precision  engine  exhaust  velocity,  scaled  B7  in  units  of 
meters  per  centisecond. 

VGBODY;  Double  precision  velocity- to-be-gained  vector  in  body  coordinates 
scaled  B7  in  units  of  meters  per  centisecond. 

VGVECT;  Double  precision  velocity- to-be-gained  vector  in  Platform 
coordinates,  scaled  B7  in  units  of  meters  per  centisecond. 

V1S:  Double  precision  LM  velocity  vector  at  TIG,  scaled  B7  in  units  of 
meters  per  centisecond. 

WHICH;  see  BURN  section. 
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WM:  Double  precision  lunar  rotation  rate  vector,  i.e.  lunar  rotation 
rate  times  the  lunar  rotation  axis  vector,  scaled  B-17  in  units  of 
radians  per  centisecond. 

: Double  precision  matrix  with  the  first  row  equal  to  the 
components  of  XNBPIP,  the  second  row  equal  to  the  components  of 
YNBPIP,  and  the  third  row  equal  to  the  components  of  ZNBPIP, 
where  MBPIP,  YNBPIP,  ZNBPIP  are  unit  vectors  along  the  X,  Y, 
and  Z spacecraft  axes,  scaled  B1  and  expressed  in  the  Platform 
coordinate  system  at  PIPTIME. 

XRANGE:  Double  precision  magnitude  of  the  crossrange  distance  to  be 
removed  during  the  ascent  maneuver,  scaled  B29  in  units  of  meters. 

Y:  Double  precision  magnitude  of  the  out-of-CSM-plane  position, 
scaled  B24  In  units  of  meters. 

YAW:  Double  precision  predicted  FDAI  yaw  angle  at  the  end  of  the 
vertical  rise  phase,  scaled  BO  in  units  of  revolutions. 

YCO:  Double  precision  desired  crossrange  position  at  orbit  insertion, 
scaled  B24  in  units  of  meters. 

YOONS:  Double  precision  yaw  guidance  coefficient,  scaled  B9  in  units 
of  meters  per  centisecond. 

YDOT:  see  HDOT. 

YDOTD:  see  RDOTD. 

YLIM:  Double  precision  erasable  memory  constant  representing  the 
maximum  cross-range  distance  to  be  removed  during  an  abort  from 
the  powered  descent,  scaled  B24  in  units  of  meters. 


PBPIP:  see  [xNBPIp| . 

YRATE:  Double  precision  yaw  rate  guidance  coefficient,  scaled  B-8  in 
units  of  meters  per  centisecond  squared, 

ZAXIS:  Double  precision  unit  vector  in  the  downrange  direction,  scaled 
B1  and  xonltless;  program  notation  ZAXIS1  . 

ZDOT:  see  RDOT. 

ZDOTD:  see  RDOTD. 
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ATTM 


Attitude  Maneuver  Routines 


R60LEM  TEMPR60  - return  address 

Svitch  FLAGWRDO  bit  4 (NEEDLFLG)  to  1 
Switch  FLAGWRDO  bit  15  (NEED2FLG)  to  0 
If  FLAGWRD5  bit  6 (3AXISFLG)  = 0: 

Perfoi-m  "VECPOINT" 

THETAD  = TS 
Perform  "BALLANGS” 

TOBALL  Perform  "G0PERF2R''  with  TS  = K:V06N18  (display  FDAI  angles) 

(If  terminate,  proceed  to  "R61TEST";  if  proceed,  proceed 
to  "REDOMANC”;  if  other  response,  proceed  to  "ENDMANU1”.) 

Perform  "CHKLINUS"  (make  display  priority  if  necessary) 

End  job 

REDOMANC  If  FLAGWRD5  bit  6 (3AXISFLG)  = 0: 

Perform  "VECPOINT" 

THETAD  = TS 
Perform  "BALLANGS" 

If  bit  10  of  channel  30  = 1 (not  PGNCS  control),  or  if  bit 
14  of  channel  31  = 1 (not  AUTO  control  mode): 

Proceed  to  "TOBALL"  (not  AUTO) 

Perform  "GODSPR"  with  TS  = K:V06N18  (display  FDAI  angles) 

Perform  "CHKLINUS"  (make  display  priority  if  necessary) 

GOMANUR  If  ATTCADR  ^ 0; 

TS1  = address  of  last  display  ("TOBALL") 
dp 

Proceed  to  "BAILOUT 1"  with  TS  = 31210g 
ATTCADR  = calling  address  + 1 , in  2CADR  format 

ATTPRIO  = bits  14-10  of  PRIORITY  (pr37;  the  priority  of  calling  job) 
Proceed  to  "KALGMAN3" 
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ENDMANUV 

ENDMMU1 

R61TEST 

BALUNGS 


Proceed  to  "TOBALL" 

Switch  FUGWRD5  bit  6 (3AXISFLG)  to  0 
Rettirn  via  TEMPR60 

If  MODREG  = 0,  proceed  to  "ENIMANU1" 

If  FLAGWRD4  bit  12  (PDSPFLAG)  = 1,  proceed  to  "TRMTRACK" 

Proceed  to  "GOTOPOOH" 

BALIEXIT  = return  address 

Perform  "CD»TR*GS"  with  MG  = THETAD 

TS  = arcsinC-  SINOGA  COSMGA) 
z 

SINTH  = SINMGA 
COSTH  = COSOGA  COSMGA 
Perform  "ARCTM" 

TS  = THETA 

X 

COSTH  = COSOGA  COSIGA  - SINMOA  SINOGA  SINIGA 
SINTH  = SINIGA  COSOGA  + SINMGA  SINOGA  COSIGA 
Perform  "ARCTM" 

TS  = THETA 

y 

FDAI  = TS  converted  to  two's  complement  form 
Return  via  B ALLEXIT 
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VECPNT1 


VECPOINT 


VECQTEMP  = return  address  (input  here  from  "R61C+L02" 

with  desired  CDU's  in  TScdu) 

Skip  next  two  steps 
VECQTEMP  = return  address 
TScdu  = CDU 
Perform  "CDUTODCM" 

[mis]  - [TSmat] 

TSfinal  = unit(POINTVSM  [mIs] ) 

COF  = - unit  (TSfinal  SCAXIS) 

TSang  = arc cos (SCAXIS  • TSfinal) 

If  overflow  or  if  | TSfinal  SCAXIS  j < : 

If  TSfinal  • SCAXIS  > 0: 

TS  = TScdu  (specify  zero  maneuver) 

Return  via  VECQTEMP 
YSM  = K:  UNITY  [mIsJ 
TS  = unit(YSM^^  ^ K:UNITX)  SCAXIS 
COF  = unitTS 

If  overflow  or  if  jTSl  < 2“^^: 

COF  = K:UNITX 
TSang  = g 
Perform  "DELCOMP" 

[TSmat]  = [mis]  [dELMAt] 

YSMscd  = K:  UNITY  [TSmat] 

If  |lSMg^^  • K:UNITX(<  K:SINGIMLC,  proceed  to  "FINDGIMB" 

If  1 SCAXIS^ ( ^ K:SINVEC1,  proceed  to  "FINDGIMB" 

(otherwise,  the  vector  being  pointed  is  something  other  than 
the  thrust  vector  and  an  effort  will  be  made  to  avoid  gimbal 
lock  with  a preliminary  roll . ) 
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ISMg^  = KiUNITT  [mis] 

TS  = (YSMg^  signYSM^^  ) * SCAXIS 

X 

COF  = - SCAXIS  signTS^ 

If  I SCAXIS^ I > K:SINVEC2,  TSang  = K:VECANG1  (AOT) 

If  1 SCAXIS^  I < K:SINVEC2,  TSang  = K:VECANG2  (Radar,  Y or  Z) 

Perform  "DELCOMP" 

[iSmat]  = [mis]  [dELMAtJ 

FINDGIMB  Perform  "DCMTOCDU" 

TS  = TScdiod  converted  to  tvro's  complement  form 
Return  via  VECQTEMP 


KALCMAN3  BCDU  = CDU 

If  ItHETAD  1 > K:LOCKANGL: 

Perform  "ALARM"  with  TS  = 00401 g 
Proceed  to  "NOGO" 

TScdu  = BCDU 
Perform  "CDUTODCM" 

[mis]  = [TSmat] 

TScdu  = THETAD 
Perform  "CDUTODCM" 

[mFs]  = [TSmat] 

[tmt^  = [mis]^ 

[mfi]  = [tmis]  [mfs] 

[tmfi]  = [mfi]^ 

COFSKEW^  = i (TMFIj^2  " ^^12^ 
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COFSKEW  = i (MFI„  - TMFI,„) 

COFSKEW^  = i (TMFI22  - MFI^^) 

CAM  = i (MFI^^  + MFI22  + MFI^^  - 1) 

AM  = arccosCAM 

If  AM  < K:MINANG:  (No  need  for  rate  limited  maneuver) 

g)UD  = THETAD 
Proceed  to  "NOGO" 

If  AM  < K:MAXANG: 

COF  = unitTOFSKEW  (normal  path) 

Svd.tch  FLAGWRD2  bit  3 (CALCMAN3)  to  1 
Proceed  to  "WCALC" 

([mfi]  + [tmfi]) 

TS  = 1 - CAM 

If  |TS|  ^ 2,  TS  = Krposmaxdp  signTS 

COF^  = ■/  2 (MFISYMj^  - CAM)  / TS  ’ 

COFy  = t/  2 (MFISYM22  - CAM)  / TS  ' 

COF^  = t/  2 (MFISYKj^j^  - CAM)  / TS  ' 

COF  = unitCOF  (eliminates  common  factors) 

If  COF  > COF  and  COF  > COF  : (method  l) 

x y X z ' 

COF^  = COF^  signCOFSKEW^ 

COFy  = COFy.  signCOFSKEW^  signMFISYM^2 
COF^  = COF^  signCOFSKEW^  signMFISYM^^ 

Svd-tch  FLAGWRD2  bit  3 (CALCMAN3)  to  1 
Proceed  to  "WCALC" 


[mfisym]  = 

i 0 0 
0^0 

0 0 i 
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If  COF  > COF  and  COF  > COF  : (method  2) 

y X y z ' 

COF^  = COF^  signCOFSKBWy  signMFISYM^2 
COF  = COF  signCOFSKEW 

y y y 

COF^  = COF^  signCOFSKEWy  signMFISYM^^ 

Svfitch  FLAGWRD2  bit  3 (CALCMAN3)  to  1 

Proceed  to  "WCALC" 

(Otherwise,  COF  > COF  and  COF  > COF  ) 
z y z X 

COF^  = COF^  signCOFSKEW^  signMFISYM^^  (method  3) 

COFy.  = COF^  signCOFSKEW^  signMFISY]^^ 

COF  = COF  signCOFSKEW 
z z z 

Switch  FLAGWRD2  bit  3 (CALC1IAN3)  to  1 
WCALC  Perform  "DELCOMP"  with  TSang  = KiARATEj^^^jj^^ 

HRATE  = K:ARAIEj^^^  COF 
TM  = AM  K:ANGLTIME  / K : ARATEj^^^, 

Switch  FLAGWRD2  bit  2 (CALCMAN2)  to  1 

NEWANGL  [ms]  = [ms]  [delmat] 

Perform  "DCMTOCDU"  with  [iSmat]  = [ms] 

NCDU  = TScdud  converted  from  one ' s to  two ' s complement  form 

If  FLAGWRD2  bit  2 (CALCMAN2)  = 1: 

Switch  FLAGWRD2  bit  2 (CALCMAN2)  to  0 

TM  = TM  + TIMENOW  - KiONESEK 

Inhibit  interrupts 

OMEGARD  = BRATE 
z 

DELREROR  = 1 OMEGARD)  K:BIASCALE  OMEGARD  / IJACCR 
OMBGAQD  = BRATEy 
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CONTMAMJ 


(If  FLAGWRD2  bit  2=1) 

DELQEROR  = |oMEGAQD(  K:BIASCALE  OMEGAQD  / IJACCQ 
OMEGA  PD  = BRATE^ 

DELIEROR  = |0MBGAPD|  K:BIASCALE  OMBGAPD  / IJACCp 
NEXTIME  = TIMENOW  + K:ONESEK  (less  significant  halves  only) 

DELCDU  = K:DTdTAU  (BCDU  - NCDU)  (two's  complement  difference  ) 

CDUD  = BCDU 
BCDU  = NCDU 

Release  interrupt  inhibit 

TS  = TM  - TIMENOW 

If  TS  > 0,  proceed  to  "CONTMANU" 

If  TS  = 0: 

Call  "MANUSTOP"  in  1 second 
End  job 

TS  = TS  + KrONESEK  + 1 

If  TS  £ 0,  TS  = 1 

Call  "MANUSTOP"  in  TS  centiseconds 

End  job 

TS  = NEXTIME  - TIMENOW  (less  significant  halves  only) 

If  TS  < 0,  TS  = 2^^  + TS 

Call  "UPDTCALL"  in  TS  centiseconds 

NEXTIME  = NEXTIME  + K:ONESEK  (less  significant  halves  only) 

End  job 
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UPDTCALL  Establish  "NEWDELHI" 


(pr26) 


NEWDELHI 


NOGO 


MANUSTOP 


GQODMANU 


End  task 

If  bit  14  of  channel  31  = 1 (not  AUTO  control  mode): 

Perform  "ZATTEROR" 

Proceed  to  "NOGO" 

Proceed  to  "NEWANGL" 

Perform  "STOPRATE" 

Call  "GOODMANU"  in  0.02  seconds 

End  job 

DELCDU  = 0 

OMBGARD  = 0 

DELREROR  = 0 

OMEGAQD  = 0 

DELQEROR  = 0 

CDUD  = THETAD 

OMEGAPD  = 0 

DELPEROR  = 0 

TS  = ATTCADR 

ATTCADR  = +0 

Establish  a job  starting  at  the  address  specified  in  TS  with 
priority  equal  to  that  it  had  before  entering  "KALCMAN3" 
(Essentially  equivalent  to  "returning"  to  that  job) 

End  task 
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CDUTODCM 


DCMTOCDU 


DELCOMP 


(p  = TScdu^  converted  to  one's  complement  form  (outer  gimbal) 
= TScdu  converted  to  one's  complement  form  (inner  gimbal) 

y 

y = TScdu  converted  to  one's  complement  form  (middle  gimbal) 
z 


[iSmatJ 


cos-6  cos'V' 
sin'f 


sin-©  sinit 


sin-®-  cos  4> 


- cos-ocos'f  sin’^  + cos ^ sin4^  sin'V' 
cosT  cos  <b  - cosy  sin 


- sin-e-  cosV 


cos-esin4’ 

+ sin^cosd?  sirlV' 


cos  <9- cos 
sin-o-sina^  sinV 


Return 

y = arcsinTSmat^j^  (limited  to  -within  i i) 

TScos  = cosy 

If  ) TScos I > 1,  TScos  = (1  - 2 ) signTScos 

= arcsin(-  TSmat^^  / TScos) 

If  TSmat^j^  < 0,  ■&  = ^ signS^  - 
<|>  = arc  sin  (-  TSmat22  / TScos) 

If  TSmat22  0,4^  = ^ sign^  - 4 
TScdud  = ((fi  , -e-  ,y) 

Retiirn 

TSs  = sinTSang 
TSc  = cosTSang 
TSd  = 1 ■-  cosTSang 

If  I TSd  I 2 2 (overflo-w),  TSd  = K:posmaxdp  signTSd 
TS  = COF  ^ TSd  + TSc 

X 

If  (TSI  ^ 1,  TS  = K:posmaxdp  signTS 
DELMAT^^  = TS 
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TS  = COF  ^ TSd  + TSc 
7 

If  |ts|  2r  1,  TS  = Kiposmaxdp  aignTS 

DELMAT22  = TS 

TS  = COF  ^ TSd  + TSc 
z 

If  (ts|  — 1,  TS  = Krposmaxdp  signTS 
DELMAT^^  = TS 

TS  = COF  COF  TSd  + COF  TSs 
X y z 

If  |Tsj  — 1,  TS  = Krposmaxdp  signTS 
DELMAT2j^  = TS 

TS  = COF  COF  TSd  - COF  TSs 
X y z 

If  |ts|  > 1,  TS  = K:posmaxdp  signTS 

DELMAT^2  = 

TS  = COF  COF  TSd  + COF  TSs 
X z y 

If  |Tsj  - 1,  TS  = K:posmaxdp  signTS 
DELMAT^^  = TS 

TS  = COF  COF  TSd  - COF  TSs 
X z y 

If  jis]  ^ 1,  TS  = K:posmaxdp  signTS 
DELMAT^^  = TS 

TS  = COF  COF  TSd  + COF  TSs 
y z X 

If  |ts|  — 1,  TS  = K:posmaxdp  signTS 

DEUIAT^2  = 

TS  = COF  COF  TSd  - COF  TSs 
y z X 

If  |ts|  — 1,  TS  = Krposmaxdp  signTS 

DELMAT22  = TS 

Retiirn 
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R62DISP 


Proceed  to  "GOFLASH"  with  TS  = K:V06N22  (THETAD) 

(If  terminate,  proceed  to  "ENDEXT";  if  proceed, 
continue  at  next  step;  if  other  response,  repeat 
this  step.) 


Switch  FLAGWRD5  bit  6 (3AnSFLG)  to  1 
Perform  "R60LEM" 


Proceed  to  "ENDEXT” 


V89CALL  Perform  "R02B0TH" 


OPTIONXq  = 3 
OPTIONX^  = 1 

Proceed  to  "GOFLASH"  with  TS  = K;V04N12  (OPTIONX 
(if  terminate,  proceed  to  "ENDEXT",  if  procee 
continue  at  next  step;  if  other  response,  repeat 
this  step.) 


, OPTIONX^) 


V89RECL  TSt  = TIMENOW  + K:DP1MIN 


TDEC1  = TSt 


Perform  "CSMCONIC" 


TSr  = RATT 
TDEC1  = TSt 
Perform  "LEMCONIC" 

TS  = |REFSMMATj(TSr  - RATT) 
POINTVSM  = unitTS 


(adjusted  to  prevent  overflow 
in  unit  operation) 


If  OPTIONX^  = 1,  SCAXIS  = K:DNITZ  and  skip  next  step 
^AXIS  = K:UNITX 
Perform  "VECPOINT" 

THETAD  = TS 
Perform  "BALLANGS" 
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CHKLINUS 


RELINUS 


Proceed  to  "GOFLASH"  with  TS  = K:V06N18  (|T)Al) 

(if  terminate,  proceed  to  "ENDEXT";  if 
proceed,  continue  at  next  step;  if  other 
response,  proceed  to  "V89RECL".) 

Switch  FLAGWRD5  bit  6 (3AXISFLG)  to  0 

Perform  "R60LEM'' 

Proceed  to  "ENDEXT" 

If  FLAGWRD4  bit  12  (PDSPFLAG)  = 0,  return 

TBASE2  = return  address  of  last  display 
(prior  to  call  of  "CHKLINUS") 

Set  restart  group  2 to  phase  13 

(causes  "RELINUS"  to  be  established  with 
priority  lOg  if  restart.) 

Perform  "BLANKET"  with  TS  = 001 OOg 

Return 

(Entered  for  restart  group  2.13,  due  to  "CHKLINUS") 

Perform  "PRIOCHNG"  with  A = 26000g  ( chg  priority  to  26g  ) 

If  FLAGWRD1  bit  5 (TRACKFLG)  = 1: 

Switch  FLAGWRD4  bit' 12  (PDSPFLAG)  to  1 

Return  to  address  specified  by  TBASE2  (to  display 
generated  prior  to  calling  of  "CHKLINUS" ) 

If  FLAGWRDO  bit  7 (RNDVZFLG)  = 1:  (P20  running) 

Set  restart  group  2 to  phase  7 and  TBASE2  = - TIME1 

("P20LEMC1"  will  start  1$  seconds  after  overflow 
of  TIME1  counter) 

End  job 

Set  restart  group  2 to  phase  11  and  TBASE2  = - TIME1 

(causes  "P25LEM1 " to  be  established  with  priority 
I4g  if  restart.) 

End  job 
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Quantities  in  Computations 


1JACCP,  1JACCQ,  1JACCR:  See  DAFB  section. 

A;  See  MATX  section. 

AM:  Angle  of  rotation,  a double  precision  angle  between  0 and 
(0°  and  180°),  scaled  BO  in  iinits  of  revolutions. 

MG:  See  COOR  section. 

ATTCADR:  Double  precision  address  storage  set  to  +0  when  the  attitude 
maneuver  routine  (KALCMM3)  is  not  is  use. 

ATTPRIO:  Priority  of  job  calling  "GOMANUR". 

BALLEXIT:  Single  precision  octal  return  address  storage. 

BCDU:  Single  precision  vector  storage  for  the  three  "present"  gimbal 

angles  throughout  an  attitude  maneuver.  The  X,  Y and  Z components 
contain  the  outer,  inner  and  middle  gimbal  angles  respectively, 
scaled  B-1  in  units  of  revolutions  and  stored  in  two's  complement 
form. 

BRATE:  Double  precision  vector  containing  the  desired  maneuver  rates 
about  each  of  the  three  principal  axes,  scaled  B-3  in  units  of 
revolutions  per  second. 

CAM:  Double  precision  cosine  of  the  total  maneuver  angle,  scaled  B1 

and  unitless. 

CDU:  See  COOR  section. 

CDUD:  See  DAPA  section. 

COF:  A double  precision  unit  vector  defining  the  axis  of  rotation 
of  the  calculated  maneuver  in  terms  of  present  spacecraft  coor- 
dinates, scaled  B1.  Extracted  from  the  transformation  matrix  [MFI] 
by  one  of  two  procedures  depending  on  the  magnitude  of  the  rotation 
angle. 

COFSKEW:  Double  precision  calculation  of  COF  from  the  off-diagonal 
terms  of  [MFlJ ; equivalent  to  COF  or  used  to  supplement  a calcu- 
lation of  COF  from  the  diagonal  terms  of  [MFI]  by  supplying  sign 
information;  scaled  B1  and  \mitless. 

COSOGA,  COSIGA,  COSMGA:  See  COOR  section. 

COSTH:  See  COOR  section. 
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DEILCEU:  See  DAPA  section. 

[DELMAT]:  Double  precision,  3x3  transformation  matrix  describing  a 

rotation  about  COF  through  a particular  angle.  Used  in  "NEWANGL"  to 
update  [mis]  at  one-second  intervals;  scaled  BO  and  unitless. 

EELPEROR,  EELQEROR,  DEILREROR:  See  DAPA  section. 

FDAI:  Single  precision  vector  containing  the  values  expected  to  appear  on 
the  FDAI  at  the  completion  of  an  attitude  maneuver  (astronaut  roll, 
pitch  and  yaw  in  that  order),  scaled  B-1  in  units  of  revolutions. 


K:ANGLTIME:  Double  precision  constant  stored  as  0.0001907349,  scaled  B19 
in  units  of  centiseconds  per  second.  Equation  value:  100.  (Used  with 
a right  shift  of  5 to  convert  from  seconds  scaled  B4  to  centiseconds 
scaled  B28. ) 


of 

revolutions  per 

second. 

i 

Stored  Value 

Equation  Value 

Eq^iivalent 

0 

0.0088888888 

0.0005555555 

0.2 

degrees/ second 

1 

0.0222222222 

0.0013876388 

0.5 

degrees/ second 

2 

0.0888888888 

0.0055505550 

2.0 

degrees/ second 

3 

0 . 4444444444 

0.0277777778 

10.0 

degrees/ second 

K:BIASCAIiE:  Single  precision  constant  stored  as  75777g,  scaled  B2  and 
unitless.  Eq\iation  value: 

K:nrdTAU:  Single  precision  constant  stored  as  0.1,  scaled  BO  in  units  of 
seconds  per  DAP  cycle.  Equation  value:  0.1. 


K : LOCKAIGL : Single  precision  constant  stored  as  0.388889,  scaled  B-1 
in  units  of  revolutions.  Equation  value:  0.194445.  (Equivalent  to 
70  degrees . ) 

K:MAXANG:  Double  precision  constant  stored  as  0.472222222,  scaled  BO  in 
iinits  of  revolutions.  Equation  value:  0.472222222.  (Eqiiivalent  to 
170  degrees . ) 

K:DP1MIN:  Double  precision  constant  stored  as  0.0000223517,  scaled  B28 
in  units  of  centiseconds.  Equation  value:  one  minute. 
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K:MINANG:  Double  precision  constant  stored  as  U. 00069373,  scaled  BO  in 

units  of  revolutions.  Equation  value:  0.00069375.  (Equivalent  to 
0.25  degrees.) 

—28 

K:0NE3EK:  Double  precision  constant  stored  as  100  x 2 , scaled  B2S 

in  units  of  centiseconds.  Equation  value:  100. 

K:posmaxdp:  See  list  of  Major  Variables. 

K:SINGIMLC:  Double  precision  constant  stored  as  0.4285836003,  scaled  B1 

and  unitless.  Equation  value:  0.8571672.  (Corresponds  to  the  sine  of 
59  degrees.) 

K:31NVEC1:  Double  precision  constant  stored  as  0.3796356537,  scaled  B1 
and  unitiess.  Equation  value:  0.7592713G74*  (Corresponds  to  the 
sine  of  49.4  degrees.) 

K:SINVEC2:  Doiible  precision  constant  stored  as  0 .2462II78OO , scaled  B1 
and  unitless.  Equation  value:  0.49242356.  (Corresponds  to  the  sine 
of  29.5  degrees.) 

K:UNITX,  K:UNITY,  K:IJNITZ:  Doxible  precision  constant  vectors  scaled  B1  and 
unitless.  Equation  value : (1,0,0),  (0,1,0)  and  (0,0,1). 

K:VECMG1  : Double  precision  constant  stored  as  0.1388888889,  scaled  BO 
in  units  of  revolutions.  Equation  value:  0.1388888889.  (Equivalent 
to  50  degrees.) 

K:VECANG2:  Double  precision  constant  stored  as  0.09722222222,  scaled  BO 

in  units  of  revolutions.  Equation  value:  0.09722222222.  (Equivalent  to 
35  degrees.) 

K:VxxNxx:  See  list  of  Major  Variables. 


LMFI]:  Do\±ile  precision,  3x3  transformation  matrix,  scaled  B2  and  defined 

such  that  Asc  - [MFI]  Ascd  where  A is  a vector  expressed  in  terms  of 
"present  spacecraft"  and  "desired  spacecraft"  coordinate  systems, 
respectively. 

LMFISIM]:  A double  precision,  3x3  matrix  synthesized  from  [MFI]  and  its 

transpose  to  enable  an  accurate  computation  of  COF  from  the  diagonal 
terms;  scaled  B2. 

[MFS]:  A double  precision,  3x3  transformation  matrix,  scaled  B1  and 

defined  such  that  Asm  = [MFS]  Ascd  where  A is  a vector  expressed  in 
terms  of  "stable  member"  and  "desired  spacecraft"  coordinate  systems, 
respectively. 
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[mis]:  a double  precision,  3x3  transformation  matrioc  scaled  B1  and  defined 
such  that  Asm  ^ [MIS]  Asc  where  A is  a vector  expressed  in  terms  of 
"stable  member"  and  "present  spacecraft"  coordinate  systems,  respectively 


[MIS] 


XSM  t 

— sc 

YSM  t 

— sc 

ZSM  t 

— sc 


XSC  , YSC  , ZSC 
sm’  — sm  — sm 


[MIS] 


XSC  t 

— sm 

YSC  t 

— sm 

ZSC  t 

— sm 


TxSM  , YSM  , ZSM  1 
sc  — sc  — scj 


MODREG:  See  DATA  section. 

ICEU:  Single  precision  vector  storage  for  the  gimbal  angles  desired  after 
the  next  one-second  period,  scaled  B-1  in  units  of  revolutions  and 
stored  in  two's  complement  form. 

NEXTIME:  Single  precision  scheduled  time  of  the  next  "UPDTCALL"  cycle, 
scaled  B14  in  units  of  centiseconds. 

OMEIjAPD,  OMBGAQD,  OMEGARD:  See  DAPA  section. 

OPTIONXq,  OPTION!^;  See  EXVB  section. 

POINTVSM:  Double  precision  "desired  direction"  vector,  a unit  vector 
scaled  B1  and  expressed  in  teims  of  "stable  member"  coordinates. 

RATEINDX:  See  DAPB  section. 

MTT:  See  ORBI  section. 

^REFSMMAT]]  : See  COOR  section, 

SCAXIS:  Double  precision  unit  vector  defining  the  spacecraft  axis  that  is 
to  be  pointed  in  the  "desired  direction",  scaled  B1  and  expressed  in 
"present  spacecraft"  coordinates. 

SINOGA,  SINIGA,  SINMIA:  See  COOR  section. 

SINTH:  See  COOR  section. 


TBASE2:  Cell  used  for  address  storage  purposes  in  "CHKLINUS"  to  p^ermit 
restoration  of  program  display  after  a restart.  The  cell  is  s'ngle 
precision  and  is  normally  used  to  contain  waitlist  restart  informatim 
(as  it  is  in  "RELINUS" . ) 

TDEC1:  See  ORBI  section. 

TEMPR60:  Single  precision  octal  return  address  storage. 
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THETA:  See  COOR  section. 


THETAD:  Single  precision  vector  containing  the  gimbal  angles  that 
define  the  desired  orientation  to  which  the  attitude  maneuver 
routines  are  to  maneuver;  scaled  B-1  in  units  of  revolutions 
and  stored  in  two*s  complement  fonn.  Also  called  CPHI  in  program. 

TIME1 : The  least  signifigant  half  of  TIMENOW.  See  EXVB  section. 

TIMENOW:  See  EXVB  section. 

TM:  Double  precision  time  of  maneuver  end,  calculated  on  the  first 

pass  through  "NEWANGL"  and  scaled  B28  in  units  of  centiseconds . 

fTMFlj:  Double  precision,  3x3  matrix  equal  to  the  transpose  of  [mFI j ; 
scaled  B2. 

[TMIS] : Double  precision,  3x3  matrix  equal  to  the  transpose  of  j MISj  ; 
scaled  B1 . 

VECQTEMP:  Single  precision  octal  retiirn  address  storage. 

YSM  , YSM  Double  precision  unit  vector  along  the  Y-axis  of 

SO  o CCl 

the  "stable  member"  coordinate  system  expressed  in  terms  of 
"present  spacecraft"  and  "desired  spacecraft"  coordinate  systems, 
respectively;  scaled  Bl . 
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P40LM 


PA2LM 

P42STAGE 


PAPIN 


Biorn  Control  Routines 


WHICH  = "P4CTABLE" 

If  FLGWRD1C  bit  13  (APSFLAG)  = 1,  proceed  to  "P4GALM" 
Perform  "RG2BGTH" 

DVTHRUSH  = K:THEIESH1  + K:THRESH3 

If  DAPBCCLS  bit  13  (CSMDCCKD)  = 1,  DVTHRUSH  = K:THRESH3 
DVCNTR  = 4 

Switch  FLAGWRD5  bit  12  (NCTHRCTL)  to  C 

F = KrFDPS 

MDCT  = K:MDGTDPS 

TDECAY  = KrDTDECAY 

VEX  = - 2 K:DPSVEX 

Proceed  to  "P4GIN" 

WHICH  = "P42TABLE" 

If  FLGWRD1C  bit  13  (APSFLAG)  = C,  proceed  to  "P4CALM" 
Perform  "RG2BGTH" 

DVTHRUSH  = K:THRESH2 
DVCNTR  = 4 

Switch  FLAGWRD2  bit  5 (AVFLAG)  to  1 (LM  active) 

F = K:FAPS 
MDCT  = KrMDCTAPS 
TDECAY  = K:ATDECAY 
VEX  = - 2 K:APSVEX 

Perform  "S4D.1"  (get  initial  target  vectors) 

Perform  "SAC. 2, 3"  (get  initial  attitude) 
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Perform  "PFLITEDB"  with  interrupts  inhibited 
Switch  FLAGWRD5  bit  6 (3AXISFLG)  to  0 
Perform  "R60LEM'' 

Proceed  to  "BURNBABY" 


P41LM 


WHICH  = "P41  TABLE" 

Perform  "R02B0TH" 

If  FLAGWRD1  bit  15  (NJETSFLG)  = 0,  F = K:FRCS4 
If  FLAGWRD1  bit  15  (NJETSFLG)  = 1,  F = K:FRCS2 
Perform  "S40.1"  (get  initial  target  vectors) 


Perform  "S40.2,3"  (get  initial  attitude) 

Inhibit  interrupts 


Perform  "ZATTEROR" 
Perform  "SETMINDB" 


Release  interrupt  inhibit 

Switch  FLAGWRD5  bit  6 (3AXISFLG)  to  0 

Perform  "R60LEM"  (retiirn  after  attitude  maneuver  complete) 
Perform  "S4I.I"  with  TSref  = VGPREV 
VGBODY  = TSbody 

Perform  "GODSPRET"  with  TS  = K:V16N85  (VGBODY) 

DISPDEX  = Z (positive  to  enable  "DYNMDISP") 

Establish  "DYNMDISP"  (pr05) 

Proceed  to  the  third  step  of  "BURNBABY" 

P40ALM  Perform  "ALARM"  with  TS  = 01706g 

REP40ALM  Proceed  to  "GOFLASH"  with  TS  = K;V05N09 

(if  terminate,  proceed  to  "GOTOPOOH";  if  proceed,  continue  at 
next  step;  if  other  response,  repeat  this  step.) 

Proceed  according  to  fourteenth  entry  in  WHICH  table 
( , REP40ALM, , P42STAGE, , ) 
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BURNBABY  DVTOTAL  = 0 

Perform  "P40AUT0"  (assure  proper  mode  switching) 

GOBLTIME  = TIG 

Perform  "ENGIN0F3"  with  interrupts  inhibited 

Proceed  according  to  the  fifth  entry  in  WHICH  table 
(P40SP0T,  P40SP0T,  P41SP0T,  P40SP0T,  P4ISPOT,  ) 

P40SP0T  DISPDEX  = - 15  ("CLOKTASK"  controlled  otherwise  by  P4I , P63) 

Perform  "STCL0K3"  (start  computation  of  TTOGO) 

P41 SPOT  TDEC1  = TIG  - K;D29.9SEC  ("CLOKTASK"  already  running  if  P63) 

Perform  "INITCDUW"  (initialize  steering) 

If  FLAGWRD6  bit  8 (MUHFLAG)  = 1 : 

Perform  "CSMPREC" 

vcsM  = [refsmmat]  VATT 

RCSM  = [rEI'SHMAT]  RATT 
Perform  "MUNGRAV"  with  TSr  = RCSM 
GCSM  = GDT1 
TDEC1  = TAT 
Perform  "MIDT0AV1 " 

If  TSerror  = 1 : (did  not  finish  in  time) 

TIG  = PIPTIME1  + K;D29.9SEC 
SAVET  = TSt  - K:5SECDP 
Call  "TIG-35"  in  SAVET  centiseconds 
If  MODREG  = 63: 

DISPDEX  = -15  (enable  display  of  TTOGO) 

ABVEL  = I W1  I 
End  job 

TIG-35  Call  "TIG-30"  in  5 seconds 
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PA1BLA.NK 

TIG-30.1 

TIG-30A 

TIG-30 


WANTAPS 

ULLGNOT 

ULLGTASK 

TIG- 5 

PAOSJITOK 


DISPDEX  = - 2 (cause  "CLOKTASK"  to  blank  display) 

If  the  6th  entry  in  WHICH  table  < Or  (P41 ) 

Call  "TIG-30.1"  in  4-9  seconds 

Establish  "P41 BLANK"  (prIV) 

End  task 

Perform  "CEEANDSP" 

End  job 

Establish  "TIG-30A"  (prIV) 

End  task 

Proceed  to  "EEGODSP"  with  TS  = K:V16N85  (VGBODY) 

(Entered  at  TIG  - 29.9  seconds) 

Call  "TIG-5"  in  24.9  seconds 

DISPDEX  = - 15  (enable  TTOGO  display) 

TSt  = 6th  entry  in  WHICH  table  (O,  2240,  -1,  2640,  2240,  

If  TSt<  0,  proceed  to  "ULLGNOT" 

Perform  "ULKJTASK"  in  TSt  centlseconds 

Proceed  according  to  first  entry  in  WHICH  table 
(ULLGNOT,  ULLGNOT, , WANTAPS,  ULLGNOT,  ULLGNOT) 

Switch  FLGWRD10  bit  13  (APSFLAG)  to  1 

AVEGEXIT  = 7th  entry  in  WHICH  table 

(SERVEXIT,  STEERING,  CALCN85,  STEERING,  SERVEXIT, ) 

Proceed  to  "PREREAD" 

Switch  DAPBOOLS  bit  6 (ULLAGER)  to  1 

End  task 

Call  "TIG-0"  in  5 seconds 

Switch  FLAGWRD7  bits  13  (IGNFLAG)  and  12  (ASTNFLAG)  to  0 

Switch  FLAGWRD5  bit  8 (ZOOMFLAG)  to  0 

Proceed  according  to  11th  entry  in  WHICH  table 

(DISPCHNG,  P40SJUNK,  End  task,  P40SJUNK,  DISPCHNG,  DISPCHNG) 

If  "S40.13"  is  running,  proceed  to  "DISPCHNG"  (indicated  by 

restart  tables) 

Establish  "S40.13"  (P40's  burn  initialization)  (pr20) 

RTTRN  - L 


DISPCHNG 


^{■PROCEED 


TIG-0 


TIGTASK 


IGNITION 


I 


P12IGN 


ABRTIGN 


DISPDEX  = - 11  (initiate  astronaut  branching  capability) 

End  task 

Switch  FLAGWRD7  bit  12  (ASTNFLAG)  to  1 
If  FLAGWRD7  bit  13  (IGNFLAG)  = 1 ; 

Call  "IGNITION"  in  0.01  seconds 
DISPDEX  = - 15  (display  only) 

End  j ob 

Switch  FLAGWRD7  bit  13  (IGNFLAG)  to  1 

If  MODREG  = 63,  call  "ZOOM"  in  ZOOMTIME  centiseconds 

If  FLAGWRD7  bit  12  (ASTNFLAG)  = 1,  proceed  to  "IGNITION" 

Proceed  according  to  the  12th  entry  in  WHICH  table 

(End  task.  End  task,  TIGTASX,  End  task.  End  task.  End  task) 

Establish  "TIGNOW"  (prl6) 

Switch  DAPB00I5  bit  15  (PULSES)  to  0 
End  task 

Switch  FLAGWRD5  bit  7 (ENGONFLG)  to  1 
Switch  bit  1 4 of  channel  1 1 to  0 

(send  ignition  command) 

Switch  bit  1 3 of  channel  1 1 to  1 
TEVENT  = TIMENOW 

Switch  DAPBOOIS  bit  15  (PULSES)  to  0 

TIG  = TGO  + TIMENOW  (now  contains  cutoff  time) 

Switch  FLAGWRD8  bit  10  (FLUNDISP)  to  0 

Proceed  according  to  the  13th  entry  in  WHICH  table 
(P12IGN,  P40IGN,  , P42IGN,  P63IGN,  ABRTIGN) 

AOSQ  = IGNAOSQ  (initialize  DAP  bias 

acceleration  estimates) 

AOSR  = IGNAOSR 

DISPDEX  = Z (positive  to  kill  "CLOKTASK" ) 

AVEGEXIT  = "ATMAG" 

Switch  FLAGWRD7  bit  11  (SWANDISP)  to  1 


Proceed  to  "P42IGN" 
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I P63IGN 


AVEGEXIT  = "LUNLAND" 


PAOIGN 

I 

PA2IGN 


DISPDEX  = Z (positive  to  kill  "CLOKTASK") 

Switch  FLAGWRr)9  bit  9 (LETABORT)  to  1 

Switch  FLAGWRD7  bit  11  (SWANDISP)  to  1 

TIG  = TIMENOW 

WCHPHASE  = 0 

WCHPHOLD  = 0 

FLPASSO  = 2 

Proceed  to  "P42IGN" 


If  FLAGWRD5  bit  12  (NOTHROTL)  = 0: 

Call  "ZOOM"  in  ZOOMTIME  centiseconds 
Switch  DAPBOOLS  bit  8 (DRIFTBIT)  to  0 
If  FLAGWRD2  bit  9 (IMPULSW)  = 1 : 

If  TGO  ^ 0,  TGO  = 1 

TGO  = 2 ^ (fractional  part  of  TGO  / 2 (more  significant 

half  zeroed) 

Call  "ENGOFTSK"  in  TGO  centiseconds 

Switch  FLAGWRD7  bits  13  (IGNFLAG)  and  12  (ASTNFLAG)  to  0 
Switch  FLAGWRD2  bit  9 (IMPULSW)  to  0 
Delay  0.5  second 

Switch  DAPBOOLS  bit  6 (ULLAGER)  to  0 
End  task 

Switch  FLAGWRD7  bits  13  (IGNFLAG)  and  12  (ASTNFLAG)  to  0 
Switch  FLAGWRD7  bit  7 (IDLEFLAG)  to  0 
Delay  0.5  second 
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ZOOM 


PAOZOOM 


I P63ZOOM 


STEERING 


ENGOFTSK 


ENGINOFF 


Switch  DAPBOOLS  bit  6(ULLAGER)  to  0 
End  task 

If  MODREG  * 63:  (if  P63  running) 

Proceed  to  ’'P63ZOOM"  (otherwise  it's  P40) 

THRUST  = K:MAXTHRUST 
Switch  bit  4 of  channel  I4  to  1 
End  task 

Switch  FUGWRD5  bit  8 (ZOOMFLAG)  to  1 
Perform  "FLATOUT" 

End  task 

Perform  "UPDATEVG" 

If  FLAGWRD2  bit  9 (IMPULSW)  = 0,  proceed  to  "SERVEXIT" 

If  FLAGWRD7  bit  7 (IDLEFLAG)  = 1 , proceed  to  "SERVEXIT" 
Perform  "STOPRATE" 

Switch  FLAGWRD2  bit  9 (IMPULSW)  to  0 
Switch  FLAGWRD7  bit  7 (IDLEFLAG)  to  1 
Inhibit  interrupts 
TSt  = TIG  - TIMENOW 
If  TSt  < 0,  TSt  = 1 

TSt  =2}^  (fractional  part  of  TSt  / 2*'^)  (more  significant 

half  zeroed) 

Call  "ENGOFTSK"  in  TSt  centiseconds 
Release  interrupt  inhibit 
End  job 

Perform  "ENGINOFF" 

End  task 

Establish  "POSTBURN"  (pr12) 
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ENGIN0F2 


Call  "COASTSET"  in  0.01  second 

ENGIN0F1  Switch  FLAGWRD7  bit  7 (IDLEFLAG)  to  1 
Switch  DAPBOOLS  bit  6 (ULLAGER)  to  0 
ENGINOFA  TEVENT  = TIMENOW 

ENGIN0F3  Switch  FLAGWRD5  bit  7 (ENGONFLG)  to  0 
Switch  bit  1 3 of  channel  11  to  0 
Switch  bit  1 4 of  channel  11  to  1 
Switch  DAPBOOLS  bit  U (USEQRJTS)  to  1 

THRUST  = - K;MAXTHRUST  (wipe  out  any  throttle  setting  above 

that  specified  manually) 

Switch  bit  4 of  channel  1 4 to  1 

Return 

COASTSET  Perform  "ALLCOAST" 

End  task 

POSTBURN  DISPDEX  = Z.  (positive  to  kill  "CLOKTASK") 

AVEGEXIT  = "CALCN85" 

Perform  "GOFLASHR"  with  TS  = K:V16N40  (TTOGO,  DELVSAB,  DVTOTAL) 
(If  terminate,  proceed  to  "TERM40";  if  proceed,  proceed  to 
"TIGNOW";  if  other  response,  proceed  to  "POSTBURN".) 

End  job 

TIGNOW  Inhibit  interrupts 
Perform  "ZATTEROR" 

Perform  "SETMINDB" 

Release  interrupt  inhibit 

Perform  "REFLASHR"  with  TS  = K:V16N85  (VGBODY) 

(If  terminate,  proceed  to  "TERM40"}  if  proceed,  proceed  to 
"TERM4O";  if  other  response,  repeat  this  step.) 

End  job 
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TERM40 


AVEGEXIT  = "SERVEXIT" 


STCL0K3 


COMPTGO 


CLOKTASK 


CLOKJOB 


TRKMKCNT  = 0 

DISPDEX  = Z (positive  to  kill  "CLOKTASK") 

Perform  "RESTORDB"  with  interrupts  inhibited 
Proceed  to  "GOTOPOOH" 

TSt  = TIG  - TIMENOW  (modulo  2*'*^  centiseconds) 

TSt  = 2 + 100  (fractional  part  of  TSt  / 100) 

(If  TIG  - TIMENOW  were  4723  centiseconds,  TSt  would  be  25 
centiseconds,  starting  "CLOKTASK"  at  TIG  - 46.98  seconds.) 

Call  "CLOKTASK"  in  TSt  centiseconds 

Return 

DISPDEX  = 0 (compute  TTOGO  but  do  not  display) 

Call  "CLOKTASK"  in  0.02  second 
Return 

If  DISPDEX  > 0,  end  task 

Establish  "CLOKJOB"  (pr27) 

Delay  1 second 
Proceed  to  "CLOKTASK" 

TTOGO  = TIMENOW  - TIG 
If  DISPDEX  = - 29: 

NW0RD1  = -0  (to  specify  a verb  97  paste) 

Proceed  to  "CLOCPLAr'  with  TS  = NVWORD^ 

(If  terminate,  proceed  to  "STOPCLOK" ; if  proceed, 
proceed  according  to  the  second  entry  in  WHICH 

table:  C0MFAIL3,  C0MFAIL4, , C0MFAIL4, 

C0MF.»IL3,  C0MFAIL3;  if  other  response,  proceed 
to  "C0MFAIL2".) 
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If  DISPDEX  = - 21 ; 


V99RECYC 


STOPCLOK 


CENTER 


Proceed  to  "REFLASH"  with  TS  = K:V06N61 

(If  terminate,  proceed  to  "STOPCLOK";  if  proceed, 
continue  at  next  step;  if  other  response,  repeat 
this  step. ) 


DISPDEX  = 0 

Establish  "ASTNRET"  (pr13) 

End  job 

If  DISPDEX  = - 15; 

Proceed  to  "REGODSP"  with  TS  = zero  entry  in  WHICH  table 
(V06N74,  VO6N4O,  , VO6N4O,  V06N62,  VO6N63) 

If  DISPDEX  = - 11; 

NVW0RD1  = 77377g  (to  specify  a verb  99  paste) 

Proceed  to  "CLOCPLAY"  with  TS  = zero  entry  in  WHICH  table 

(V06N74,  V06N40,  , Y06N40,  V06N62,  VO6N63) 

(If  terminate,  proceed  to  "STOPCLOK";  if  proceed 
proceed  to  "*rTlOCEED";  if  other  response,  proceed  to 
" CENTER" . ) 

If  DISPDEX  = -2: 

Perform  "CLEANDSP" 

End  job 


Switch  DAPBOOLS  bit  6 (ULLAGER)  to  0 
Remove  "ULLGTASK"  from  the  waitlist  if  it  is  there 
DISPDEX  = Z (positive  to  kill  "CLOKTASK") 

Proceed  to  "GOTOPOOH" 

Inhibit  interrupts 

Proceed  according  to  the  3rd  entry  in  WHICH  table 
(GOCUTOFF,  GOPOST,  , GOPOST,  V99RECYC,  GOCUTOFF) 
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GOPOST 


Establish  "POSTBURN" 


(pr12) 


GOCUTOFF 


COMFAIL 


Inhibit  interrupts 
Perform  "ALLCOAST" 

Switch  DAPBOOLS  bit  6 (ULLAGER)  to  0 
Remove  "ULLGTASK"  from  the  waitlist  if  it  is  there 
DISPDEX  = Z (positive  to  kill  "CLOKTASK") 

Release  interrupt  inhibit 
End  job 

Establish  "CUTOFF"  (prIV) 

Switch  FLAGWRD8  bit  10  (FLUNDISP)  to  0 
Inhibit  interrupts 
Perform  "ALLCOAST" 

Switch  DAPBOOLS  bit  6 (ULLAGER)  to  0 
Remove  "ULLGTASK"  from  the  waitlist  if  it  is  there 
DISPDEX  = Z (positive  to  kill  "CLOKTASK") 

Release  interrupt  inhibit 
End  job 

Switch  FLAGWRD7  bit  7 (IDLEFLAG)  to  1 
Switch  FLAGWRD8  bit  10  (FLUNDISP)  to  1 
DVCNTR  = 4 
If  DISPDEX  > 0: 

DISPDEX  = 0 
Perform  "STCL0K3" 

DISPDEX  = - 29  (initiate  fail  branch  display) 
End  job 
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C0MFAIL2 


Inhibit  interrupts 

Remove  "ZOOM"  from  the  waitilist  if  it  is  there 
Perform  "ENGIN0F4" 

Switch  DAPBOOLS  bit  8 (DRIFTBIT)  to  1 
Invert  DAPBOOLS  bit  10  (AORBTRAN) 

Switch  DAPBOOLS  bit  6 (ULLAGER)  to  1 
Call  "TIG-5"  in  0.01  second 
End  job 

C0MFAIL3  DISPDEX  = Z (positive  to  kill  "CLOKTASK") 

Skip  next  step 
COMFAILA  DISPDEX  =-15 

Switch  FLAGVfflD?  bit  7 (IDLEFLAG)  to  0 
Switch  FLAGWRD8  bit  10  (FLUNDISP)  to  0 
End  job 

DYMDISP  If  DISPDEX  <0,  end  job  ("CLOKTASK"  has  started) 
Perform  "S41.1"  with  TSref  = VGPREV 
VGBODY  = TSbody 
Delay  1 second 
Proceed  to  "DYMDISP" 

CALCN85  Perform  "UPDATEVG" 

Perform  "S41.1"  with  TSref  = VGPREV 
VGBODY  = TSbody 
Proceed  to  "SERVEXIT" 

S41  .1  Perform  "CDUTRIG" 

Perform  "SMTONB" 
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PAOAUTO 


FA7LM 


STARTPA7 


PA7B0DY 


CALCN83 


TSbody  = [sMNBMAt]  I^FSMMAt]  TSref 
Return 

If  FLGWRD10  bit  13  (APSFLAG)  = 1 and  bit  10  of  channel  30  = 0 
(PGNCS)  and  bit  14  of  channel  31  = 0 (DAP  in  Auto  mode)  or  if 
FLGWRD10  bit  13  (APSFLAG)  = 0 and  bit  10  of  channel  30  = 0 and 
bit  14  of  channel  31  = 0 and  bit  5 of  channel  30  = 0 (Auto 
throttle  mode  also  required  if  descent) : 

Return  (switch  configuration  proper) 

Proceed  to  "G0PERF1 " with  TS  = 00203rt  . (request  proper  moding) 
(if  terminate,  proceed  to  "G0T0°P00H";  if  proceed,  proceed 
to  "P4OAUTO";  if  other  response,  continue  at  next  step.) 

Return 

Perform  "R02B0TH" 

Perform  "MIDT0AV2" 

Call  "STARTP47"  in  TSt  centiseconds  (TSt  modulo  2}^) 

End  j ob 

AVEGEXIT  = "CALCN83" 

Establish  "P47B0DY"  (pr20) 

Proceed  to  "PREREAD” 

DELVIMU  = 0 
DELVCTL  = 0 

Perform  "GOFLASHR"  with  TS  = K:V16N83  (DELVIMU) 

(If  terminate,  proceed  to  "GOTOPOOH";  if  proceed,  proceed 
to  "GOTOPOOH";  if  other  response,  proceed  to  "P47B0DY".) 

End  job 

DELVSIN  = DELVCTL  + DELVREF 

Perform  "S4I.I"  with  TSref  = DELVSIN 

DELVIMU  = TSbody 

DELVCTL  = DELVSIN 

Proceed  to  "SERVEXIT" 
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UPDATEVG  QTEMP1  = return  address 


Perform  "S4O.8" 

If  FIAGWRD2  bit  8 (XDELVFLG)  = 1,  return  via  QTEMP1 
If  FIAGWRDV  bit  10  (NORMSW)  = 0: 

TS  = PIPTIME  - TIGSAVE  - TNEWA 
If  TS  0,  proceed  to  "GETRANS" 

TStp  = TIGSAVE  + TNEWA 

If  "S40.9"  is  still  active:  (as  indicated  by  restart  tables) 

Return  via  QTEMP1 

Establish  "340.9"  (prIO) 

TIGSAVE  = TStp 
RINIT  = p 
VINIT  = TO 

GETRANS  DELLT4  = TPASS4  - PIPTIME 
Return  via  QTEMP1 

S40.8  If  FLAGWRD2  bit  8 (XDELVFLG)  = 0,  proceed  to  "RASTEER1" 

TS1  = TCPREV  - pLVREF 
VGAIN^  VG  = TS1 

MFC  = [rEFSMMAt]  VG 
DELVSAB  = |VG| 

TCPREV  = VG 

If  FLAGWRD2  bit  11  (STEERSW)  = 0,  return 
TS  = unit(-pLVREF)  • TC 


BURN  - 14 


If  TS>0; 


Perform  "ALARM"  with  TS  = 01407g 
Perform  "PINDCDUW" 

Return  (to  caller  of  "S40.8") 

TS1  = 1 + (TS  / VEX) 

TGO  = (KimFOURDT  TS  TSl  / |dELVREf|)  + TDECAY 
TIG  = TGO  + PIPTIME 
If  TGO  K:FOURSECS; 

Perform  "FINDCDUW" 

Retiirn  (to  caller  of  "S4O.8") 

Switch  FLAGWRD2  bit  9 (IMPULSW)  to  1 
Switch  FLAGWRD2  bit  11  (STEERSW)  to  0 
Return  (to  caller  of  "S4O.8") 

S40.1  QTEMP  = return  address 
TIGSAVE  = TIG 

If  FLAGWRD2  bit  8 (XDELVFLG)  = 0,  proceed  to  "S40.IB" 

PNIT  = VTIG 
TS  = I VTIG  * RTIg| 

UT  = unit (VTIG  * RTIG) 

RINIT  = RTIG 

TSang  = (TS  K:THETACON  / | RTIg|  (DELVSAB  MASS  / F) 

TSa  = (pLVSIN  • UT)  UT 
TSb  = DELVSIN  - TSa 

VGPREV  = TSa  + | TSb j (sinTSang  unit (TSb  * OT)  + cosTSang  unitTSb) 
UT  = unitVGPREV 
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Perform  "GET.LVC"  with  TS  = VGPREV 
Return  via  QTEMP 
SAP. IB  TDEC1  = TIG 

DELLT4  = TPASS4  - TIG 
Perform  "LEMPREC" 

RTIG  = MTT  and  RIKIT  = RATT 

PITR  = vnitMUT 

VTIG  = VATT 

VINIT  = PTT 

VTARGTAG  = 0 

CNANGL  = K:EPS1 

If  FLAGWRD7  bit  10  (NORMSW)  = 1,  CNANGL  = K;EPS1  + 
RTX1  = MUDEX 
RTX2  = PBODY 
Perform  "INITVEL" 

VGPREV  = PLVEET3 
UT  = unitVGPREV 
DELVSAB  = I VGPREV  | 

Perform  "GET.LVC"  with  TS  = DELVEET3 
Return  via  QTEMP 

S40.2.3  POINTVSM  = [rEFSMMAt]  UT 
SCAXIS  = K:UNITX 
XSMDrf  = UT 

TSa  = unit (XSMDrf  * RTIG) 


K:EPS2 
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TS^p  = I XSMDrf  ^ OTIG | 

If  the  most  significant  half  of  TS^p  = 0: 

TSa  = vmit( XSMDrf  * VTIG) 

YSMDrf  = TSa 

ZSMDrf  = - YSMDrf  * ffiMDrf 

Switch  FLAGWRD2  bit  4 (PFRATFLG)  to  1 

Return 

S40.9  Switch  FLAGWRD2  bit  5 (AVFLAG)  to  1 
CNANGL  = K:EPS1 

If  FLAGWRD7  bit  10  (NORMSW)  = 1,  CNANGL  = K:EPS1  + K;EPS2 
Perform  "HAVEGUES”  with  VTARGTAG  = 0 
End  job 

RASTEER1  RMAG  = | M | 

TSuc  = unit(RTARG  - M) 

TSc  = |rTARG  - (quasi  floating  point) 

TSrlc  = TSc  RMAG  (quasi  floating  point) 

TSss  = (RMAG  + RTMAG  + TSc)  / 2 

TS1  = (MUASTEER  - (TSss  - TSc))  MUdA  / 2 

TSa  =^2  (TSss  - RMAG)  TS1  / TSrl^"^  signGEOMSGN 

TS1  = MUASTEER  - TSss  MUdA  / 2 

TSb  = ^2  (TSss  - RTMAG)  TS1  / TSr10'^ 

TS1  = j](TSss  - TSc)  / TSss^ 

TS1  = K:2PI+3  arcsinTSI  - (TSc  / TSss)^  (TSi ) 

TS1  = TSI  signGEOMSGN 

TS  =rTSss^  / (2  MUASTEER)]^  (K:2pi+1  - TSi)  - TPASS4  + PIPTIME 
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TS  = TSb  signTS 

If  riAGWRO?  bit  10  (NORMSW)  = 1: 


If  TSuc  • UNITR  K,  0,  proceed  to  "NEGPROD" 

TS1  = \mit( UNITR  + TSuc) 

TS2  = unit((-  T31  * UN)  signGEOMSGN)  TS 
PPRIME  = TS1  TSa  + TS2 
m:LVEET3  = VIPRIME  - Wl 
Proceed  to  "FIRSTTME" 

TS1  = unit(TSuc  - piTR)  TS 

VIPRIME  = unit (TSuc  + IMITR)  TSa  + TS1 

DELVEET3  = VIPRIME  - Wl 

Proceed  to  "FIRSTTME" 

NEGPROD  TS1  =•  unit(TSuc  - UNITR) 

TS2  = unit((TS1  * OT)  signGEOMSGN)  TSa 
VIPRIME  = TS1  TS  + TS2 
PLVEET3  = VIPRIME  - Wl 

FIRSTTME  If  RTX2  = 0:  (earth  centered  orbit) 

TS  = OTITGOBL  (PIPTIME  - GOBLTIME)  K:EARTHMU  / | p 
PLVEET3  = PLVEET3  + TS 
TS1  = PLVEET3  and  skip  next  step 
TS1  = PLVEET3 
Proceed  to  "VGAIN*" 

S40.13  Switch  FLA.GWRD2  bit  9 (IMPULSW)  to  0 
TS  = |VGPREV|  - K:43EC  K:FRCS2  / MASS 
If  FLGWRD10  bit  13  (APSFLAG)  = 0,  proceed  to  "S40.13D" 
Switch  FLA.GWRD5  bit  12  (NOTHROTL)  to  1 
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TSa  = TS  - (K:K1VAL  / MASS) 
If  TSa<  0: 


TSt  = (TS  MASS  + K:K2VAL)  / K:K3VAL 
Proceed  to  "S40.132’' 

TSb  = F K:5SECS  / (MASS  - MOOT  K:3.5SEC) 

TSc  = TSa  - TSb 

If  TSc^  0,  proceed  to  "S40.13I>"  (TGO  2.  6 seconds) 

TSt  = K:1SEC2D  + K:5SECS  TSa  / TSb 
Proceed  to  "S40.132" 

S40.13D  TS  = TS  MASS 

If  FLGWRD10  bit  13  (APSFLAG)  = 1: 

TSt  = TS  / K:FAPS 

Proceed  to  second  step  of  ''S40.132" 

TSt  = TS  / K:S40.136 

Switch  FLAGWED5  bit  12  (NOTHROTL)  to  0 

If  overflow  (TStZ.  2^^): 

TGO  = TS  MASS  / K:S40.136* 

End  job 

If  TSt'<^  K:6SEC:  (TG0<  6 seconds) 

Proceed  to  ''S40.132" 

If  TSt<  (K:6SEC  + K:89SECS):  (TGO  < 95  seconds) 

Switch  FLAGWRD5  bit  12  (NOTHROTL)  to  1 

Proceed  to  the  second  step  of  "S40.132'’ 

S40.132  Switch  FLAGWRD2  bit  9 (IMPULSW)  to  1 

TGO  = (0,  TSt  ) 

’ ms 

End  job 
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INITGDUW 


FINDCDUW 


PFV  = K:UNITX 
PWC  = K:UNITX 
Return 

Knewthrust  = UNFC 
QCDUWUSR  = return  address 

NDXCDUW  = bit  13  of  DAPBOOLS  (CSMDOCKD)  (1  or  O) 

FLPAUTNO  = 1 

FLAGOODW  = bit  9 of  DAPBOOLS  (XOVINHIB)  (1  or  O) 

Inhibit  interrupts 
ANG  = CDU 

If  bit  1 0 of  channel  30  = 0 and  bit  1 4 of  channel  31  0 : 

(PGNCS  control;  DAP  in  Auto  mode) 

FLPAUTNO  = 0 

ANG  = CDUD 

Release  interrupt  inhibit 

UNX  = unitTSnewthrust  (argument  of  unit 

operation  adjusted 

MZ  = unitUNWC  to  prevent  overflow) 

Perform  "QUICTRIG" 

If  overflow  (in  either  unit  operation  above),  proceed  to  "NOATTCNT" 
TS  = unitDELV 

If  no  overflow  (jDELvji2  cm/sec): 

Perform  "SMTONB" 

TSdv  = [sMNBMA:^  TS 

TS  = (TSdVy  - UNFVy)  K:GAINFLTR^X(.j3y^ 

If  |ts|>  K:DUNFVLIM,  TS  = K;DUNFVLIM  signTS 
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(If  no  overflow:) 

UNFV  = UNFV  + TS 

y y 

If  lUNFVyl  > KrUNFVLIM,  UNFV^  = KrlMFVLIM  signUUFV^ 

TS  = (TSdv^  - mmj  KrGAINFLTRj^^^j^y^ 

If  |ts|>  K:DUWFVLIM,  TS  = K:DUWFVLIM  signTS 

IMFV  = UNFV  + TS 
z z 

If  luEFV  |>  KrUKFVLIM,  UNFV  = K:UNFVLIM  signUNFV 
I z • z . z 

If  FLAGOODW  = 1 : 

If  (UNZ  • K:DOTSWFMX: 

Proceed  to  "DCMCL" 

FLAGOODW  = 0 
MZ  = ZNBPIP 

If  (MZ  • pX)^C  K:DOTSWFMX: 

Proceed  to  "DCMCL" 

FLAGOODW  = 0 
PZ  = - PBPIP 

DCMCL  pi  = unit(pZ  * px) 

PZ  = PY  * px 

UNX  = unitCUUX  + UNFV  UNZ  - UNFV  UNY) 

z - y- 

PY  = px  * pZ 
pZ  = - pY  * px 
Perform  "NB2CDUSP" 

If  iTScdu  I > K:CDUZDLIM: 

i z I 

TScdu^  = K:CDUZDLIM  signTScdu^ 

Perform  "ALARM"  with  TS  = 00401g 
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Inhibit  interrupts 

THETAD  = TScdu 

mJDELGMB  = - (TScdu  - CDUD) 

If  mDELGMB  ^ + K:HI5>  0,  FLAGOODW  = 0 

y 

If  mDELGMB  ^ + K:HI5  > 0,  FLAGOODW  = 0 
If  FLPAUTNO>  0 or  if  FLAGWRD5  bit  7 (ENGONFLG)  = 0: 

Proceed  to  the  second  step  of  "NOATTCNT" 
i = NDXCDUW 

If  ImDELGMB  |>  KrDAZMAX. , mDELGMB  = K:DAZMAX.  sign(mDELGMB  ) 

I Z I X Z X z 

TS  = mDELGMB  COSMGA 

y 

If  |ts|>  K;DAYd2MAX^,  TS  = K:DAYd2MAX^  signTS 
TSa  = mDELGMB 

y 

mDELGMB  = TS  / COSMGA 

y 

TS  = - SINMGA  TSa  - mDELGMB^ 

If  |ts|  > KrDAXMAX^,  TS  = KiDAXMAX^  signTS 
mDELGMB  = - TS 

X 

If  FLAGOODW  = 0,  mDELGMB  = 0 
mDELGMB  = mDELGMB  - SINMGA  mDELGMB 

XX  y 

OMEGAPD  = K:dvtoacc  (-  mDELGMB  - SINMGA  mDELGMB  ) 

X y' 

OMEGAQD  = K;dvtoacc  (-  COSOGA  COSMGA  mDELGMB  - SINOGA  mDELGMB  ) 

y 2.' 

OMEGARD  = K:dvtoacc  (SINOGA  COSMGA  mDELGMB  - COSOGA  mDELGMB  ) 

y Z 

DELCDU  = K:DTdDELT  mDELGMB  (converted  to  two's  comp,  form) 

TS  = I OMEGARD I OMEGARD  K:biascale  / 1JACCR 
If  |ts|>  K:DELERLIM,  TS  = K:DELERLIM  signTS 
DELREROR  = TS 
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TS  = |oMEGAQd|  OMEGAQD  Ktbiascale  / 1JACCQ 
If  |ts|  > K:DELERLIM,  TS  = K:DELERLIM  slgnTS 
DELQEROR  = TS 

TS  = |0MEGAPd|  OMEGAPD  K:biascale  / 1JACCP 

If  |ts|>  K:DELERLIM,  TS  = KrDELERLIM  signTS 

DELPEROR  = TS 

Release  interrupt  inhibit 

Return  via  QGDUWUSR 

NOATTCNT  Perform  "ALARM"  with  TS  = 00402g 

Perform  "STOPRATE"  with  interrupts  inhibited 

Retvirn  via  QGDUWUSR 

QUICTRIG  Inhibit  interrupts 

SIMMGA  = sin  ANG 
sp  z 

COSMGA  = cos  ANG 
sp  z 

SINIGA  = sin  ANG 
sp  y 

COSIGA  = cos  ANG 
sp  y 

SINOGA  = sin  ANG 
sp  X 

COSOGA  = cos  ANG 
sp  X 

Release  interrupt  inhibit 
Return 

NB2CDUSP  TS  = 1 - UNX  ^ 

y 

If  TS  < 0,  TS  = 0 
TScosmga  = 'y/  TS 

If  TScosmga  ^ 1 , TScosmga  = K:posmaxsp 
TScos  = TScosmga 


(single  precision 
without  converting 
first  to  one's 
complement  form; 
error  is  tolerated 
for  speed. ) 
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ARCTRGSP 


TSsin  = UNX 

y 

Perform  "ARCTRGSP" 


TScdu^  = TSang 

TS  = TScosmga  - jUNX^j 

If  TS>-  0,  TS  = UNX^  / TScosmga 


TScos  — TS 

TS  = TScosmga  - j [ 

If  TS>  0,  TS  = IMX  / TScosmga 

z 

TSsin  = - TS 
Perform  "ARCTRGSP" 

TScdUy  = TSang 
TS  = TScosmga  - 

If  TS  > 0,  TS  = UNY  / TScosmga 

y 


TScos  — TS 
TS  = TScosmga  - 


UNZ 


If  TS  > 0,  TS  = UNZ  / TScosmga 

y 

TSsin  = - TS 
Perform  "ARCTRGSP" 


TScdu^  = TSang 
Return 

If  TSsin  = 0: 

If  TScos ^ 0,  TSang  = 0 

If  TScos  ■<  0,  TSang  = - Krposmaxsp 

Return 

TSsec  = TScos  / TSsin 
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If  |TS3ec|  > 1: 

If  TScos  ^ +0,  TSang  = 0 
If  TScos  < -0; 

TSsin  = - TSsin 
TSang  = - Krposmaxsp 
TSang  = arcsin^p(TSsin)  - TSang 
Return 

TSang  = + arcsin^p(-  TScos) 

If  TSsin  < 0,  TSang  = - TSang 
Return 


(converted  to  two' 
comp,  form) 


(converted  to  two 
comp,  form) 


BURN  - 25 


Quantities  in  Computations 


IJACCP , IJACCQ,  IJACCR:  See  DAPB  section. 

ABVEL;  See  SERV  section.  (Displayed  by  nouns  62  and  63  in  "CLOKJOB",) 
^G:  See  COOR  section. 

AOSQ,  AOSR:  See  DAPA  section. 

AVEGEXIT:  See  SERV  section. 


CDU:  See  IMUC  section. 

CDUD : See  DAPA  section. 

CNANGL:  See  TRGL  section. 

COSIGA,  COSMGA,  COSOGA:  See  COOR  section. 

DAPBOOLS , DELCDU:  See  DAPA  section. 

DELLT4:  See  TRGL  section. 

DELPEROR,  DELQEROR,  DELREROR:  See  DAPA  section. 

DELV : See  SERV  section. 

DELVCTL:  Double  precision  vector  sum  of  velocity  gained  since  the 

initiation  of  the  Delta-v  monitor  program,  P47,  scaled  B7  in  units  of 
meters  per  centisecond  and  expressed  in  the  Reference  coordinate  system. 

DELVEET3 : See  TRGL  section. 

DELVIMU : Double  precision  vector  equivalent  to  DELVCTL,  but  expressed 

in  the  Body  coordinate  system  for  display. 

DELVREF:  Double  precision  sensed-change-in-velocity  vector,  scaled  B7 

in  units  of  meters  per  centisecond  and  expressed  in  the  Reference 
coordinate  system. 

DELVSAB:  Double  precision  magnitude  of  velocity  to  be  gained,  program 

notation  also  VGDISP , scaled  B7  in  units  of  meters  per  centisecond; 
generated  in  the  External  Delta-V  targeting  routines  and  in  the  Burn 
routines . 

DELVSIN:  Double  precision  vector  scaled  B7  in  units  of  centiseconds 
and  expressed  in  the  Reference  coordinate  system.  Represents  the 
velocity-to-be-gained  vector  generated  by  the  External  Delta-V 
targeting  routines  during  P40,  P4I  and  P42.  Represents  the  total 
accumulated  change-in-velocity  during  P47. 
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DISPDEX:  Single  precision  index  controlling  the  function  of  "CLOKJOB”  and 
"CLOKTASK",  scaled  B14  and  unitless.  "CLOKJOB"  and  "CLOKTASK"  operate 
semi-independently  of  the  guidance  programs  and  the  primary  interface 
between  them  and  guidance  is  DISPDEX. 

DVCNTR,  DVTHRUSH:  See  SERV  section. 

DVTOTAL:  See  SERV  section.  (Displayed  by  noims  40  and  62  in  "CLOKJOB".) 

F:  Double  precision  thrust  expected  during  the  burn,  scaled  B7  in  units 
of  kilogram  meters  per  centisecond  squared. 


FLAGOODW:  Single  precision  flag  set  or  reset  on  every  pass  through 
"FINDCDUW"  to  indicate  whether  steering  is  or  is  not  based  on  the 
desired  window  pointing  vector;  scaled  B6  and  unitless. 

FLPASSO:  See  DESC  section. 

FLPAUTNO:  Single  precision  flag  set  to  indicate  that  the  burn  is  not 
imder  automatic  control  and  reset  to  indicate  that  the  DAP  control 
quantities  are  to  be  calculated,  scaled  B6  and  unitless. 

KSM,  GDT,  ^T1:  See  SERV  section. 


GEOMSGN:  See  TRGL  section. 


GOBLTIME:  Double  precision  storage  for  TIG,  scaled  B28  in  units  of 
centiseconds;  used  to  bias  the  velocity-to-be-gained  vector  to 
offset  the  effect  of  gravity  during  an  extented  Lambert  burn. 


HCALC1,  HDOTDISP:  See  SERV  section.  (Displayed  by  noun  63  in  "CLOKJOB".) 

IGNAOSQ,  IGNAOSR;  Single  precision  initial  DAP  bias  acceleration  estimates, 

scaled  B-2  in  units  of  revolutions  per  second  squared;  a pad  loaded  quantity. 

K:1SEC2D:  Double  precision  constant  stored  as  100  x 2”^^,  scaled  B14  in 
units  of  centiseconds.  Equation  value:  100. 

—28 

K:200b29:  Double  precision  constant  stored  as  100  x 2~  , program  notation 

100B28,  scaled  B29  in  units  of  centiseconds.  Equation  value:  200. 

_2 

K:2pi+1:  Double  precision  constant  stored  as  3-141592653  x 2 , scaled  B1 

in  units  of  radians.  Equation  value:  Tf  / 2.  Program  notation:  2PI+3 


_2 

K:2PI+3:  Double  precision  constant  stored  as  3-14159653  x 2 , scaled  B3 

in  units  of  radians  per  revolution.  Equation  value:  2 TT  , 

-13 

K:3.5SEC:  Double  precision  constant  stored  as  350  x 2 , scaled  B13  in 

imits  of  centiseconds.  Equation  value:  350. 


K:4SEC:  Double  precision  constant  stored  as  400  x 2 
units  of  centiseconds.  Equation  value:  400. 


,-17 


scaled  B17  in 


,-28 


scaled  B28  in 


K:5SECDP:  Double  precision  constant  stored  as  500  x 2 
units  of  centiseconds.  Equation  value:  500. 

K:5SECS:  Double  precision  constant  stored  as  500  x 2 scaled  B14  in 
units  of  centiseconds.  Equation  value:  500. 


BURN  - 27 


-1 4 

K:6SEC:  Double  precision  constant  stored  as  600  x 2 , scaled  B14  in 

units  of  centiseconds.  Equation  value:  600. 

-1 L 

K:89SECS:  Double  precision  constant  stored  as  8900  x 2 scaled  BI4 
in  units  of  centiseconds.  Equation  value:  89OO. 

-5 

K;APSVEX:  Single  precision  constant  stored  as  - 30.30  X 2 , scaled 

B5  in  iinits  of  meters  per  centisecond.  Equation  value:  - 30.30 

—28 

K;ATDECAY:  Double  precision  constant  stored  as  - 10.  X 2 , scaled 

B28  in  units  of  centiseconds.  Equation  value:  - 10, 

K:blascale:  Single  precision  constant  stored  as  02000g,  scaled  B2 
and  unitless;  program  notation  BIT11.  Equation  value:  0.25 

K;CDUZDLIM:  Single  precision  constant  stored  as  0.3888888888,  scaled 
B-1  in  units  of  revolutions.  Equation  value:  0.1944444444 
(Equivalent  to  70  degrees.) 

—28 

K:D29.9SEC:  Double  precision  constant  stored  as  2990.  X 2 , scaled 

B28  in  units  of  centiseconds.  Equation  value:  2990. 

K:DAX1’1AXq;  Single  precision  constant  stored  as  0.11111111111,  scaled 
B-1  in  units  of  revolutions.  Equation  value:  0.05555555555 
(Equivalent  to  20  degrees.) 

K:DAXl''IAX^  : Single  precision  constant  stored  as  0.01111111111,  scaled 
B-1  in  units  of  revolutions.  Equation  value:  0,00555555555 
(Equivalent  to  2 degrees.) 

K : DAYd2IlAXQ : Single  precision  constant  stored  as  0.05555555555,  scaled 
BO  in  um.ts  of  revolutions.  Equation  value:  0.05555555555 
(Equivalent  to  20  degrees.) 

K:DAYd2MAX^ ; Single  precision  constant  stored  as  0.0055555555,  scaled 
BO  in  units  of  revolutions.  Equation  value:  0.0055555555 
(Equivalent  to  2 degrees.) 

K:DAZ1'1AXq:  Single  precision  constant  identical  to  K:DAXMAXq. 

K:DAZMAX^ : Single  precision  constant  identical  to  K:DAXMAX^ . 

K:DELERLIM:  Single  precision  constant  stored  as  0.05555555555,  scaled 
B-1  in  units  of  revolutions.  Equation  value:  0.02777777777 
(Equivalent  to  10  degrees.) 

K:D0TSWFIiX:  Single  precision  constant  stored  as  0.93302  X 2 scaled 
B4  and  unitless.  Equation  value:  0.93302  (Equivalent  to  the 
square  of  the  cosine  of  1 5 degrees.) 

K:DPSVEX:  Single  precision  constant  stored  as  - 29.5588868  x 2 scaled 
B5  in  units  of  meters  per  centisecond.  Equation  value:  - 29.5588868. 

K:DTdDELT:  Single  precision  constant  stored  as  0.05,  scaled  BO  in 
units  of  guidance  cycles  per  DAP  cycle.  Equation  value:  0.05 


T3TTOM 


K;DTDECAY:  Doable  precision  constant  stored  as  - 38.  X 2 , scaled 

B28  in  units  of  centiseconds.  Equation  value;  - 38. 

KiDUNFVLlM:  Single  precision  constant  stored  as  0.007  x 2 scaled  B1 

and  unitless.  Equation  value:  0.007. 

K:dvtoacc:  Constant  implicit  in  the  2-second  navigation  cycle,  scaled 

B-1  in  units  of  seconds  to  the  minus  one  power.  Equation  value: 

3 6 

K:EARTHMU:  Double  precision  constant  stored  as  -3,986032  ElO  x 2 , 

scaled  B36  in  units  of  meters  cubed  per  centisecond  squared.  Equation 
value:  -3.986032  ElO. 

K:EPS1:  Double  precision  constant  stored  as  2.777777778  E-2,  scaled  BO 

in  units  of  revolutions.  Equation  value:  2.777777778  E-2.  (Equivalent 
to  10  degrees.) 

K:EPS2:  Double  precision  constant  stored  as  9.722222222  E-2,  scaled  BO 

in  units  of  revolutions.  Equation  value:  9.722222222  E-2.  (Equivalent 
to  35  degrees.) 

K:FAPS:  Double  precision  constant  stored  as  1 ,5569  X 2~'^>  scaled  B7  in 

units  of  kilogram  meters  per  centisecond  squared.  Equation  value: 

1.5569  (Equivalent  to  3500  pounds  force.) 

K:FDPS:  Double  precision  constant  stored  as  4,3670  x 2~'^  , scaled  B7 

in  units  of  kilogram  meters  per  centisecond  squared.  Equation  value: 
4.3670.  (Equivalent  to  9817.5  pounds  force.) 

- 2 8 

K:F0URSECS:  Double  precision  constant  stored  as  400  x 2 , scaled  B28 

in  units  of  centiseconds.  Equation  value:  400. 

K:FRCS2:  Double  precision  constant  stored  as  0.08896  x 2'^,  scaled 

B7  in  units  of  kilogram  meters  per  centisecond  squared.  Equation 
value:  0.08896  . (Equivalent  to  200  pounds  force.) 

K:FRCS4:  Double  precision  constant  stored  as  0.17792  x 2”^,  scaled 

B7  in  units  of  kilogram  meters  per  centisecond  squared.  Equation 
value:  0.17792  . (Equivalent  to  400  pounds  force.) 

K:GAINFLTR_:  Single  precision  constant  stored  as  0.2,  scaled  BO 
and  unitless.  Equation  value:  0.2 

KiGAINPLTR. : Single  precision  constant  stored  as  0.1,  scaled  BO 
and  uniiless.  Equation  value:  0.1 

K:HI5:  Single  precision  constant  stored  as  76000„,  scaled  B-2  in  units 

of  revolutions  squared.  Equation  value:  -0.015625.  (Equivalent  to 
about  minus  the  square  of  45  degrees.) 

-23 

K:K1VAL:  Double  precision  constant  stored  as  124.55  x 2 scaled  B23 

in  units  of  kilogram  meters  per  centisecond.  Equation  value:  124.55. 

K:K2VAL:  Double  precision  constant  stored  as  31.138  x 2 scaled  B24 

in  units  of  kilogram  meters  per  centisecond.  Equation  value:  31.138. 
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K:K3VAL:  Double  precision  constant  stored  as  1.5569  X 2 scaled  BIO  in 
units  of  kilogram  meters  per  centisecond  squared.  Equation  value:  1.5569 

K:MAXTHRUST:  Single  precision  constant  stored  as  10000^,  scaled  B14  in 
units  of  DPS  throttle  piilses.  Eqiiation  value:  4096.  (See  THRUST). 

K:MD0TAPS:  Double  precision  constant  stored  as  0.05135  X 2 scaled 
B3  in  units  of  kilograms  per  centisecond.  Eqiiation  value:  0.05135 
(Equivalent  to  11.32  pounds  mass  per  second.) 

K:IiD0TDPS;  Double  precision  constant  stored  as  0.148  X 2 scaled  B3 
in  units  of  kilograms  per  centisecond.  Equation  value:  0.148 

—1 8 

K:mF0URDT:  Double  precision  constant  stored  as  - 800.  X 2 , scaled 

B16  in  units  of  centiseconds.  Equation  value:  - 200. 

.K:posmaxsp:  see  Major  Variables. 

K:S40.136:  Double  precision  constant  stored  as  0.4671  X 2”*^,  scaled 
B9  in  units  of  kilogram-meters  per  centisecond  squared.  Equation 
value:  0.4671  (Equivalent  to  1050.  pounds  force). 

K:S40.136*:  Double  precision  constant  stored  as  0.4671  X 2^  scaled 
B-1  in  units  of  kilogram-meters  per  centisecond  squared.  Equation 
value : 0 . 4671 

-8 

K:THETAC0N:  Double  precision  constant  stored  as  0.31830989  X 2 , 

scaled  B6  in  units  of  revolutions  per  radian.  Equation  value:  l/4 

-1 L 

K:THRESH1 : Single  precision  constant  stored  as  24.  X 2 scaled 
BI4  in  units  of  centimeters  per  second.  Equation  value:  24. 

—1 L 

K:THRESH2:  Single  precision  constant  stored  as  308.  X 2 scaled 
BI4  in  units  of  centimeters  per  second.  Equation  value:  308. 

-1 4 

K;THRESH3:  Single  precision  constant  stored  as  12.  X 2 scaled 
BI4  in  units  of  centimeters  per  second.  Equation  value:  12. 

K:UNFVLIM:  Single  precision  constant  stored  as  0.129  X 2 , scaled 

B1  and  iinitless.  Equation  value:  0.129 

K:UNITX:  Single  precision  constant  vector  stored  as  (0.5,  0,  0), 
scaled  B1  and  unitless.  Equation  value:  (1,0,0) 

MSS:  see  SERV  section. 

mDELGMB:  Single  precision  vector  containing  the  complement  of  the 
proposed  additions  to  the  desired  gimbal  angle  command  to  be 
issued  to  the  DAP,  scaled  B-1  in  units  of  revolutions. 

MDOT:  Double  precision  nominal  mass  flow  rate  during  thrust,  scaled 
B3  in  units  of  kilograms  per  centisecond. 
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MUdA,  MUASTEER:  See  TRGL  section. 


MUDEX:  see  ORBI  section. 

NDXCDUW:  Single  precision  index  (O  or  1)  to  select  the  proper  steering 

constants  for  LM  alone  or  CSM-LM  configuration,  scaled  BI4  and  unitless. 

NVWORE’I:  Single  precision  cell  used  to  specify  either  a V97  or  V99  display, 

NWORD^:  See  DINT  section. 


OMEGAPD,  OMEGAQD,  OMEGARD : See  DAPA  section. 

OUTOFPLN:  See  DESC  section,  (Displayed  by  noun  61  in  "CLOKJOB".) 

PBODY : See  ORBI  section. 

PIPTIME,  PIPTIMEI:  See  SERV  section, 

PITCH:  See  ASCT  section.  (Displayed  by  noun  74  in  "CLOKJOB".) 

P^OINTVSM : See  ATTM  section. 

QCDUWUSR:  Single  precision  octal  return  address  storage. 

QTEMP , QTEMPl:  Single  precision  octal  return  address  storage. 

^TT,  VATT,  TAT:  See  ORBI  section. 

RCSM,  VCSM:  See  SERV  section, 

LREFSMMAt]:  See  COOR  section. 

RINIT,  VINIT:  See  TRGL  section. 

RMAG:  See  ASCT  section.  Scaled  B29  (earth)  or  B27  (moon)  here. 

VN : See  SERV  section. 

RTARG:  See  TRGL  section. 


RTIG,  VTIG:  See  TRGX  section. 
RTXl,  RTX2:  See  ORBI  section. 


SAVET:  Double  precision  temporary  storage  cell  for  time  information, 

scaled  B28  in  units  of  cent i seconds . 

^CAXIS : See  ATTM  section. 

SINIGA,  SINMGA,  SINOGA:  See  COOR  section. 

[sMNBMAT]:  See  COOR  section. 


TDECl:  See  ORBI  section. 

TDECAY : Double  precision  thrust  decay  time  added  to  TGO,  scaled  B28  in 

units  of  centi seconds , 


TEVENT:  Double 

B28  in  units 


precision  time-of -event 
of  centiseconds . 


for  downlink 


information , 


scaled 
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TGO:  Double  precision  predicted  length  of  burn,  scaled  B28  in  units  of 

centiseconds . 

THETAD:  See  IMUC  section. 

THRUST;  See  DESC  section. 

TIG:  Double  precision  predicted  time  of  ignition  input  to  the  burn  routines, 

or  predicted  cutoff  time,  scaled  B28  in  units  of  centiseconds. 

TIGSAVE:  Double  precision  storage  for  the  effective  time  of  the  last 

performance  of  the  Lambert  routine;  scaled  B28  in  units  of  centiseconds. 

TIMENOW:  See  EXVB  section. 

TNEWA;  Double  precision  pad  loaded  quantity  giving  the  Lambert  cycle 
period;  scaled  B28  in  units  of  centiseconds. 

TNIT,  TNITPREV : Double  precision  times  used  to  determine  the  number  of 
navigation  cycles  between  successive  entries  into  "SAG. 9”,  scaled  B28 
in  units  of  centiseconds. 

TPASS4:  See  TRGL  section. 

TRKMKCNT:  See  RNAV  section 

TTFDISP : See  DESC  section.  (Displayed  by  noun  61  in  "CLOKJOB”.) 

TTOGO:  Double  precision  time  until  engine  ignition  (or  cutoff),  scaled 

B28  in  units  of  centiseconds. 

WFC ; Double  precision  desired  thrust  acceleration  vector,  with  variable 
scaling  in  units  of  meters  per  centisecond  squared  and  expressed  in 
the  Platform  coordinate  system. 

UNFV : Double  precision  filtered  value  of  the  sensed  thrust  direction 

vector,  scaled  B1  and  unitless,  and  expressed  in  what  might  best  be 
called  the  "theoretical"  body  coordinate  system.  The  X component  is 
not  used,  but  the  Y and  2 components  are  used  to  bias  the  desired 
thrust  vector  with  respect  to  the  spacecraft  so  that  the  desired 
direction  of  thrust  passes  through  the  center  of  gravity  of  the  space- 
craft . 

MITGOBL;  Double  precision  vector  used  to  bias  the  velocity- to-be- 
gained  vector  to  offset  the  effect  of  gravity  during  an  extended 
Lambert  burn,  scaled  B1  and  expressed  in  the  Reference  coordinate 
system . 

I IMn'R:  See  SERV  section. 

UNWC : Double  precision  vector  along  the  desired  pointing  direction  of 

the  landing  window,  scaling  and  units  variable,  expressed  in  the 
Platform  coordinate  system. 

UT;  Double  precision  unit  vector  in  the  direction  of  velocity  to  be 
gained,  used  to  determine  initial  attitude  for  burns,  scaled  B1  and 
expressed  in  the  Reference  coordinate  system. 

WX , j^Y , TOZ:  Double  precision  unit  vectors  along  the  desired  directions 
of  the  three  body  axes,  scaled  B1  and  expressed  in  the  Platform 
coordinate  system. 


RTIRN  _ 


VEX:  Double  precision  engine  exhaust  velocity,  scaled  B7  in  units  of 
meters  per  centisecond. 

VG:  Double  precision  velocity- to-be-gained  vector,  scaled  B7  in  units 

of  meters  per  centisecond  and  expressed  in  the  reference  coordinate  system. 

VGBODY:  Double  precision  velocity- to-be-gained  vector,  scaled  B7  in  units 
of  meters  per  centisecond  and  expressed  in  the  Body  coordinate  system. 

VGPREV:  Double  precision  previous  value  of  VG,  program  notation  also 
VGTIG,  scaled  B7  in  units  of  meters  per  centisecond  and  expressed  in 
the  reference  coordinate  system. 

VIPRIME:  See  TRGL  section. 

VN1:  See  SERV  section. 

VTARGTAG:  See  TRGL  section. 

WC}IPHOLD,  WCHPHASE:  See  DESC  section. 

WHICH:  Single  precision  octal  address  of  one  of  the  following  tables: 

Table  entry  niunber  Tables 


P12TABLE 

P40TABLE 

P41  table 

P42TABLE 

P63TABLE 

ABRTABLE 

0 

K:V06N74 

K;V06N40 

K:V06N40 

K:V06N62 

K:V06N63 

1 

ULLGNOT 

ULLGNOT 

WANTAPS 

ULLGNOT 

ULLGNOT 

2 

C0MFAIL3 

C0MFAIL4 

C0MFAIL4 

CQMFAIL3 

C0MFAIL3 

3 

GOCUTOFF 

GOPOST 

GOPOST 

V99RECYC 

GOCUTOFF 

4 

End  task 

End  task 

End  task 

End  task 

End  task 

5 

P40SP0T 

P4OSPOT 

P41SP0T 

P40SP0T 

P4ISPOT 

6 

0 

2240 

-1 

2640 

2240 

7 

SERVEXIT 

STEERING 

CALCN85 

STEERING 

SERVEXIT 

— 

11 

DISPCHNG 

P40SJUNK 

End  task 

P40SJUNK 

DISPCHNG 

DISPCHNG 

12 

End  task 

End  task 

TIGTASK 

End  task 

End  task 

End  task 

13 

P12IGN 

P4OIGN  * 

P42IGN 

P63IGN 

A3RTIGN 

14 

REP40ALM 

P42STAGE 

MBPIP,  pBPIP,  ZNBPIP:  See  SERV  section. 

XSMDrf,  YSMDrf,  ZSMDrf:  See  ALIN  section. 

YAW:  See  ASCT  section.  (Displayed  by  noun  74  in  "CLOKJOB".) 

ZOOMTIME:  Single  precision  time  after  ignition  at  which  the  DPS  is 

to  be  commanded  to  full  throttle,  scaled  BI4  in  tinits  of  centiseconds . 

Z:  Z register,  or  program  counter.  Cantains  the  address  of  the  next 

step.  The  contents  of  Z are  always  a positive  number. 
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CONG 


Conic  Subroutines 


TIMEEIAD 


RTNCONC  = return  address 

Perform  "PARAM"  vdth  TSr  = RVEC  and  TSv  = WEC 
If  overflow  (in  "PARAM"): 

Switch  FLAGWRD8  bit  4 (COGAFLAG)  to  1 
Proceed  to  "POODOO"  with  TS  = 20607g 
TSe  = (1  - RdA)  mi  - yP  (2  - RdA)  ' COGA  U2 
If  overflow  (or  if  |TSe|  < 2 : 

Switch  FLAGWRD5  bit  3 (SOLNSW)  to  1 
Proceed  to  "POODOO"  with  TS  = 20607g 
TSue  = imitTSe 

COSF  = [(Rl  P / RDESIRED)  - l]  / |TSe ) 

If  (1  - COSF^)  < 0: 

COSF  = 1 signCOSF 
TSs  = 0 

Switch  FLAGWRD8  bit  5 (APSESW)  to  1 
If  (1  - COSF^)  2 0: 

TSs  = VI  - COSF^  signSGNRDOT 
Switch  FLAGWRD8  bit  5 (APSESW)  to  0 
TSu2  = TSs  UN  * TSue  + COSF  TSue 

CSTH  = TCu2  ' mi  (magnit\ide  limited  to  less  than  l) 
SNTH  = mi  TSu2  • m 
TSp  = P 
Perform  "GETX" 

Switch  FLAGWRD5  bit  3 (SOLNSW)  to  0 
Proceed  to  "COMMNOUT" 


CONC—  1 * 


APSIDES  RTNCONC  = return  address 


TIMETHET 


COMMNOUT 


TSr  = RVEC 
TSv  = VVEC 
Perform  "PARAM" 

(ignore  any  overflow) 

ECC  = V 1 - P RdA  ■ 

TSrp  = R1  P / (1  + ECC) 

TSra  = (2  R1  / RdA)  - TSrp 

If  TSra  < 0 or  if  overflow,  TSra  = Krposraaxdp 

Return  via  RTNCONC 

RTNCONC  = return  address 

TSr  = RVEC 

TSv  = VVEC 

Perform  "PARAM" 

If  overflow  (anywhere  above): 

Switch  FLAGWRD8  bit  4 (COGAFLAG)  to  1 
Proceed  to  "POODOO"  with  TS  = 20607g 
TSp  = P 

Perform  "GETX" 

If  FLAGWRD8  bit  7 (INFINFLG)  = 1,  proceed  to  "POODOO"  with  TS  = 20607^ 

8 

Switch  FLAGWRD8  bit  4 (COGAFLAG)  to  0 
Perform  "DELTIME" 

If  FLAGVTRD?  bit  9 (RVSW)  = 0,  perform  "NEWSTATE" 

Return  via  RTNCONC 
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KEPLERN  i = MUDEX  + 2 


(always  entered  from  "KEPPREP" ) 


PERIODCH 


IdMU  = KiMJTABLE, 


ROOTMJ  = K:MJTABLE^^2 
IdROOTMJ  = K:MJTABLE, 


i+4 


ITERCTR  = 20 
URRECT  = unitRRECT 


R1  = 


RRECT 


KEPCl  = pECT  • VpCT  IdROOTMJ 
KEPC2  = YRECT  • TOECT  IdMJ  R1  - 1 
ALPHA  = (1  - KEPC2)  / R1 
If  ALPHA  < 0: 

TS  = K:m50SC  / ALPHA 


TS  = TS 


If  overflow,  TS  = Ksposmaxdp 
If  ALPHA_>  0: 

TS  = K;2PISC  ALPHA  ' 

If  overflow,  TS  = Krposmaxdp 
XMAX  = TS 


TSperiod  = XMAX  IdROOTMJ  / ALPHA 
If  0^  TSperiod  < 2^®  and  if  |tAu|  ^TSperiod: 
TAU  = IJtAU  I - TSperi^  slgnTAU 
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Proceed  to  "PERIODCH" 


X = XKEPNEW 

If  X signTAU^O  or  if  |x  slgnTAuj  > XMAX,  X = (XMAX/2  )signTAU 
If  TAU  < 0 : 

XMIN  = -XMAX 
XMAX  = 0 

Proceed  to  "DXCOMP" 

XMIN  = 0 

Proceed  to  "DXCOMP" 

DXCOMP  EPSILONT  = |tAU  K:BEE22| 

DELX  = X - XPREV 
KEPLOOP  TSx2  = X^ 

XI  = X^  ALPHA 
Perform  "DELTIME" 

If  overflow,  (somewhere  above): 

If  X<0,  XMIN  = X 
If  X^  0,  XMAX  = X 
DELX  = DELX  / 2 

If  DELX  = 0,  Return  via  KEPRTN 
X = X - DELX 
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BRNCHCTR 


KEPOONVG  . 


(If  overflow) 

T = TO 

Proceed  to  "BRNCHCTR" 

BELT  = TAU  - T 

If  IdeLtI  ^ EPSILONT,  proceed  to  "KEPCONVG" 

TS  = DELX  BELT  / (T  - TC) 

If  TS<  0; 

XMAX  = X 
BELX  = TS 

If  TS  < XMIN  - XMAX  or  if  (XMIN  - XMAX  - TS)  overflows; 
BELX  = (XMIN  - X)  K:BP9dlO 

If  TS:^  0; 

XMIN  = X 
BELX  = TS 

If  TS  > XMAX  - XMIN  or  if  (XMAX  - XMIN  - TS)  overflows: 
BELX  = (XMAX  - X)  K;DP9dlO 
If  |bELx| (b  is  the  scale  factor  of  BELX) : 

Proceed  to  "KEPCONVG" 

X = X + BELX 
TC  = T 

Proceed  to  "BRNCHCTR" 

ITERCTR  = ITERCTR  - 1 

If .ITERCTR  = 0,  proceed  to  "KEPCONVG" 

Proceed  to  "KEPLOOP" 

RCV  = (R1  - XSQCxi)  URRECT  + (T  - X^  IdROOTMU  Sxl)  VRECT 
TSv  = j^(XI  Sxi  - 1)  ROOTMU  X /|  RCV jj  URRECT 
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LAMBERT 


VCV  = ( 1 - XSQCxi  / |RCV)  ) VRECT  + TSv 
TC  = T 
XPREV  = X 

Return  via  KEPRTN  (to  caller  of  "KEPPREP") 

RTNCONC  = return  address 

Switch  FLAGWRD5  bit  3 (SOLNSW)  to  0 

i = MUDEX  + 2 

IdMU  = K; MUTABLE^ 

ROOTMU  = K:MUTABLE^^2 

IdROOTMU  = K;  MUTABLE, . , 

1+4 

EPSILONL  = TDESIRED  K:BEE19 

Switch  FLAC3WRD1  bit  3 (SLOPESW)  to  1 

TSrl  = RIVEC 

TS2  = R2VEC 

Perform  "GEOM" 

SNTH  = TSsin 
TSlam  = R1  / MAGVEC2 
CSTH  = TScos 
ImCSTH  = 1 - CSTH 
If  I ImCSTH  I ^ 2‘^’^; 

Switch  FLAGWRD5  bit  3 (SOLNSW)  to  1 
Return  via  RTNCONC 

TS  = 'V2  TSlam  / ImCSTH  ' + SNTH  / ImCSTH 
If  overflow  or  if  TS  > K:COGUPLIM,  TS  = K:COGUPLIM 
COGAMAX  = TS 
CSTHmRHO  = CSTH  - TSlam 
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TS  = GSTHmRHO  / SNTH 

If  overflow  (|TS|^  2^)  or  If  CEOMSGK<  0,  TS  = 
COGAMIN  = TS 

If  FLAGWRDl  bit  2 (GUESSW)  = 0,  TWEEKIT  = 2"^ 
If  FLAGWRDl  bit  2 (GUESSW)  = 1; 

TWEEKIT  = 2“^ 

COGA  = -J-  (COGAMIN  + COGAMAX) 

DCOGA  = COGA 

LAMBLOOP  TS  = ImCSTH  / (COGA  SNTH  - GSTHmRHO ) 

If  TS  < 0; 

If  DCOGA  > 0,  proceed  to  "LOENERGT' 

Proceed  to  "HIENERGY" 

P = TS 

RdA  = 2 - P (1  + COGA^) 

If  overflow  (P  or  RdA) , proceed  to  "HIENERGY" 
TSp  = P 
Perform  "GETX" 

TPREV  = T 

If  FLAGWRD8  bit  7 (INFINFLG)  = 1: 

If  DCOGA i 0,  proceed  to  "LOENERGY" 

Proceed  to  "HIENERGY" 

Perform  "E®LTIMB" 

If  overflow; 

T = TPREV 

Proceed  to  "LOENERGY" 


K:COGLOLIM 
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LOENERGY 


HIENERGY 


SUFFCHEK 


INITV 


TERRLAMB  = TDESIRED  - T 

If  |tERRLAMb|<  EPSILONL,  proceed  to  "INITV" 

ITERCTR  = ITERCTR  - 1 

If  ITERCTR  = 0,  proceed  to  "SUFFCHEK" 

If  FLAGWRDl  bit  3 (SLOPESW)  =0: 

If  T - TPREV  = 0,  proceed  to  "SUFFCHEK" 

Perform  "ITERATOR"  with  INDEP  = COGA,  DELINDEP  = DCOGA,  DEP  = T, 
DEPREV  = TPREV,  DELDEP  = TERRLAMB,  MAX  = COGAMAX  and  MIN  = COGAMIN 

DCOGA  = DELINDEP 

COGAMAX  = MAX 

COGAMIN  = MIN 

If  |dCOGA|<  2"^^,  proceed  to  "SUFFCHEK" 

COGA  = COGA  + DCOGA 
Proceed  to  "LAMBLOOP" 

COGAMAX  = COGA 
Skip  next  step 
COGAMIN  = COGA 
DCOGA  = DCOGA  / 2 

If  |dCOGa|  < 2“^^,  proceed  to  "SUFFCHEK" 

COGA  = COGA  - DCOGA 
Proceed  to  "LAMBLOOP" 

If  |tERRLAMb|  > K:BEE17  TDESIRED  + 1: 

Switch  FLAGWRD5  bit  3 (SOLNSW)  to  1 
Proceed  to  "INITV" 

Proceed  to  "INITV" 

TS  = /s/p  / Rl  ROOTMU 

VVEC  = TS  COGA  URl  + TS  M * URl 


CONC  - 8 


If  VTARGTAG  = 0: 


R2  = MAGVEC2 
Perform  "LAMENTER" 

VTARGET  = TSv 
Return  via  RTNCONC 
PARAM  RTNPRM  = return  address 

Svfitch  FLAGWRD7  bit  10  (NORMSW)  to  0 
Switch  FLAGWRD8  bit  4 (COGAFLAG)  to  0 
GEOMSGN  = 27777g  (positive) 

ISrl  = TSr 
TS2  = TSv 
Perform  "GEOM" 

COGA  = TScos  / TSsin 
i = MUDEX  + 2 

IdMJ  = K: MUTABLE^ 

ROOTMU  = K:MUTABLEj_4.2 
IdROOTMU  = K:MUTABLE^+^ 

TS  = MAGVEC2^  IdMU  R1 
RdA  = 2 - TS 
P = TS  TSsin^ 

Return  via  RTNPRM 
GEOM  U2  ^ unitTS2 

MAGVEC2  = 1TS2| 

URl  = unitTSrl 
TScos  = URl  • U2 
R1  = IlSrll 
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TS  = URl  -it  U2 

If  FLAGWRD7  bit  10  (NORMSW)  = 0: 

UN  = unit^^S  signOEOMSGN 

If  overflow  (unit  vector  poorly  defined),  U N = UN  / 2 
TSsin  = |lS|  signGEOMSGN 
Return 

GETX  i = 1 

Svdtch  FUGWRD8  bit  1 (360SW)  to  0 

TSsqp  = V TSp 

TS  = SNTH  / (1  - CSTH) 

If  overflow  (ITS I ^ 2^): 

If  TS  < 0,  Switch  FLAGWRD8  bit  1 (36OSW)  to  1 
Proceed  to  "INVRSEQN" 

TS  = (TS  - COGA)  TSsqp 
If  overflow  (!TS|  2,  2^): 

If  TS  < 0,  Switch  FLAGWRD8  bit  1 (36OSW)  to  1 
Proceed  to  "INVRSEQN" 

WLOOP  TSw  = TS 

TS  = RdA  + TSw^ 

If  TS  < 0,  proceed  to  "INFINITY" 

TS  = V TS  ' + TSw 
If  overflow  (ITS I > 2^): 
i = 1 

If  TS  < 0,  Switch  FLAGWRD8  bit  1 (36OSW)  to  1 
Proceed  to  "INVRSEQN" 
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If  i c 3- 


i = i + 1 
Proceed  to  ''WLDOP" 

TS  = 1 / TS 

If  overflow  (|tsI  i 2^),  proceed  to  "INFINITY" 

Proceed  to  "POLYCOEF" 

INVRSEQN  TSw2  = | SNTH  / (l  + CSTH  - SNTH  COGA)  I 

TSw3  = 1 

1/WLOOP  TS  = RdA  TSw2^  + TSw3^ 

If  TS  ^ 0,  proceed  to  "INFINITY" 

TSw3  = -J  TS  ' + TSw3 
If  i 43: 

i = i + 1 

Proceed  to  "l/WLOOP" 

TS  = TSw2  / TSw3 

POLYCOEF  If  TS  < 0,  proceed  to  "INFINITY" 

X = RdA  TS^ 

TS  = 16  TS  (K:unia  + Krunib  x + Krunia  x^  + . . . + K:unlg  x^) 
If  FLAGWRD8  bit  1 (36OSW)  = 1: 

If  RdA  <.  0,  proceed  to  "INFINITY" 

TS  = (K:2PISC  / ^ RdA  * ) - TS 

XI  = RdA  TS^ 

X = -/  R1  TS 
TSx2  = X^ 

KEPCl  = V P R1  ' COGA 
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KEPC2  = 1 - RdA 


INFINITY 


DELTIME 


NEWSTATE 


LAMENTER 


ITERATOR 


Switch  FLAGWRD8  bit  7 (INFINFIG)  to  0 
Return 

(Clear  overflow  indicator  if  set) 

Switch  FLAGWRD8  bit  7 (INFINFLG)  to  1 
Return 

Sxi  = K:SO  + K:S1  XI  + K:S2  XI^  + ...  + K:S9  XI*^ 

Cxi  = K:C0  + K:C1  XI  + K:C2  XI^  + ...  + K;C9  XI^ 

XSQCxi  = TSx2  Cxi 

T = IdROOTMU  ( X (R1  + TSx2  Sxi  KEPC2)  + KEPCl  XSQCxi  ) 
Return 

TSr  = (R1  - XSQCxi)  URl  + (T  - X^  IdROOTMJ  Sxi)  VVEC 
R2  = |TSr| 

TS  = ( ROOTMU  (XI  Sxi  - 1)  X / R2  ) URl 
TSv  = TS  + (1  - XSQCxi  / R2)  VVEC 
Return 

If  FLAGWRDl  bit  3 (SLOPBSW)'  - 0: 

TS  = DELDEP  DELINDEP  / (DEP  - DEPREV) 

If  FLAGWRD8  bit  6 (ORDERSW)  =1,  TS  = |ts1  signDELDEP 
If  FLAGWRDl  bit  3 (SI<OPSSW)  = 1? 

Switch  FLAGWRDl  bit  3 to  0 
TS  = (MAX  TWEEKIT  - MIN  TWEEKIT)  signDELDEP 
If  TS  < 0; 

If  FLAGWRD8  bit  6 ( ORDERSW)  = 0,  MAX  = INDEP 
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(If  TS  < 0) 

If  INDEP  + TS  ^ MIN  or  if  overflow: 

TS  = K:DP9d10  (MIN  - INDEP ) 

DELINDEP  = TS 
Return 

If  FLAGWRD8  bit  6 (ORDERSW)  = 0,  MIN  = INDEP 
If  INDEP  + TS  > MAX  or  if  overflow: 

TS  = K:DP9d10  (MAX  - INDEP) 

DELINDEP  = TS 
Return 

PERIAP01  WEC  = TSv  (rescaled  for  lunar  orbit  computations) 

RVEC  = TSr  (rescaled  for  lunar  orbit  computations) 

PERIAPO  NORMEX  = return  address 
TSo  = K:RPAD 

If  Mudex  ^ 0,  TSo  = |rLS  | 

XXXALT  = TSo 
Perform  "APSIDES" 

TSha  = TSra  - XXXALT 
TShp  = TSrp  - XXXALT 
Return  via  NORMEX 


GONG  - 13 


Quantities  in  Computations 


IdMU:  Double  precision  storage  register  for  the  gravitational  constant 
for  the  moon  or  the  earth,  whichever  is  the  central  body;  scaled  B-34 
(earth)  or  B-28  (moon)  in  units  of  centiseconds  squared  / meters  cubed. 

IdROOTMU:  Double  precision  square  root  of  IdMU,  scaled  B-17  (earth)  or 
B-L4  (moon)  in  units  of  centiseconds  / meters  3/2. 

ImCSTH:  Double  precision  storage  for  (l  - CSTH),  scaled  B2  and  unitless. 

ALPHA:  Double  precision  inverse  of  the  semi-major  axis  for  the  universal 
form  of  Kepler's  equation,  scaled  B-22  (earth)  or  B-20  (moon)  in  units 
of  meters"^. 

COGA:  Double  precision  cotangent  of  flight  path  angle  (measured  from 
vertical),  scaled  B5  and  unitless. 

GOGAMAX,  COGAMIN:  Upper  and  lower  bounds  on  COGA,  scaled  B5  and  unitless. 

COSF:  Double  precision  cosine  of  the  true  anomaly  at  the  desired  radius 
in  the  time-radius  problem,  scaled  B1  and  unitless. 

CSTH:  Double  precision  cosine  of  the  true  anomaly  difference  or  of  the 
angle  between  present  and  desired  position  vectors,  scaled  B1  and 
unitless . 

CSTHmRHO:  Double  precision  intermediate  quantity  used  in  the  calculation 
of  P and  COGAMIN,  scaled  B7  and  unitless. 

Cxi:  One  of  the  two  special  functions  used  in  the  universal  formulation 
of  the  conic  equation;  double  precision,  scaled  B4  and  unitless. 

DCOGA:  Double  precision  change  in  COGA  in  Lambert  iteration  step,  scaled 
B1  and  unitless. 

DELDEP:  Double  precision  change  in  the  dependent  variable  for  the  "ITERATOR" 
subroutine,  variable  scaling  and  units. 

DELINDEP:  Double  precision  change  in  the  independent  variable  for  the 
"ITERATOR"  subroutine,  variable  scaling  and  units. 

DELT:  Double  precision  difference  between  the  desired  time  interval  and 
the  computed  approximation  to  it  during  the  "KEPLERN"  iteration, 
scaled  B28  in  units  of  centiseconds. 
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DELX:  Difference  betvreen  successive  values  of  the  universal  conic  para- 

meter X,  scaled  B17  (earth)  or  Bl6  (moon)  in  imits  of  radians  meters^- 

DEP,  EEPREV : Double  precision  storage  for  two  successive  valijes  of  the 
independent  variable  to  be  used  in  the  "ITERATOR"  subroutine;  scaling 
and  units  variable. 


ECC : Double  precision  eccentricity  computed  in  the  "APSIEES"  routine, 
scaled  B3  and  unitless. 

EPSILONL , EPSILONT:  Double  precision  definitions  of  convergence  in  the 
Lambert  and  Kepler  iteration  loops  respectively,  scaled  B28  in  units 
of  centiseconds . 


GEOMSGN:  Single  precision  sign  for  the  sine  of  the  true  anomaly  differ- 
ence, scaled  BO  and  unitless. 

i:  Single  precision  index,  scaled  B14,  and  imitless. 

INDEP:  Double  precision  independent  variable  for  the  "ITERATOR"  subroutine 

scaling  and  urdts  variable. 

ITERCTR:  Single  precision  iteration  counter,  scaled  B14  and  unitless. 


KEPCl:  Double  precision  coefficient  in  the  Kepler  equation,  scaled  B17 
(earth)  or  B16  (moon)  in  units  of  meters. 


KEPC2:  Double  precision  coefficient  in  the  Kepler  equation,  scaled  B6 

and  unitless. 


KEPRTN:  Single  precision  octal  return  address  storage. 

K:2PISC:  Double  precision  constant,  stored  as  6.2831853  x 2 , scaled  B6 

and  unitless.  Equation  value:  6.2831853* 


K:BEE17:  Double  precision  constant 
Equation  value : 2~^ ' . 

K:BEE19:  Double  precision  constant 
Equation  value: 

K:BEE22:  Double  precision  constant 
Equation  value : 2“^^ . 


stored 

as 

scaled 

BO 

and 

vmitless. 

stored 

as 

2-^4 

scaled 

BO 

and 

unitless. 

stored 

as 

-22 

2 

^ > 

scaled 

BO 

and 

\jnitless. 

K:CO, . . .K:C9:  Ten  double  precision  constants  defining  the  special  function 
C(x),  all  \mltless. 


CONG  - 15 


Scale 

Theoretical 

Equation 

Stored  Value 

Factor 

Value 

Value 

K:C0 

0.031250001 

B4 

0.5 

0 . 500000016 

K:C1 

-0.166666719 

B-2 

-0.041666667 

-0.041666680 

K:C2 

0.355555413 

B-8 

1.38888889  E-3 

1.38888833  E-3 

K:C3 

-0.406347410 

B-14 

-2.48015873  E-5 

-2.48014777  E-5 

K:C4 

0.288962094 

B-20 

2.75573192  E-7 

2.75575727  E-7 

K:C5 

-0.140117894 

B-26 

-2.08767570  E-9 

-2. 08791 932  E-9 

K:C6 

0.049247387 

B-32 

1.14707456  E-n 

1.14663008  E-11 

K:C7 

-O.OI3O8I923 

B-38 

-4.77947733  E-14 

-4.75917586  E-14 

K:C8 

0.002806389 

B-44 

1.56192070  E-16 

1.59524745  E-16 

K:C9 

-0.000529414 

B-50 

-4.11031762  E-19 

-4.70214090  E-19 

K: COGLOLIM:  Double  precision  constant  stored  as  -0. 999511597,  scaled 
B5  and  unitless.  Equation  value: -31.9843711.  (Cot  1®48'.) 


KiCOGUPLIM:  Double  precision  constant  stored  as  0.999511597,  scaled 
B5  and  unitless.  Equation  value:  31.9843711. 

K:DP9dlO:  Double  precision  constant,  stored  as  0.9,  scaled  BO  and  unitless. 
Equation  value : 0.9. 

-12 

K:m50SC:  Double  precision  constant,  stored  as  -50.0  x 2 , scaled  B12 

and  \initless.  Equation  value:  -50.0. 


K: MUTABLE^;  A table  of  constants  containing  four  gravitational 
constants  for  the  earth  and  four  for  the  moon. 


i 

K:  MUTABLE 

Scale 

Factor 

Units 

Equation  Value 

0 

3.986032  ElO  B-36 

B36 

meters'^/cs^ 

3.986032  ElO 

2 

0.25087606  E-10  B34 

B-34 

csV 

0.25087606  E-10 

4 

1.99650495  E5  B-18 

B].8 

ra^^~/cs 

1.99650495  E5 

6 

0. 50087529  e-5  BI7 

B-17 

cs/m3/2 

0. 50087529  e-5 

8 

4.902778  E8  B-30 

B30 

3/  2 
m /cs 

4.902778  E8 

10 

0.203966  E-8  B28 

.B-28 

2/  3 
cs  /m 

0.203966  E-8 

12 

2.21422176  E4  B-15 

BI5 

m3/2cs 

2.21422176  E4 

14 

0.45162595  E-4  BI4 

B-14 

cs/m^'^^ 

0.45162595  E-4 

Significance 

•"e 

1/Pe 

% 

i/m. 

' m 

m 

\/  i/m._ 

m 
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K:RPAD:  Doxjble  precision  stored  as  6373338  x 2~  ^ , scaled  B29  in  units 
of  meters.  Equation  value:  6,373i338.  (Equivalent  to  20,909,901.57 
feet. ) 

K:S0,  ...K:S9:  Ten  double  precision  constants  defining  the  special 
function  S(x),  all  unitless. 


Scale 

Theoretical 

Stored  Value 

Factor 

Value 

Eqiiation  Value 

K:S0 

0.083333334 

B1 

0.166666667 

1 . 66666668 

E-1 

K:S1 

-0.266666684 

B-5 

-8.33333333 

E-3 

-8.33333387 

E-3 

K:S2 

0.406349155 

B-n 

1.984L2698 

E-4 

1.98412673 

E-4 

K:S3 

-0.361198675 

B-17 

-2.75573192 

E-6 

-2.75572720 

E-6 

K:S4 

0.210153242 

B-23 

2,50521084 

E-8 

2. 505221 87 

E-8 

K:S5 

-0.086221951 

B-29 

-1.60590438 

E-10 

-1.60600899 

E-10 

K:S6 

0.026268812 

B-35 

7.64716373 

E-13 

7.64523051 

E-13 

K:S7 

-0,006163316 

B-41 

-2. 8114 572 5 

E-15 

-2.8O275162 

E-15 

K:S8 

0.001177342 

B-47 

8.22063525 

E-18 

8.3655I8O6 

E-18 

K:S9 

-0.000199055 

B-53 

-1.95729411 

E-20 

-2.20995444 

E-20 

K : unia , 

...K:unig:  Seven 

, double 

precision  constants 

used  in  the  defini' 

of  the  independent  variable  for  the  universal  formijlation  of  Kepler's 
equation,  scaled  B1  and  unitless 


Stored  Value 


K:unia 

0.5 

K:\inib 

-0.166666770 

K:unic 

0,100000392 

K:unid 

-O.07140IO86 

K:unie 

0.055503292 

K:unif 

-0.047264098 

K:unig 

0.040694204 

MAGVEC2: 

Magnitude  of  the  second 

doijble 

precision  with  variable 

Equation  Value 

1.0 

-0.33333354 
0.200000784 
-0 .142802172 
0.111006584 
-0.094528196 
0.081388408 


vector  input  to  the  "GEQM"  routine, 
scaling  and  units. 


MA.X,  MIN:  Double  precision  maximim  and  minimum  bounds  for  the  "ITERATOR” 
subroutine;  variable  scaling  and  imits. 


MUEEX:  Sin^e  precision  index  indicating  whether  the  gravitational  con- 
stant for  the  earth  (O)  or  the  moon  (8)  should  be  used  in  the  conic 
equations,  scaled  B14  and  unitless.  MUDEX  = -XI  - 2 where  XI  is 
index  register  one  in  the  listing. 
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NORMEX:  Single  precision  octal  return  address  storage. 

P:  Double  precision  ratio  of  semi-latus  rectum  and  magnitude  of  present 
position,  scaled  BU  and  \mitless. 


El,  R2:  Double  precision  magnitudes  of  present  and  desired  position  vectors, 
respectively,  scaled  B29  (earth)  or  B27  (moon)  in  \inits  of  meters. 

KLVEC , ^VEC:  Double  precision  vector  inputs  to  the  "LAMBERT"  routine; 
present  and  desired  position,  respectively,  scaled  B29  (earth)  or  B27 
(moon)  in  units  of  meters. 

ffiV:  Double  precision  vector  output  of  the  "KEPLERN"  routine;  conic 

position  vector  at  the  specified  time,  scaled  B29  (earth)  or  B27  (moon) 
in  units  of  meters. 

RdA:  Double  precision  ratio  of  present  radius  to  semi -major  axis, 
scaled  B6  and  unitless. 

REESIRED:  Double  precision  input  to  the  "TIMERAD"  routine  scaled  B29 
(earth)  or  B27  (moon)  in  units  of  meters. 

RLS:  Double  precision  position  vector  at  the  lianar  siirface,  scaled  B27 
in  units  of  meters  ^id  eixpressed  in  selenographic  coordinates. 

RDOIMU:  Double  precision  sqioare  root  of  the  relevant  gravitational  con- 

stant, scaled  B18  (earth)  or  B15  (moon)  in  \inits  of  meters  3/2  /cs. 

ERECT:  Double  precision  vector  ir^ut  to  the  "KEPLERN"  routine;  the 
position  vector  to  be  advanced  through  the  specified  time,  scaled  B29 
(earth)  or  B27  (moon),  in  units  of  meters. 

RTNCONC , RTNPRM:  Single  precision,  octal  return  address  storage  cells. 

HVEC:  Double  precision  vector  input  to  the  majority  of  the  conic  routines, 
a position  scaled  B29  (earth)  or  B27  (moon)  in  units  of  meters. 


SfflIRDOT:  Single  precision  flag  indicating  the  sign  of  the  radial  velocity 
desired  at  the  desired  radius. 

SNTH:  Double  precision  sine  of  true  anomaly  difference  or  of  the  angle 
between  present  and  desired  position  vectors,  scaled  B1  and  unitless. 

Sxi:  One  of  the  two  epeclal  fhnctlona  used  in  the  universal  forailatlon 
of  the  conic  equation;  doiible  precision,  sealed  Bl  and  unitless. 
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T;  Double  precision  time  (computed  in  "DELTIME")  to  go  from  present 
position  to  desired  position,  scaled  B28  in  units  of  centiseconds . 

TAU : Desired  transfer  time  input  to  the  "KEPLERN"  routine;  double  pre- 
cision. scaled  B28  in  units  of  centiseconds, 

TC : Double  precision  time  since  latest  rectif idation,  scaled  B28 
in  \inits  of  centiseconds.  See  ORBI  section. 

TDESIRED:  Double  precision  input  to  the  "LAMBERT"  routine;  desired  transfer 
time,  scaled  B28  in  units  of  centiseconds. 

TERRLAMB:  Double  precision  difference  between  desired  and  computed  transfer 
tins  during  the  "LAMBERT"  iterations,  scaled  B28  in  units  of  centiseconds. 

TPREV;  Previous  value  of  T,  scaled  B28  in  units  of  centiseconds  and  double 
precision. 

TWEEKIT:  Single  precision  factor  used  in  the  initiation  of  the  "ITERATOR" 
routine,  set  large  of  small  depending  on  whether  or  not  a good  first 
approximation  of  COGA  is  available. 

U2,  U^Rl:  Double  precision  unit  vectors  in  the  directions  of  the  two 
vectors  input  into  the  "GEOM"  routine,  scaled  B1  and  unitless. 

UN:  Unit  normal  vector,  scaled  B1  and  unitless. 

U^RRECT:  Unit  vector  in  the  direction  of  RRECT,  scaled  B1  and  unitless. 

VCV:  Double  precision  vector  output  of  the  "KEPLERN"  routine;  the 
velocity  vector  at  the  specified  time,  scaled  B7  (earth)  or  B5 
(moon)  in  units  of  meters/centisecond. 

VRECT:  Double  precision  vector  input  to  the  "KEPLERN"  routine;  the 
velocity  vector  to  be  advanced  through  the  specified  time,  scaled 
B7  (earth)  or  B5  (moon)  in  units  of  meters/centisecondi' 

VTARGET:  Double  precision  velocity  vector  output  of  the  "LAMBERT" 
routine;  velocity  at  R2VEC,  scaled  B7  (earth)  or  B5  (moon)  in 
units  of  meters/centisecond. 

VTARGTAG:  Single  precision  flag  input  to  "LAMBERT"  to  Indicate  that 
VTARGET  is  to  be  computed  (if  VTARGTAG  = 0). 

VVEC:  Double  precision  vector  input  to  the  majority  of  the  conic  routines; 
velocity,  scaled  B7  (earth)  or  B5  (moon)  in  units  of  meters  per  centl- 
second. 
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x:  Double  precision  temporary  storage  cell  used  in  "POLYCOEF",  scaled  BO 
and  unitless. 

X:  Double  precision  universal  conic  parameter  equal  to  the  product  of 
semi-major  axis  and  eccentric  anomaly  difference  (for  the  ellipse)  or 
to  the  product  of  the  hyperbolic  analogs  of  eccentric  anomaly  differ- 
ence and  semi -major  axis  (for  the  hyperbola),  scaled  B17  (earth)  or 
Bl6  (moon)  in  units  of  meters  to  the  one-half  power. 

XI:  Double; precision  square  of  the  eccentric  anomaly  difference  for  an 
ellipse,  or  the  negative  of  the  square  of  its  hyperbolic  analog  for  a 
hyperbola,  scaled  B6  in  vmits  of  radians  squared. 

XKEPNEW:  Double  precision  value  of  X at  entry  to  "KEPLERN",  scaled  B17 
(earth)  or  Bl6  (moon)  in  units  of  meters  to  the  one-half  power. 

XMAX,  XMIN:  Double  precision  upper  and  lower  bounds  on  X,  scaled  B17 
(earth)  or  Bl6  (moon)  in  units  of  meters  to  the  one-half  power. 

XPREV:  Previous  value  of  X;  same  units  and  scaling  as  X. 

2 

XSQCxi:  Double  precision  product  of  X and  Exl,  scaled  B33  (earth)  or 
B31  (moon)  in  units  of  meters. 

XXXALT:  Value  of  base  altitude  for  computing  apogee  and  perigee  infor- 
mation, scale  factor  B29  (earth)  or  B27  (moon),  units  meters. 
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COOR 


Coordinate  Transformations 


CDUTRIG 

CD»TRWGS 


NBTOSM 


CALCSMSC 


MG  = CpU 


MG  = MG  converted  to  one ' s complement  form 
SINOGA  = sinMG 

X 

COSOGA  = cosMG 

X 


SINIGA  = SinMG 

«y 

COSIGA  = cosMG 
7 

SINMJA  = SinMG 

z 

COSIGA  = cosMG 

z 

Return 


10  0 
0 COSOGA  - SINOGA 
0 SINOGA  COSOGA 


COSMOA  - SINMGA  0 
SINMGA  COSMGA  0 
0 0 1 


COSIGA  0 SINIGA 
0 10 
- SINIGA  0 COSIGA 


[nbsmmat]  = [tss]  [ts2]  [tsi] 

Retyrn 

MBsm  = (COSIGA  COSJGA  , SINIGA  , -SINIGA  COSMIA) 
TS  = SINOGA  SINIGA 
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SMTONB 


EARTHMX 


ZNBsm  = COSIQA  COSOGA  - SINIQA  TS 
z 

ZNBomy.  = -SINOGA  COSIGA 
ZNBamj^  = COSOGA  SINIGA  + COSIGA  TS 
]pjBsm  = ZNBsm  * XNBam 
Return 


COSIGA  0 - SINIQA 
0 10 
SINIGA  0 COSIGA 


[tS2]  = 


10  0 
0 COSOGA  SINOGA 
0 - SINOGA  COSOGA 

[smnbmat]  = [ts3]  [ts2]  [ts^ 

Retvim 


COSMJA  SINHSA  0 
- SINIGA  C0SM3A  0 
0 0 1 


AZ504  = AZO  + K:WEARTH  (TEPHEM  + TSt) 

If  overflow  (|AZ|,  > l),  AZ  = fractional  part  of  AZ 

COBAZ504  sinAZ504  0 

- sinAZ504  cosAZ504  0 

0 0 1 _ 

1^504  = ( -UNITfc^,  UNITV^,  0) 

Return 


[earthma'^  = 
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MOONMX 


El  = K:BSUBO  + K:BDOT  (TEPHEM  + TSt) 

MR  = K:FSUBO  + K:FDOT  (TEPHEM  + TSt) 

MN  = K:NODIO  + K:NODDOT  (TEPHEM  + TSt) 

TSb  = (-sinMN  , cosMN  cosEI  , cosMN  sinEl) 
Ka  = (cosMN  , sinMfl  cosEI  , sinMN  sinEl) 


TSc  = (0  , -sinEl  , cosEI ) 

[mnmati]  = 

TSa^  TSa^.  TSa^ 

TSb  TSb  TSb 

X y z 

TSc  TSc  TSc 

X y z 

[mnmat:^  = 

'l  0 

0 K:COSI  -K: 

0 K:SINI  K: 

[mnmatb]  = 

-cosMR  -sinMR 

sinMR  -cosMR 

0 0 

I^NMA'3  = 

[mmat^ 

Return 

cosMN  sinMN  0 

10  0 

= 

-sinMN  cosMN  0 

0 cosEI  sinEl 

0 0 1 

0 -sinEl  cosEI 

L J 

J 

0 

0 

1 


cos(i  + MR)  sin(i  + MR)  0 
-sin(i  + MR)  cos(i  + MR)  0 
0 0 1 


LAT-LONG  ALPHAM  = | ALPHAV  | 

If  FLAGWRD3  bit  12  (lUNAFLAG)  = 1; 


Perfonn  "MOONMX" 

TS  = [mDONMAT]  (^HAV  - ([MOONMAT]"^  1^504)  * ALPHAV) 
^HAV  = imitTS 
GAMRP  = K:1B1 

If  FLAGWRDl  bit  13  (ERAUFIAG)  = i,  eRADM  = K:504RM 
If  FLAGWRDl  bit  13  (ERAIFIAG)  = 0,  ERADM  = | 
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If  FLAGWRD3  bit  12  (njMFIAfi)  = 0: 

Perform  "EARTHMX" 

ra  = [earthrat]  (ahtiav  - psoif  * ^lphav) 

^HAV  = \initTS 
GAMRP  = K:B2dA2 

If  FLAGWRDl  bit  13  (ERAIFIAfi)  = 1: 

TS  = 1 - ALPHAV  ^ 
z 

ERADM  = /K:B2XSC  / (1  - K:EE  TS) 

If  FLACMiDl  bit  13  (ERADFLAG)  » 0,  ERADM  = K:ERAD 
COSTH  = QAMRP  J + ALPHAV^^  ' 

SINTH  = ALPHAV 

z 

Perform  "ARCTAN" 

LAT  = THETA 
COSTH  = ALPHAV 

X 

SINTH  = ALPHAV 

y 

Perform  "ARCTAN" 

LONG  = THETA 

ALT  = ALPHAM  - ERADM 

Return 

LALOTORV  If  FLAGWRD3  bit  12  (LUNAFLAG)  = 1,  GAMRP  = K:1B1 

If  FLAGWRD3  bit  12  (idnaflAG)  = 0,  GAMRP  = K:B2dA2 

TS  = GAMRP  sinLAT 
z 

TS^  = sinLOMG  cosLAT 

y 

TS^  = cosLONG  cosLAT 
^HAV  = unitra 
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If  FLAGWRD3  bit  12  (LUNAFLAG)  = 1: 

If  FLAGWRDl  bit  13  (ERADFLAG)  = 1,  ERADM  = K:504RM 
If  FLAGWRDl  bit  13  (ERADFLAG)  = 0,  ERADM  = |RLS  | 
Perform  "MOONMX" 

TS  = [mOONMA'^'^  (ALPHAV  + 114504  * ALPHAV) 

If  FLAGWRD3  bit  12  (LUNAFLAG)  = 0: 

If  FLAGWRDl  bit  13  (ERADFLAG)  = 1: 

TS  = 1 - ALPHAV  ^ 
z 

ERADM  = -/  K:B2XSC  / (1  - K:EE  TS) 

If  FLAGWRDl  bit  13  (ERADFLAG)  = 0,  ERADM  = K:ERAD 
Perform  "EARTHMX" 

TS  = I^THMA'^'^  (ALPHAV  + ( j^RTHMA'^  LE504)  * ALPHAV) 
ALPHAV  = TS  (ERADM  + ALT) 

Return 

ARCTAN  TS  = SINTH^  + COSTH^ 

If  TS  = 0; 

THETA  = 0 
Return 

TS  = SINTH  / V TS 
If  |TS| 2 1: 

THETA  = i Signs INTH 
Return 

THETA  = arcsinTS 

If  COSTH  < 0,  THETA  = - THETA  + signTHETA 
Return 
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CALCGA 


(entered  with  pJBrf  and  ^Mrf  etc.,  HJBsm  and  ^Mnb  etc.,  etc.) 
TS  = unit(pB  » YSM) 


I 


ARCTRIG 


COSTH  = TS  • pB 
SINTH  = TS  • PB 
Perform  "ARCTRIG” 

OGC  = THETA 
COSTH  = p » PB  • YSM 
SINTH  = YSM  • PB 
Perform  "ARCTRIG" 

MGC  = THETA 

If  |mGc| > K:gloktest: 

Perform  "ALARM"  with  TS  = 00401g 
Switch  FLAGWRD3  bit  14  (CLOKFAIL)  to  1 
COSTH  = ^M  • TS 
SINTH  = XSM  • TS 
Perform  "ARCTRIG" 

IGC  = THETA 

P = (OGC,  IGC,  MGC ) converted  to  two's  complement  form 

PETAD  = TS 

Return 

If  |sINTh|>K:QTSN45,  THETA  = arccosCOSTH  signSINTH 
If  I SINTH I < K:QTSN45: 

THETA  = arcsinSINTH 

If  COSTH  < 0,  THETA  = ^ signSINTH  - THETA 
Return 
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0 , DCMATj^j^) 


CALCGTA  TS  = unit(- DCMAT^^^  , 

SINTH  = TS 

X 

COSTH  = TS 

z 

Perform  "ARCTRIG" 

IGC  = THETA 
SINTH  = DCMAT^2 
CXDSTH  = TS^  DCMAT^j^  - TS^  DCMAT^^ 

Perform  "ARCTRIG" 

ICC  = THETA 

COSTH  = TS  • (DCMAT^^  , DCMAT22  » DCMAT^^) 
SINTH  = TS  • (DCMAT2^  , 

Perform  "ARCTRIG" 

OGC  = THETA 
Return 

i 

LSPOS  TSt  = (TSt  + TEPHEM)  / KrCSTODAY 

Switch  FLAGWRDO  bit  3 (FREEFLAG)  to  0 

GTMP  = K:amod  sin(K:ld27  TSt  + K:aarg) 

Switch  FLAGWRDO  bit  3 (FREEFLAG)  to  1 

GTMP  = GTMP  + Krbmod  sin(K:ld32  TSt  + K;barg) 

STMPq  = K:lomo  + K:lomr  TSt  - GTMP 

GTMP  = Krcmod  sin(K:ld365  TSt  + K:carg) 

STMP2  = K:loso  + Kzlosr  TSt  - GTMP 

STMP,  = Krlono  + K:lonr  TSt 
4 
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I 


REFMF 


TS 


(cosSTMPq 
sinSTMPQ 
sin(STMPQ 


- STMP,  ) 
4 


VMDON  = unitTS 


/cosSTMPq 


TS  = [k:KONMAt]  ( sinSTMP2 
\ 0 


VSUN  - unitre 
TSsun  = unit^ 
Return 


TS^  =*  PC^ 

TSt  * TIMENCW 
Perform  "MDONMX" 

pc^  = (ra^  * LM504  + ) [moonma^ 

= PG2 

Perform  "MaONMI" 

pCJj  = (^1  * 1^504  + TS^ ) [mOONMAt] 
Return 

Perform  "CDUTRIGT 
TSt  = TIMENCW 
Perform  "CALCSM3C" 

= unlt(pBim  IrEPSHMAtJ) 

Perform  "MMNMI" 

ij<504  Tmoonma:^ 

r]  (p^  - p * p^ ) 


TNBSAV  = [mDONMAT 
P^  = unlt(ZNBsm 


^fsmmat 


r]) 


COOR  - 8 


Perform  "MOONMX" 


TS  = LM504  MOONMAT 


|mi 


TJ 

ZNBSAV  = [mOONMA'^  (TS^  - TS  TS^) 
Switch  FLAGWRD6  bit  1 (ATTFLAG)  to  1 


Return 
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Quantities  in  Computations 


ALPHAM:  Magnitude  of  position  vector  input  to  "LAT-LONG"  routine. 

ALPHAV : Working  storage  for  the  position  vector  or  unit  position  vector 
in  reference,  selenographic , or  geographic  coordinates. 

ALT:  Double  precision  altitude,  scaled  B29  in  units  of  meters. 

ANG:  Single  precision  vector  containing  the  outer,  inner,  and  middle 
gimbal  angles  in  its  X,  Y,  and  Z components,  respectively,  stored  in 
units  of  revolutions  in  two's  complement  form  scaled  B-1  or  in 
one's  complement  form  scaled  BO. 

AZ5O4:  Double  precision  angle  of  rotation  of  the  earth  around  its  polar 
axis,  scaleid  BO  in  units  of  revolutions.  Prograa  notation  "504AZ". 

AZO:  Double  precision  position  angle  of  the  earth  at  the  time  when 
TEPHEM  equals  zero,  scaled  BO  in  units  of  revolutions;  included  in 
the  erasable  load. 

C.DU  (CDU^,  CDU  , CDU  ):  Single  precision  vector  containing  the  measured 
values  of  t^ie  IMU^gimbal  angles  (outer,  inner  and  middle  gimbal 
in  X,  Y and  Z components  respectively),  scaled  B-1  in  units  of 
revolutions  and  stored  in  two's  complement  form.  Each  component 
is  an  LGC  input  counter  incremented  directly  from  the  Coupling  Data 
Unit  in  response  to  changes  in  the  IMU  gimbal  angles. 

COSIGA,  COSMGA,  COSOGA:  Double  precision  cosines  of  the  inner,  middle 
and  outer  gimbal  angles  respectively,  scaled  B1  and  unitless. 

Program  notation  "COSCDUq,  COSCDU2 , COSCDU^." 

COSTH:  Double  precision  cosine  scaled  B1  in  "ARCTAN"  and  B2  in  "ARCTRIG." 

[dCMAT]:  S ee  AUN  section. 

[eaRTHMAT]:  Double  precision,  3x3  orthogonal  transformation  matrix, 
scaled  B1  and  unitless.  Agd  = [EARTHMAT]  Aref,  where  A is  a vector 
expressed  in  geodetic  and  reference  coordinates  respectively. 

El:  Double  precision  angle  of  inclination  of  the  equatorial  plane 
measured  from  the  ecliptic  plane  around  the  earth-to-sun  vector  at 
the  vernal  equinox,  scaled  BO  in  units  of  revolutions.  Used  to 
transform  from  reference  coordinates  to  a right-handed,  orthogonal 
system  whose  X-axis  is  along  the  earth-to-sun  vector  at  the  vernal 
equinox  and  whose  Z-axis  is  perpendicular  to  the  ecliptic. 

ERADM:  Double  precision  radius  of  earth  or  moon,  scaled  B29  in /Units 
of  meters. 
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GAMRP:  Double  precision  square  of  the  ratio  of  polar  radius  to  equatorial 
radius,  scaled  B1  and  unitless. 

GTMP:  Working  storage  in  "LSPOS"  scaled  BO  in  units  of  revolutions. 

K;1B1:  Double  precision  constant  stored  as  2~^,  scaled  B1  and  unitless. 
Equation  value:  1.  (Corresponds  to  the  square  of  the  ratio  of.' 
polar  radius  to  equatorial  radius  for  the  moon.) 

K:ld27:  Double  precision  constant  stored  as  0.036291712  x 2,  program 
notation  VAL67+4>  scaled  B-1  and  unitless.  Equation  value: 

0.036291712.  (Equivalent  to  1 / 27.5545  and  used  in  the  extension 
of  the  circular  approximation  to  the  moon's  orbit  to  account  for 
eccentricity  and  rotation  of  the  line  of  apsides.) 

K:ld32:  Double  precision  constant  stored  as  0.03125  x 2,  program 
notation  VAL67+10,  scaled  B-1  in  units  of  'revolutions.  Equation 
value:  0.03125. 

K:ld365:  Double  precision  constant  stored  as  0.002737925  x 2,  program 
notation  VAL67+16,  scaled  B-1  and  amitless.  Equation  value: 
0.002737925.  (Equivalent  to  1 / 365.2401.) 

-29 

K:504RM:  Double  precision  constant  stored  as  1738090  x 2 scaled 
B29  in  units  of  meters.  Equation  value:  1738090. 

K:aarg:  Double  precision  constant  stored  as  0.530784445,  program 
notation  VAL67+2,  scaled  BO  in  units  of  revolutions.  Equation 
•Talue  : 0 . 530784^5 . 

K:amod:  Double  precision  constant  stored  as  0.017266666  x 2,  program 
notation  VAL67,  scaled  B-1  in  units  of  revolutions  per  radian. 

Equation  -value:  0.017266666.  (Corresponds  to  2 e / 27r  where 
e is  the  mean  eccentricity  of  the  moon's  orbit  = 0.05426.) 

K:B2dA2:  Double  precision  constant  stored  as  0.9933064884  x 2~^^ 
scaled  B1  and  unitless.  Equation  value:  0.9933064884.  (cor- 
responds to  the  square  of  the  ratio  of  polar  radius  to  equatorial 
radius  for  the  earth . ) 

K;2XSC:  Double  precision  constant  stored  as  0.0179450689,  scaled 
B51  in  units  of  meters  squared.  Equation  -value:  6356784  squared. 
(Corresponds  to  the  square  of  the  polar  radius  of  the  earth.) 

K :barg : Double  precision  constant  stored  as  0.585365625,  program 
notation  VAL67+8,  scaled  BO  in  units  of  revolutions.  Equation 
value:  0.585365625* 
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28 

K:BDOT:  Double  precision  constant  stored  as  -1.145529388  E-16  x 2 , 

scaled  B-28  in  units  of  revolutions  per  centisecond.  Equation  value: 
-1.145529388  E-16.  (Equivalent  to  7.197573418  E-14  radians  per  second 
or  2,766,240  years  per  revolution.) 

K;t«nod;  Double  precision  constant  stored  as  0.003505277  x 2,  program 
notation  VAL67+6,  scaled  B-1  in  units  of  revolutions  per  radian. 

Equation  value  0.003505277. 

KiBSUBO:  Double  precision  constant  stored  as  6.512013939  E-2,  scaled 
BO  in  units  of  revolutions.  Equation  value  6.512013939  E-2. 

(Equivalent  to  4.09161903  E-1. radians. ) 

K;carg:  Double  precision  constant,  stored  as  -0.011063410,  program  no- 
tation VAL67+14,  scaled  BO  and  unitless.  Equation  value:  -0.011063410. 

K:cmod:  Double  precision  constant  stored  as  0.005328507  x 2,  program 
notation  VAL67+12,  scaled  B-1  in  units  of  revolutions  per  radian. 
Equation  value:  0;005328507.  (Corresponds  to  2e  / 2ir  where  e 
is  the  mean  eccentricity  of  the  geocentric  solar  orbit  = 0.01674.) 

K:C0SI:  Double  precision  constant  stored  as  0.99964173  x 2 scaled 
B1  and  unitless.  Equation  value  0.99964173. 

-33 

K:CST0DAY:  Double  precision  constant  stored  as  8640000  x 2 , scaled 

B33  in  \mits  of  centiseconds.  Equation  value:  8640000. 

K:EE:  Double  precision  constant  stored  as  6.6935116  E-3,  scaled  BO 
and  unitless.  Equation  value:  6.6935116  E-3.  (Corresponds  to 
the  square  of  the  eccentricity  of  the  Fischer  elipsoid.) 

-29 

K:EilAD:  Double  precision  constant  stored  as  6373338  x 2 , scaled 

B29  in  units  of  meters.  Equation  value:  6373338.  (Corresponds 
to  the  pad  radius  on  the  earth. ) 

K:FD0T:  Double  precision  constant  stored  as  4.253263473  E-9  x 2^, 

scaled  B-27  in  units  of  revolutions  per  centisecond.  Equation  value: 
4.253263473  E-9.  (Equivalent  to  2.672404256  E-6  radians  per  second 
or  27.21  days  per  revolution . ) 

K:FSUB0:  Double  precision  constant  stored  as  8.290901511  E-1,  scaled 
BO  in  vuiits  of  revolutions.  Equation  value:  8.290901511  E-1. 
(Equivalent  to  5.209327056.) 
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K:gloktest:  Double  precision  constant  stored  as  0.1666666667,  scaled 
BO  in  iinits  of  revolutions.  Equation  value;  0.1666666667. 
(Equivalent  to  60  degrees.)  Program  notation  ".166...". 

KzKONMAT  : Double  precision  3x3  matrix,  scaled  B1  and  unitless. 

Used  to  transform  from  ecliptic  to  equatorial,  earth-centered 
coordinates.  Equation  value; 

1 0 o”] 

0 a b 

_0  c dj 

where  a = 0.91745,  b = -0.03571  (-0.39784  x 0.08976),  c = 0.39784 
and  d = 0.082354  (0.91745  x 0.08976).  The  quantities  0.39784  and 
0.91745  are  the  sine  and  cosine  respectively  of  23.444  degrees; 
0.08976  is  the  sine  of  5.150  degrees.  Note  that  the  factor  0.08976 
has  no  effect  on  the  transformation  of  the  sun's  position  vector 
and  is  actually  a parameter  of  the  lunar  orbit. 

K;lomo;  Double  precision  constant  stored  as  0.815282336,  program 
notation  RATESP+6,  scaled  BO  in  units  of  revolutions.  Equation 
value;  0.815282336.  (Corresponds  to  the  position  of  the  moon  in 
it's  orbit  at  July  1,  1969.) 

K;lomr;  Double  precision  constant  stored  as  0.03660098  x 2^,  program 
notation  RATESP,  scaled  B-4  in  units  of  revolutions  per  day. 
Equation  value;  0.03660098.  (Equivalent  to  1 revolution  per 
27.32167  days.  Corresponds  to  the  sidereal  period  of  the  moon.) 

K;lono;  A double  precision  constant  stored  as  0.986209499,  program 
notation  RATESP+10,  scaled  BO  in  units  of  revolutions.  Equation 
value;  0.986209499.  (Corresponds  to  the  position  of  the  mean 
ascending  node  of  the  lunar  orbit  on  the  ecliptic  at  July  1,  1969.) 

K;lonr;  Double  precision  constant  stored  as  -0.00014719  x 2^,  program 
notation  RATESP+4,  scaled  B-4  in  units  of  revolutions  per  day. 
Equation  value;  -0.00014719. 

K;loso;  Double  precision  constant  stored  as  0.274674910,  program 
notation  RATESP+8,  scaled  BO  in  units  of  revolutions.  Equation 
value;  0.274674910.  (Corresponds  to  the  position  of  the  sun  at 
July  1,  1969.) 

K:losr:  Double  precision  constant  stored  as  0.00273779  x 2^,  program 
notation  RATESP+2,  scaled  B-4  in  units  of  revolutions  per  day. 
Equation  value;  0.00273779.  (Equivalent  to  1 revolution  per 
365. 2581  days.  Corresponds  as  closely  to  the  sidereal  year  as  to 
the  anomalistic  year . ) 
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PjS 

K:NODDOT:  Double  precision  constant  stored  as  -1.703706190  E-11  x 2 , 

scaled  B-28  in  units  of  revolutions  per  centisecond.  Equation 
value:  -1.703706190  E-11.  (Equivalent  to-1. 070470170  E-8  radians 
per  second  or  18.600  years  per  revolution.) 

KrNODIO:  Double  precision  constant  stored  as  9*862094363  E-1,  scaled 
BO  in  units  of  revolutions.  Equation  value:  9.862094363  E-1. 
(Equivalent  to  6.196536640  radians.) 

KQTSN45!  Double  precision  constant  stored  as  0.1768,  scaled  B2  and 

iinitless.  Equation  value;  0.7072.  (Equivalent  to  the  sine  of  45  •) 

K;SINI:  Double  precision  constant  stored  as  0.02676579  x 2~^,  scaled 
B1  and  unitless.  Equation  value:  0.02676579. 

K:WEARTH:  Double  precision  constant  stored  as  1.160576171  E-7  x 2^^, 
scaled  B-23  in  units  of  revolutions  per  centisecond.  Equation  value; 
1.160576171  E-7.  (Equivalent  to  7.292115147  E-5  radians  par  second.) 

LAT;  Double  precision  geodetic  or  selenographic  latitude,  scaled  BO 
in  units  of  revolutions. 

LE504s  Double  precision  vector  to  account  for  precession  and  nutation 
of  the  earth’s  polar  axis  (the  deviation  of  the  true  pole  from 
the  mean  pole),  scaled  BO,  iinitless  and  expressed  in  reference 
coordinates;  used  in  an  approximate  transformation  from  reference 
to  time  equatorial  coordinates. 

^5045  Double  precision  vector  to  account  for  precession  and  nutation 
of  the  moon's  polar  axis  (the  deviation  of  the  true  pole  from  the 
mean  pole),  scaled  BO  in  units  of  radians  and  expressed  in  seleno- 
graphic coordinates;  an  approximation  most  accurate  at  the  nominal 
midpoint  of  a mission.  Program  notation  "5O4LM''. 

LC^G:  Double  precision  geodetic  or  selenographic  longitude,  scaled 
BO  in  units  of  revolutions. 

MN:  Double  precision  angle  in  the  ecliptic  plane,  measured  from  the 
earth-to-sun  vector  at  the  vernal  equinox  to  the  moon-to-sun  vector 
at  the  mean  descending  node  on  the  ecliptic  of  the  moon's  orbit 
around  the  earth.  Used  to  rotate  the  X-axis  in  the  ecliptic  plane. 

[mNMATi]  , [mNMAT^  , |mNMAT^  ; Three  double  precision,  3x3 > orthogonal 

transformation  matrices,  scaled  B1  and  unitless.  ^MAT^  in- 
corporates a rotation  around  the  X reference  axis  through  the  angle 
of  Inclination  of  the  earth's  polar  axis  followed  by  a rotation 
around  the  Z axis  (now  perpendicular  to  the  ecliptic)  through  the 
angle  to  the  descending  node  on  the  ecliptic  of  the  moon's  orbit 
around  the  earth.  [MNMAT2]  rotates  the  system  around  the  new  X 
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axis  through  the  angle  of  inclination  of  the  moon's  true  polar  axis. 
[MNMAT3]  completes  the  transformation  to  selenographic  coordinatfes 
by  rotating  around  the  moon's  polir  axis  from  the  descending  node  to 
the  present  position  relative  to  that  node. 

LMOONMAT]:  Double  precision,  3x3,  orthogonal  transformation  matrix, 

scaled  B1  and  unitless.  Asg  = [mOONMAT]  Aref  where  A is  a vector 
expressed  in  selenographic  and  reference  coordinates  respectively. 

MR:  Double  precision  angle  of  rotation  of  the  moon  around  its  true 

polar  axis,  scaled  BO  in  units  of  revolutions. 

[NBSMMAT]:  Double  precision,  3x3,  orthogonal  transformation  matrix, 

scaled  B1  and  unitless.  Asm  = [nBSMMAT]  Anb  where  A is  a vector 
expressed  in  stable  member  and  navigation  base  (body)  coordinates 
respectively. 

OGC,IGC,MGC:  Double  precision  commanded  glmbal  angles  scaled  BO  in 

units  of  revolutions  or  (equivalently)  scaled  B21  in  units  of  gyro 
torque  nulses  of  2“^^  revolutions  each. 

[REFSMMAT]:  Double  precision^  3x3  transformation  matrix,  scaled  B1 

and  unitless.  Defined  such  that  Asm  = [reFSMMAT]  Arf  where  A is 
a vector  expressed  in  stable  member  and  reference  coordinates 
respectively . 

RLS : See  CONG  section. 

SINIGA,  SINMGA,  SINOGA:  Double  precision  sines  of  the  inner,  middle 
and  outer  gimbal  angles  respectively,  scaled  B1  and  unitless. 

Program  notation  SINGDUq,  SINCDU2»  SINCDU^. 

SINTH:  Double . precision  sine,  scaled  B1  in  the  "ARCTAN"  routine 

and  B2  in  the  "ARCTRIG"  routine. 

FsMNBMAT]:  Double  precision,  3x3,  orthogonal  transformation  matrix, 
scaled  B1  and  unitless.  Anb  = [SMNBMAT]  Asm  where  A is  a vector 
expressed  in  navigation  base  (body)  and  stable  member  coordinates 
respectively . 

SIMP.  (1=0, 2, 4):  Three  double  precision  working  storage  registers 
in  "LSPOS"  scaled  BO  in  units  of  revolutions. 

TEPHEM:  Triple  precision  elapsed  time  between  July  1.0,  universal 

time  and  the  time  the  LGC  clock  is  zeroed,  scaled  B42  in  units  of 
centiseconds ; included  in  the  erasable  load. 

TKETA:  Double  precision  angle  computed  from  STNTH  and  COSTH,  scaled 
BO  in  units  of  revolutions. 

THETAD:  See  ATTM  section. 
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TSsun:  Double  precision  vector  contents  of  the  MPAC  when  return  from 
"LSPOS",  representing  the  unit  position  vector  of  the  sun,  scaled 
B1  and  tinitless. 

UNITW:  Double  precision  vector  which  gives  the  polar  axis  in  the  reference 
coordinate  system.  The  x component  (program  notation  "mATO")  gives  the 
true  to  mean  pole  rotation  about  the  -Y  axis";  the  y component  (program 
notation  "AXO")  gives  the  "true  to  moan  pole  rotation  about  the  ‘•’X  axis". 

VEC^,  Y^2’  'forking  storages  for  the  position  vectors  or  unit  position 
vectors  in  reference,  selenogi^phic,  or  geographic  coordinates. 

WOON,  VSDN:  Double  precision  unit  position  vectors  of  the  moon  and  sun, 
scaled  B1  and  unitless. 

XNB,  YNB,  ZNB  (HJBrf,  YNBrf,  ZNBrf;  XNBsm,  YNBsm,  ZNBsm):  Double  precision 
unit  vectors  along  the  X,  Y and  Z navigation  base  axes  (body  axis) 
respectively,  scaled  Bl,  unitless,  and  expressed  in  reference  or  stable 
member  coordinates. 

YSM,  ZSM  (ffiMrf,  YSMrf,  ZSMrf;  ^nb,  YSMnb,  ZSMnb):  Double  precision 
unit  vectors  along  the  X,  Y and  Z stable  member  axes  respectively, 
scaled  Bl,  unitless,  and  expressed  in  reference  or  navigation  base 
coordinates. 

KMD,  Y^iD,  ZSMD  (XSMDrf,  YSMDrf,  ZSMDrf):  Double  precision  unit  vectors 
along  the  desired  (directions  of  the  X,  Y and  Z stable  member,  scaled 
Bl,  unitless,  and  expressed  in  reference  coordinates. 

YNBSAV,  ZNBSAV:  Working  storages  for  the  YNB  and  ZNB  unit  vectors  in  moon 
fixed  coordinates. 
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DAPA 


DIGITAL  AUTOPILOT  CONTROL  ROUTINES 


T5RUPT  (Entered  on  program  interrupt  #2) 

Proceed  to  address  specified  in  T5ADR 
D0T6RUFT  (Entered  on  program  interrupt  #1 ) 

Perform  "T6J0BCHK" 

Resume 

T6J0BCHK  If  TIME6  < 0 or  TIME6  = +0,  proceed  to  "CCSHOLE" 

If  TIMES  > 0,  return 
i = NXT6AXIS 
TIMES  = TSNEXTTMq 
NXTSAXIS  = TSNEXTAX^ 

TSNEXTTMq  = TSNEXTTM^ 

TSNEXTAX^  = TSNEXTAX^ 

TSNEXTTM^  = Krposmaxsp 
TSNEXTAX^  = 0 

Perform  "C13STALL"  protecting  the  L and  Q registers 
If  TIMES  > K:TSlim,  TIMES  = K:posmaxsp 
If  TIMES  K-.TSlim: 

Switch  bit  15  of  channel  13  to  1 (enable  TIMES  counter) 

If  TSNEXTTMq  > K:TSlim,  TSNEXTTM^  = K:posmaxsp 
If  i = 0,  perform  "WRITEP"  with  TS  = NEXTP 
If  i = 4,  perform  "WRITEU"  with  TS  = NEXTU 
If  i = 13,  perform  "WRITEV"  with  TS  = NEXTV 
Return 
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JTLST 


TS  = TIME6 


If  T6NEXTTM2  < TS:  (new  jet  time  shorter  than  smallest 

remaining  jet-on  time  ) 

TSt  = TS  - T6NEXTTM2 
TSa  = NXT6AXIS 
TIME6  = T6NEXTTM2 
NXT6AXIS  = T6NEXTAX^ 

T6NEXTTM2  = T6NEXTTMq 
T6NEXTAX^  = T6NEXTAX^ 

T6NEXTTM^  = TSt 
T6NEXTAX^  = TSa 
Perform  "CI3STALL" 

Switch  bit  15  of  channel  13  to  1 (Enable  TIME6  counter) 
Return 

TS  = TS  + T6NEXTTMq 

If  T6NEXTTM2  < TS:  (New  jet  time  shorter  than  second  remaining 

jet-on  time  in  list) 

TSt  = TS  - T6NEXTTM2 

TSa  = T6NEXTAX^ 

T6NEXTTMq  = TbNEXTTM^  - TIME6 

T6NEXTAX^  = T6NEXTAX^ 

T5NEXTTM  = TSt 
2 

T6NEXTAX^  = TSa 
Return 

T6NEXTTM  = T6NEXTTM  - TS  (New  time  is  longest) 

2 2 

Rettirn 
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DAPIDLER 


MOREIDLE 


CHEKBITS 


ALTDSPLY 


If  RCSFLAGS  bit  13  = 0: 

Switch  RCSFLAGS  bit  13  to  1 

Establish  "I/ACCSET"  (pr  27) 

Perform  "CHEKBITS" 

If  DAPBOOLS  bit  3 (ACCSOKAY)  = 1: 

Proceed  to  "STARTDAP" 

Perform  "QERRCALC" 

Perform  "CALCPERR" 

T5ADR  = "DAPIDLER" 

NEXTP,  NEXTU  and  NEXTV  = OOOOOg 

Switch  channels  5 and  6 to  OOOOOg  (all  jets  off) 

Switch  bits  12-9  of  channel  12  to  0 (gimbal  drive  bits) 

Set  TIME5  to  cause  program  interrupt  #2  in  100  milliseconds 
Resme 

If  bits  13  and  14  of  channel  31  both  = 1: 

Proceed  to  "MOREIDLE"  (No  longer  in  Held  or  Auto  mode) 

If  IMODES33  bit  6 = 1:  (Internal  DAP  disable) 

Switch  RCSFLAGS  bit  3 (DSTEPONE)  to  1 
Proceed  to  third  step  of  "MOREIDLE" 

Perform  "ALTDSPLY" 

If  channel  30  bit  10  = 1,  Proceed  to  "MOREIDLE" 

Return 

Invert  RCSFLAGS  bit  4 (DSPLYALT) 

If  RCSFLAGS  bit  4 (DSPLYALT)  = 1,  proceed  to  "NEEDLER" 

If  FLAGWRDO  bit  15  (NEED2FLG)  = 1: 

AK  = - (OMEGAP,  OMEGAQ,  OMEGAR) 

\ 

Return 


DAPA  - 3 


NEEDLER 


If  FLAGWRDO  bit  4 (NEEDLFLG)  = 1: 

TStheta  = IHETAD  - GDU 

y y 

TSpsi  = THETAD  - GDU 
z z 

AK  = M21  TStheta  + M22  TSpsi 

y 

AK^  = M31  TStheta  + V02  TSpsi 
TSphi  = THETAD^  - CDU^  (converted  to  one's  comp  form) 

AK^  = Mil  TStheta  + TSphi  (limited  to  within  t 

If  FLAGWRDO  bit  4 (NEEDLFLG)  =0,  AK  = -(PERROR,  QERROR,  RERROR) 
Return 


(converted  to  one's  comp  form) 
(similarly  converted) 

(limited  within  t ■^) 
(limited  within  i ■^) 


If  RGSFLAGS  bit  3 (DSTEPONE)  = 1 : 

Switch  bit  6 of  channel  12  to  0 (Reset  IGDU  Error  Gounter 

enable  discrete) 

AK  = 0 (-0) 


EDRIVE  =0  (-0) 

GDU^GMD  = 0 for  1 = x,  y,  z 


(-0) 


Switch  RGSFLAGS  bit  3 (DSTEPONE)  to  0 
Switch  RGSFLAGS  bit  2 (DSTEPWO)  to  1 
Return 

If  RGSFLAGS  bit  2 (DSTEPTWO)  = 1 : 

Switch  bit  6 of  channel  12  to  1 

Switch  RGSFLAGS  bits  2 (DSTEPTWO)  and  3 (DSTEPONE)  to  0 
Return 

If  bit  6 of  channel  12=0:  (IGDU  Error  Gounters  have  been 

disabled) 

Switch  RGSFLAGS  bit  3 (DSTEPONE)  to  1 
Return 
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NEEDLES  Perform  the  indented  steps  for  i = z,  then  y,  then  x 


STARTDAP 


TS  = - AK.  KrONETENTH 
1 

If  |TS1  i.  Kreclim,  TS  = K:eclim  signTS 

CDU.CMD  = CDU.CMD  + Krtrvtoc  (TS  - EDRIVE.) 

11  1 

EDRIVE.  = TS 
1 

Switch  bits  13,  14  and  15  of  channel  14  to  1 (send  CDU^CMD's) 

Return 

Perform  "ZATTEROR" 

TJq,  TJ.|,  and  TJ2  = 0 

OMEGAP,  OMEGAQ,  and  OMEGAR  = 0 

TRAPEDP,  TRAPEDQ,  and  TRAPEDR  = 0 

AOSQ  and  AOSR  = 0 

ALPHAQ  and  AIPHAR  = 0 

NEGUq  and  NEGU^  = 0 

AOSQTERM  and  AOSRTERM  = 0 

QACCDOT  and  RACCDOT  = 0 

ALLOWGTS  = 0 

COTROLER  = 0 

INGTS  = 0 

QGIMTIMR  and  RGIMTIMR  = 0 
OLDPMIN  and  OLDQEIMIN  = 0 
PJETCTR^  =0  (i  = 1,2,3) 

Switch  RCSFLAGS  bits  1,5,10,11  to  0 
OLDXFORP  = CDU 

X 

OLDYFORP  = CDU 

y 

OLDZFORQ  = CDU 

z 

Switch  RCSFLAGS  bit  12  to  1 
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PAXIS 

I 


RATELOOP 


SKIPUV^  and  SKIPUV^  = 4 
TIME6  = Kiposraaxsp 

T6NEXTTMq  and  T6NEXTTM2  = K:posmaxsp 
T6NEXTAX^  and  T6NEXTAX^  = 0 
NXT6AXIS  = 0 

NEXTP,  NEXTU,  and  NEXTV  = OOOOOg 
DAPZRUPT  = -10 

NPTRAPS,  NQTRAPS  and  NRTRAPS  = 2 
T5ADR  = "PAXIS” 

Set  TIME5  to  cause  program  interrupt  #2  in  100  milliseconds 
Resume 

Set  TIME5  to  cause  program  interrupt  #2  in  (IOO  - TIME5)  milliseconds 

If  DAPZRUPT  > 0,  proceed  to  "BAILXDUT"  with  TS  = 32000 g 
(previous  DAP  cycle  still  in  progress) 

Perform  "CHEKBITS" 

CDUiTMP  = CDUi  (i  = x,y,z) 

CDUD  = CDUD  - PLCDU 

TCP  = TCP  - 1 

TCQR  = TCQR  - 1 

Proceed  to  "PAXFILT" 

i = 2 

TSq  = 2 i 

If  TJ.  = 0,  TSt  = 0 

If  TJ.  i-  0: 

1 

If  |TJ^|  < K:100msT6: 

TSt  = K:T6tosec  TJ. 

1 

TJ.  = 0 
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(If  TJ^  i-  0) 

If  iTJ^l  > K:100msT6; 

TJ^  = TJ^  - K:100insT6  signTJ^^ 

TSt  = K:01secB0  slgnTJ^ 

TS^  = TSt  NUMJETS^ 

TSdnln  = K;BIT10  TS^ 

If  TSdnln  <0: 

TSdnln  = -TSdnln 
TSq  = TSq  + 1 

DOWNTORK^g^  = DOWNTORK^g^  + TSdnln 
If  i >0; 

i = i - 1 

Proceed  to  2nd  step  of  "RATELOOP" 

JETRATER  = 1JACCR  (TS^  + TS2) 

JETRATEQ  = 1JACCQ  (TS^  - TS2) 

BACKP  JETRATEP  = 1JACCP  TSq 
TS  = CDUxTMP 

TSx  = TS  - OLDXFORP  (converted  to  one's  complement  form) 

OLDXFORP  = TS 

TRAPEDP  = TRAPEDP  - i JETRATEP 

TRAPEDQ  = TRAPEDQ  - i (JETRATEQ  + AOSQTERM) 

TRAPEDR  = TRAPEDR  - i (JETRATER  + AOSRTERM) 

TS  = CDUyTMP 

TSy  = TS  - OLDYEORP  (converted  to  one's  con^jlement  form) 

OLDYFORP  = TS 
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MEASRATE  = (TSx  + Mil  TSy)  / K:1d40  (limited) 

TRAPEDP  = TRAPEDP  + MEASRATE  - OMEGAP  (limited) 

DXERROR  = DXERROR  + (Mil  TSy  + TSx)  - K:1d40  PLAST 
TS  = CDUzTMP 


TSz  - TS  - OLDZFORQ  (converted  to  one’s  complement  form) 

OLDZFORQ  = TS 

MEASRATE  = (M21  TSy  + M22  TSz)  / K:1d40  (limited) 

TRAPEDQ  = TRAPEDQ  + MEASRATE  - OMEGAQ  (limited) 

DYERROR  = DYERROR  + (M21  TSy  + M22  TSz)  - K:1d40  QLAST 
MEASRATE  = (M31  TSy  + M32  TSz)  / K:1d40  (limited) 

TRAPEDR  = TRAPEDR  + MEASRATE  - OMEGAR 
DZERROR  = DZERROR  + (M31  TSy  + M32  TSz)  - K:1d40  RLAST 
If  DAPBOOLS  bit  13  (CSMDOCKD)  = 1: 


n = DKOMEGAN 
na  = DKKAOSN 


TRAPS IZE  = DKTRAP 
If  DAPBOOLS  bit  13  (CSMDOCKD)  = 0: 
n = LMOMEGAN 
na  = LMKAOSN 


TRAPS IZE  = LMTRAP 
If  |TRAPEDP|  > - TRAPS IZE: 

OMEGAP  = OMEGAP  + TRAPEDP  / NPTRAPS  (limited) 

TRAPEDP  = 0 
NPTRAPS  = n 
NPTRAPS  = NPTRAPS  + 1 
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OMEGAP  = OMEGA.P  + JETRATEP 


(limited) 


If  ITRAPEDQI  > - TRAPSIZE; 

QKALERR  = TRAPEDQ  / NQTRAPS 
TRAPEDQ  = 0 

OMEGAQ  = OMEGAQ  + QKALERR 

AOSQ  = AOSQ  + K:1d100ms  QKALERR  / (NQTRAPS  + 
NQTRAPS  = n 
NQTRAPS  = NQTRAPS  + 1 
OMEGAQ  = OMEGAQ  + JETRATEQ  + AOSQTERM 
If  ITRAPEDRI  > - TRAPSIZE; 

RKALERR  = TRAPEDR  / NRTRAPS 
TRAPEDR  = 0 

OMEGAR  = OMEGAR  + RKALERR 

AOSR  = AOSR  + KrIdlOOms  RKALERR  / (NRTRAPS  + 
NRTRAPS  = n 
NRTRAPS  = NRTRAPS  + 1 
OMEGAR  = OMEGAR  + JETRATER  + AOSRTERM 
If  DAPBOOLS  bit  8 (DRIFTBIT)  = 1 ; 

ALPHAQ  and  ALPHAR  = 0 
AOSQTERM  and  AOSRTERM  = 0 
AOSQ  and  AOSR  = 0 
If  DAPBOOLS  bit  8 (DRIFTBIT)  = 0 : 

AOSQ  = AOSQ  + K;GALLCODE  QAGCDOT 

ALPHAQ  = AOSQ 

AOSQTERM  = Ktaosint  AOSQ 


(limited) 

na) 

(limited) 


(limited) 

na) 

(limited) 


(sp) 
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PAXFILT 


SUFERJOB 


(If  DAPBOOLS  bit  8 (DRIFTBIT)  = O) 

AOSR  = AOSR  + K:CALLCODE  RACCDOT 
ALPHAR  = AOSR 
AOSRTERM  = K:aosint  AOSR 
Proceed  to  2nd  line  of  "SUPERJOB" 

The  following  coding  causes  the  "Resume"  instruction  to 
resume  operations  at  "SUPERJOB"  instead  of  at  the  job  that 
was  interrupted 

If  RCSFLAGS  bit  5 (CALLGMBL)  =1: 

Perform  "ACDT+C12" 

DAPARUPT  = ARUPT^ 
dp 

DAPBQRPT  = BRUPT 
DAPBQRPT  +1  = QRUPT 
DAPZRUPT  = ZRUPT 

BRUPT  = Instruction  stored  at  location  SUPERJOB 

ZRUPT  = Address  of  SUPERJOB  + 1 

Resume 

The  purpose  of  this  tmusual  manipulation  of  the  "Resume" 
instruction  is  to  establish  "SUPERJOB"  on  a time-critical 
basis — immediately — while  still  allowing  it  to  be  interrupted 
by  tasks  and  other  interrupts. 

Proceed  to  "RATELOOP" 

If  QGIMTIMR  = 0: 

NEGUq  = 0 

Q/iCCDOT  = 0 

Switch  bits  9 and  10  of  channel  12  to  0 (Q  GTS  drives) 
QGIMTIMR  = - Kiposmaxsp 
If  QGIMTIMR  > 0: 

QGIMTIMR  = QGIMTIMR  - 1 
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If  RGIMTIMR  = 0: 


SKIPPAXS 


CHKVISFZ 


TRYUORV 


NEGU^  = 0 
RACCDOT  = 0 

Switch  bits  11  and  12  of  channel  12  to  0 (R  GTS  drives) 
RGIMTIMR  = - Ktposmaxsp 
If  RGIMTIMR  > 0: 

RGIMTIMR  = RGIMTIMR  - 1 

PJETCTR^  = PJETCTR^  - 1 signPJETCTR^  ■ (i  = 1,2,3)  (zero  unchanged) 
If  RCSFIAGS  bit  12  = 1,  proceed  to  "CHKVISFZ" 

Switch  RCSFIAGS  bit  12  to  1 
Proceed  to  "QRAXIS" 

TS  = - contents  of  channel  31  (all  bits  complemented) 

If  bits  9-12  of  TS  all  = 0: 

TS  = OOOOOg 
Proceed  to  "TSNEXTP" 

i = bits  9-12  of  TS  shifted  right  8 to  bit  positions  1-4 

ROTINDEX  = KrINDXYZ.  (if  somehow  i is  illegal,  proceed  to 

^ two  steps  before  "TSNEXTP") 

NUMBERT  = 6 

Perform  "SELECTP"  with  i = NUMBERT 

If  NUMBERT  = 6:  (required  jets  are  all  available) 

TS  = POLYTEMP 
Proceed  to  "TSNEXTP" 

If  ROTINDEX  < 5:  (Principal  axis  translation  cannot  be 

accomplished  because  of  jet  failure;  try  tacking  along 
an  appropriate  U or  V axis) 

TS  = OOOOOg 

Invert  RCSFIAGS  bit  1 

If  RCSFIAGS  bit  1 = 1 , TS  = 00001 g 
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(If  ROTINDEX  < 5) 


ROTINDEX  = ROTINDEX  + TS  + 4 
Proceed  to  "TRYUORV" 

If  NUMBER!  ^ 4 (One  combination  of  jets  is  available  to 

acconpllsh  a U or  V axis  translation) 


TS  = POLYTEMP 
Proceed  to  "TSNEXTP" 

Perform  "ALARM"  with  TS  = 02001 g 
Invert  RCSELAffi  bit  1 
TS  = OOOOOg 
TSNEXTP  NEXTP  = TS 

If  bit  13  of  channel  31  = 1 and  DAPBOOLS  bit  9 (XOVINHIB)  = 1: 

Proceed  to  "PURffiNCY"  (Auto  with  X-axis  override  disabled) 
If  bit  13  of  channel  31  = 1 or  DAPBOOLS  bit  15  (PULSES)  = 0: 


Proceed  to  "DETENTCK"  (Minimum  impulse  not  allowed  or 

not  specified  by  DAPBOOLS) 

(otherwise,  minimum  impulse  mode) 

PERROR  = 0 

CDUD  = CDU 

X X 

If  OLDPMIN  > 0:  (not  returned  to  detent  since  jets  fired) 

TS  = - contents  of  channel  31  (all  bits  complemented) 


OLDPMIN  = bits  3 and  4 of  TS 


Proceed  to  "JETSOFF" 

(otherwise,  OLDPMIN  = 0,  indication  that  no  yaw  commands  were 
present  during  last  DAP  cycle) 

If  bits  3 and  4 of  channel  31  both  =1,  proceed  to  "JETSOFF" 
If  bit  4 of  channel  31  = 0,  TJq  = - K:minlmptj  (-P) 
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ZEROENBL 


DETENTCK 


If  bit  3 of  channel  31  = 0,  TJ^  = K:minimptj  ("^P) 

OLDPMIN  = 1 
NUMBER!  = 4 

If  FLAGWRD5  bit  5 (AORBSFLG)  = 1,  NUMBER!  = 5 

Proceed  to  "PJE!SLEC" 

SAVEHANDq  = RHCQ 

SAVEHAND,  = RHCR 
1 

RHCP,  RHCQ,  and  RHCR  = 0 

Perform  ''C13S!ALL"  with  interrupts  inhibited 

Switch  bits  8 and  9 of  channel  13  to  1 

( Start  RHC  read  and  enable  RHC  counters ) 

Return 


!S  , = channel  31 

ch31 

If  bit  15  = 1 and  DAPBOOLS  bit  12  (OURRCBI!)  = 0 

Proceed  to  "PURGENCY" 


If  !S 


If  !S 


bit  15  = 0 and  DAPBOOLS  bit  12  (OURRCBI!)  = 1 

ch3l 

Proceed  to  "RA!ERR0R" 

bit  15  = 0 and  DAPBOOLS  bit  12  (OURRCBI!)  = 0 

ch3l 

PERROR  = 0 

Switch  DAPBOOLS  bit  12  (OURRCBI!)  to  1 
DXERROR^  = 0 

dp 

DYERROR^  = 0 
dp 

DZERROR^  = 0 
dp 

PLAS!  = 0 
QLAS!  = 0 


RLAS!  = 0 


RHCQ  = 0 
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(If  TS^^3-,  bit  15  = 0 and  DAPBOOLS  bit  12  (OURRCBIT)  = 0) 
RHCR  = 0 

Switch  RCSFLAGS  bits  10  and  11  to  0 
Switch  RCSFLAGS  bit  9 to  1 
Perform  "ZEROENBL" 

Proceed  to  "JETSOFF" 

If  bit  15  = 1 and  DAPBOOLS  bit  12  (OURRCBIT)  = 1: 

If  RCSFLAGS  bit  9 (JUSTIN)  = 1; 

If .channel  31  bit  13  = 0,  proceed  to  "RATEDAMP" 
Switch  RCSFLAGS  bits  9 & 11  (JUSTIN  & QRBIT)  to  0 
Proceed  to  "RATEDAMP" 

If  RCSFLAGS  bit  10  (PBIT)  = 1,  proceed  to  "RATEDAMP" 

If  RCSFLAGS  bit  11  (QRBIT)  = 1,  proceed  to  "RATEDAMP" 
Switch  DAPBOOLS  bit  12  (OURRCBIT)  to  0 
If  channel  31  bit  13  = 1: 

CDUD  = GDU 

X X 

Proceed  to  "PUR(ENCY" 

Perform  "ZATTEROR" 

Proceed  to  "PURfflNCY" 

RATERROR  CDUD  = CDU 

X X 

TSp  = PLAST 

PLAST  = STIKSENS  (RHCP  |RHCP|  + KrLINRAT  RHCP) 

TS1  = PLAST  - TSp 
Perform  "ZEROENBL" 

EDOT  = OMEGAP  - PLAST 
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If  |TS1|  > RATEDB; 
TCP  = K:40cyc 


RATEDAMP 


PEGI 


Proceed  to  "PEGI" 

If  RCSFLAGS  bit  10  (PBIT)  = 1,  proceed  to  "PEGI" 

E = DXERROR 
PERROR  = DXERROR 

Proceed  to  third  line  of  "PURCENCY" 

RHCP  = 0 

Proceed  to  "RATERROR" 

CDUD  = CDU 

X X 

DXERROR,  = 0 
dp 

PERROR  = 0 
ABSEDOTP  = lEDOTl 

If  ABSEDOTP  > RATEDB  and  if  TCP  > 0: 

Switch  RCSFLAGS  bit  10  (PBIT)  to  1 
Skip  next  step 

Switch  RCSFLAGS  bit  10  (PBIT)  to  0 

TJq  = - K:25B5  EDOT  IdANETP  (limited) 

If  ABSEDOTP  > 2JETLIM: 

NUMBERT  = 6 
Proceed  to  "PJETSLEC" 

TJq  = 2 TJq 
NUMBERT  = 4 

If  FLAGWRD5  bit  5 (AORBSFLG ) = 1 , NUMBERT  = 5 
Proceed  to  "PJETSLEC" 
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CALCPERR 


PURGENCY 


PJETSLEC 


E = Mil  (CDU  - CDUD  ) 

J 7 

E = E + CDU  - CDUD  + DELPEROR 

X X 

PERROR  = E 
Retiirn 

Perform  "CALCPERR" 

EDOT  = OMEGAP  - OMEGAPD 
AXISCTR  = -1 

If  DAPBOOLS  bit  13  (CSMDOCKD)  = 1; 

Perform  "SPSRCS"  with  interrupts  inhibited 
If  TJq  = 0: 

Invert  FLAGWRD5  bit  5 (AORBSFLG) 

Proceed  to  "JETSOFF" 

NUMBERT  = 4 

If  FLAGWRD5  bit  5 (AORBSFLG)  = 1,  NUMBERT  = 5 
Proceed  to  "PJETSLEC" 

SENSETYP  = 0 

Perform  "TJETLAW"  with  interrupts  inhibited 
NUMBERT  = 6 

If  FIREFCT  > K:mFOURDEG  or  if  |tJq|  < K:l60msT6: 
NUMBERT  = 4 

If  FLAGWRD5  bit  5 (AORBSFLG)  = 1,  NUMBERT  = 5 
TS  = 1 

If  TJq  = 0,  proceed  to  "JETSOFF" 

If  TJq  < 0,  TS  = 0 
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I 


ABSTJ  = ItJqI 
ROTINDEX  = TS 

Perform  "SELECTP"  with  i = 6 

If  NUMBERT  =6,  TS  = 4 (jets  all  available  for  4-Jet  rotation) 
If  NUMBERT  ^6,  TS  = 2 
NUMJETSq  = TS 

Perform  "WRITEP"  with  TS  = POLYTEMP  (turn  on  rotation) 

If  ABSTJ  > K;150msT6,  proceed  to  "QRAXIS" 

If  ABSTJ  c K;150msT6  - K:136msT6: 

ABSTJ  = K:150msT6  - K:136msT6 
TJq  = K;MINTIMES  signTJQ 
Inhibit  interrupts 
TeNEXTIT/^  = ABSTJ 

TbNEXTAX^  =0  (0  indicates  P-axis) 

Perform  "JTLST" 

Switch  RCSFLAGS  bit  12  to  0 
Invert  FLAGWRD5  bit  5 (AORBSELG ) 

Release  interrupt  inhibit 
Proceed  to  "QRAXIS" 


JETSOFF  Perform  "WRITEP"  with  TS  = NEXTP 
TJq  = 0 

Proceed  to  "QRAXIS" 

WRITEP  Set  bits  1-8  of  channel  6 = bits  1-8  of  TS 
Return 


SELECTP 


TSa  KzquadsPjjy^gj^^ 
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(logic  "and"  function) 


ISb  = 

POLYTEMP  = TSa  /\  TSb 


If  any  of  the  binary  bits  that  are  1 in  POLYTEMP  are  also 
1 in  CH6MASK  (at  least  one  of  the  required  jets  has  been  failed) 

If  i = 0;  (i  cannot  be  zero  in  selection  of 
translation  jets) 

Perform  "ALARM"  with  TS  = 02003g  (rotation  failure) 
Proceed  to  "JETSOFP' 
i = i - 1 


NUMBERT.=  1 


Proceed  to  "SELECTP" 


Return 

PRAXIS  EDOTR  = OMEGAR  - OMEGARD  (limited) 

EDOTQ  = OMEGAQ  - OMEGAQD  (limited) 

If  channel  31  bit  13  = 0: 

If  DAPBOOLS  bit  12  (OURRCBIT)  = 1,  skip  next  step 
Perform  "QERRCALC" 

If  COTROLER  = 0,  proceed  to  "TRY GTS" 

If  COTROLER  > 0,  proceed  to  "GTS" 

Proceed  to  "RCS" 


QERRCALC  TSy  = CDU  - CDUD 

^ ^ (converted  to  one's  con?),  form) 

TSz  = CDU  - CDUD 
z z 

QERROR  = M21  TSy  + M22  TSz  + DELQEROR 
RERROR  = M31  TSy  + M32  TSz  + DELREROR 
Return 

RCS  COTROLER  = 0 
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+xoRUL(a: 


OMEGAU  = - COEFFQ  EDOTQ  + GOEFFR  EDOTR 
OMEGAV  = COEFFQ  EDOTQ  + GOEFFR  EDOTR 
If  channel  31  hit  7=0; 

TS  = 5 

Proceed  to  "+XORULGE" 

If  channel  31  bit  8=0; 

TS  = 4 

Proceed  to  "+X0RULGE" 

If  DAPBOOLS  bit  6 (ULLAGER)  = 1 : 

TS  = 5 

Proceed  to  "+XORTrLGE" 

NEXTU  = 0 
NEXTV  = 0 

If  DAPBOOLS  bit  8 (DRIFTBIT)  = 1: 

SENSETYP  = 0 

Proceed  to  3rd  step  of  "TSNEXTS" 

SENSETYP  = 0 

If  FLGWRD10  bit  13  (APSFLAG)  = 1,  SENSETYP  = 2 
Proceed  to  3rd  step  of  "TSNEXTS" 

ROTINDEX  = TS 

SENSETYP  = ROTINDEX  - 3 

If  DAPBOOLS  bit  11  (4JTXTRAN)  = 1: 

TS1  = 4 and  skip  next  3 steps 
If  DAPBOOLS  bit  10  (AORBTRAN)  = 1; 

TS1  = 3 and  skip  next  step 
TS1  = 2 


(limited) 
( limited ) 
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NUMBERT  = TS1 


TSNEXTS 


Perform  "SELCTSUB" 

If  POLYTEMP  > 0,  proceed  to  "TSNEXTS" 

Perform  "ALARM"  vlth  TS  = 02002g 
NEXTU  = bits  8,7,  4 and  3 of  POLYTEMP 
NEXTV  = bits  6,5,2  and  1 of  POLYTEMP 

(Note  that  translation  codes  in  NEXTU  and  NEXTV  may  not  be 
Implemented  at  the  same  time,  but  each  cell  contains  codes  for  a 
jet  pair  on  diagonally  opposite  quads.) 

If  channel  31  bit  13  = 1,  proceed  to  "ATTSTEER" 

If  DAPBOOLS  bit  15  (PULSES)  = 0,  proceed  to  "CHEKSTIK" 

(otherwise,  minimum  impulse) 

Perform  "ZATTEROR"  with  interrupts  inhibited 

QERROR  = 0 

RERROR  = 0 

TS  = - contents  of  channel  31  (all  bits  conplemented) 

If  OLDQRMIN  > 0;  (not  returned  to  detent  since  jets  fired) 
OLDQRMIN  = bits  1,2,5  and  6 of  TS  (+Q,  -Q,  +R,  -R) 
Proceed  to  "XTRANS" 

(Otherwise,  OLDQRMIN  = 0,  indication  that  no  Q or  R commands 
were  present  during  the  last  DAP  cycle) 

If  bits  1,2,5  and  6 of  TS  all  = 0,  proceed  to  "XTRANS" 

If  bit  1 of  TS  = 1 : ( +0) 

TJ^  = K:pTJMINT6  (u) 

TJg  = - K;pTJMINT6  (V) 

Proceed  to  "MINQR" 
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If  bit  2 of  TS  = 1 : (-Q) 

TJ^  = - K:pTJMIWT6  (U) 

TJ2  = K:pTJMINT6  (V) 

Proceed  to  "MINQR" 

If  bit  5 of  TS  = 1:  (+R) 

TJ^  = K:pTJMINT6  (U) 

TJ^  = K:pTJMINT6  (V) 

Proceed  to  "MINQR" 

If  bit  6 of  TS  = 1;  (-R) 

TJ^  = - K:pTJMINT6  (U) 

TJ2  = - K:pTJMINT6  (V) 

MINQR  RETJADR  = "MINTRN" 


MINRTN 


OLDQRMIN  = 1 
AXISCTR  = 1 

If  DAP BOOLS  bit  13  (CSMDOCKD)  = 1: 

'^AXISCTR  ^^^'^'^AXISCTR  ^ = ^'^sT6 
NUMBER!  = 2 

If  DAPBOOLS  bit  10  (AORBTRAN)  = 1,  NUMBER!  = 3 
Proceed  to  "AFTERTJ" 


CHEKSTIK  INGTS  = 0 

COTROIER  = -1 


If  TS^^^^  bit  15  = 0,  proceed  to  "RHCACTIV" 
If  DAPBOOLS  bit  12  (OURRCBIT)  = 0: 


Proceed  to  "ATTSTEER" 

If  DAPBOOLS  bit  12  (OURRCBIT)  = 1: 


Switch  RCSFLAGS 


SAVEHAND, 


0 


0 


SAVEHAND^  = 0 


bit  9 to  0 


(TS  , was  loaded 
ch31 

in  "DETENTCK") 
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RHGACTIV  TSq  = QLAST 


ENTERUV 


QLAST  = STIKSENS  ( SAVEHAND^  |sAVEHANDq|  + KrLINRAT  SAVEHANDq) 
TS3  = QLAST  - TSq 
TSr  = BLAST 

BLAST  = STIKSENS  (SAVEHAND^  [SAVEHAND^I  + KtLINRAT  SAVEHAND^ ) 
TS4  = BLAST  - TSr 
QRATEDIF  = OMEGAQ  - QLAST 
BRATEDIF  = OMEGAR  - BLAST 

URATEDIF  = - COEFFQ  QBATEDIF  + COEFFR  BRATEDIF  (limited) 

VRATEDIF  = COEFFQ  QRATEDIF  + COEFFR  RRATEDIF  (limited) 

If  |TS3|  > RATEDB,  proceed  to  "ENTERUV" 

If  lTS4l  > RATEDB,  proceed  to  "ENTERUV" 

If  RCSFLAGS  bit  11  (QRBIT)  = 1: 

Proceed  to  2nd  step  of  "ENTERUV" 

Proceed  to  "ATTSTEER" 

TCQR  = K:40oyo 

Inhibit  interrupts 

Perform  "ZATTEROR" 

Release  interrupt  inhibit 

DYERROR,  = 0 
dp 

DZERROR,  = 0 
dp 

If  |URATEDIF|  < RATEDB; 

If  IVRATEDIFl  < RATEDB 

Proceed  to  "TOPSEUDO" 

URATEDIF  = 0 
Proceed  to  "QRTIME" 
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QRTIME 


TOPSEUDO 


BAGKHMD 


ATTSTEER 


If  [VRATEDIfI  < RATEDB; 

VRATEDIF  = 0 
If  TCQR  > 0; 

Switch  RCSFLAGS  bit  11  (QRBIT)  to  1 


Skip  next  step 


Switch  RCSFLAGS  bit  11  (QRBIT)  to  0 
RETJADR  = "BACKHAND" 


AXISCTR  = 1 
HUMBERT  = 4 


If  0; 

skipu^axisctr  " ^ 

If  AXISCTR  = 0,  proceed  to  "CLOSEOUT" 


AXISCTR  = AXISCTR  - 1 
Proceed  to  "BACKHAND" 

TS  = URATEDIF 

If  AXISCTR  = 1 , TS  = VRATEDIF 
i = 1 6 AXISCTR  + 2 
If  TS  > 0,  i = i + 1 

TSt  = - K:bksel  TS  IdANET. 


(2  or  18) 

(index  the  proper  2-jet  acceler- 
ation in  the  direction  of  desired 
acceleration) 


If  |TSt|  > Lrbklim,  TSt  = TSt  / 3 (still  > K:150msQR) 
i = AXISCTR  + 1 
TJ^  = TSt 


Proceed  to  "AFTERTJ" 


UERROR  = - COEFFQ  QERROR  + GOEFFR  RERROR  (limited) 

VERROR  = COEFFQ  QERROR  + COEFFR  RERROR  (limited) 
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TJLAW 


RETJADR  = "TJLAW4" 


AXISCTR  = 1 

TJLAW4  If  = 0: 

= 4 

If  AXISCTR  = 0,  proceed  to  "CLOSEOUT" 

AXISCTR  = AXISCTR  - 1 
Proceed  to  location  stored  in  RETJADR 
If  AXISCTR  = 1 : 

E = TERROR 
EDOT  = OMEGAV 
If  AXISCTR  = 0; 

E = UERROR 
EDOT  = OMEGAU 

If  DAPBOOLS  bit  13  (CSMDOCKD)  = 1: 

If  DAPBOOLS  bit  U (USEQRJTS)  = 0,  COTROLER  = 8191 
Perform  "SPSRCS"  with  interrupts  inhibited 
NUMBERT  = 4 
Proceed  to  "AFTERTJ" 

Perform  "TJETLAW" 

AFTERTJ  If  FLAGWRD5  bit  13  (SNUFFER)  = 0,  proceed  to  "DOROTAT" 

If  FLGWRD10  bit  13  (APSFLAG)  = 1,  proceed  to  "DOROTAT" 

If  DAPBOOLS  bit  8 (DRIFTBIT)  = 0,  proceed  to  "XTRANS" 

DOROTAT  i = AXISCTR  + 1 

If  TJ^  =0:  (no  rotation  command;  execute  trans  command) 

If  AXISCTR  = 1 : 

Perform  "WRITEV"  with  TS  = NEXTV 
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(If  AXISCTR  = 1 :) 

AXISCTR  = 0 

Proceed  to  address  specified  by  RETJADR 
Perform  "WRITEU"  with  TS  = NEXTU 
Proceed  to  "CLOSEOUT" 

TS  = 2 

If  TJ^  < 0,  TS  = 0 
ABSTJ  = [TJ^l 

ROTINDEX  = AXISCTR  + TS  (0,1, 2, 3) 

If  ABSTJ  > K:150msQR 
Perform  "SELCTSUB" 

If  AXISCTR  = 1 , perform  "WRITEV"  with  TS  = POLYTEMP 
If  AXISCTR  = 0,  perform  "WRITEU"  with  TS  = POLYTEMP 
Proceed  to  "FEEDBACK" 

If  ABSTJ  < K:pTJMINT6: 

ABSTJ  = K;pTJMINT6 

i = AXISCTR  + 1 

TJj^  = K;pTJMINT6  signTJ^^ 

NUMBERT  = 0 

If  bit  1 of  channel  4=1,  NUMBERT  = 1 

(Bit  1 of  channel  4 is  used  here  as  sort  of  a 
random  number  generator;  it  is  part  of  the  con^iuter 
clock  and  oscillates  at  a frequency  of  3200  pps.) 

If  SENSETYP  > 0,  NUMBERT  = SENSETYP  - 1 

Perform  "SELCTSUB" 

If  AXISCTR  = 1 , TS  = 1 3 

If  AXISCTR  = 0,  TS  ='4 
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Inhibit  interrupts 


TbNEXTAX^  = TS 

If  T6NEXTAX^  =13,  perform  "WRITEV"  with  TS  = POLYTEMP 
If  T6NEXTAX^  = 4,  perform  "WRITEU"  with  TS  = POLYTEMP 
T6NEXTTM2  = ABSTJ 
Perform  "JTLST" 


Release  interrupt  inhibit 

SKIPUV^yjgQipj^  = 0 (cause  this  axis  to  be  skipped  next  cycle) 


FEEDBACK  i = AXISGTR  + 1 


If  NUMBERT  > 3,  NUMJETS^  = 2 
If  NUMBERT  < 3,  NUMJETS^  = 1 
If  AXISGTR  = 0,  proceed  to  ."CLOSEOUT" 
AXISGTR  = AXISGTR  - 1 


Proceed  to  address  specified  in  RETJADR 
XTRANS  TJ^  = 0 

TJj  = 0 

Inhibit  interrupts 

If  SKIPUVq  ¥ 0,  perform  "WRITEU"  with  TS  = NEXTU 
SKIPUVq  = 4 

If  SKIPUVq  ¥ 0,  perform  "WRITEV"  with  TS  = NEXTV 
SKIPUVq  = 4 

Release  interrupt  inhibit 
Proceed  to  "CLOSEOUT" 

WRITEU  Set  bits  3,4,7  and  8 of  channel  5 = bits  3,4,7  and  8 of  TS 
Return 

WRITEV  Set  bits  1,2,5  and  6 of  channel  5 = bits  1,2,5  and  6 of  TS 
Return 
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SELCTSUB 


TSa  = KiquadsQR 

NUMBERT 

TSb  = 


POLYTEMP  = TSa  TSb 


(logic  "and"  function) 


If  any  of  the  binary  bits  that  are  1 in  POLYTEMP  are  also 
1 in  CH5MASK  (at  least  one  of  the  required  Jets  is  flagged 
as  failed): 


NUMBERT  = 3 
Proceed  to  "FAILOOP" 


Return 


FAttOOP  TSa  = KrquadsQRjj^^^ 

TSb  - KrtypmanQRj^Q^jjjj^g^ 

POLYTEMP  = TSa  a TSb  (logic  "and"  function) 

If  POLYTEMP  /A  CH5MASK  ^ OOOOOgt 
If  NUMBERT  =0; 

Perforin  "ALARM"  with  TS  = 02004g 
If  AXISCTR  = 0: 


TJ^  = 0 

Perform  "WRITEU"  with  TS  = NEXTU 
Proceed  to  "CLOSEOUT" 

TJ^  = 0 

Perform  "WRITEV"  with  TS  = NEXTV 
AXISCTR  = 0 

Proceed  to  address  specified  by  RETJADR 
NUMBERT  = NUMBERT  - 1 
Proceed  to  "FAILOOP" 

Return  (to  routine  that  called  "SELCTSUB") 

TRY GTS  If  DAPBOOLS  bit  14  (USEQRJTS)  = 1,  proceed  to  "RCS" 
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If  ALLOWGTS  = 0,  proceed  to  "RCS" 


If  channel  5 = OOOOOg,  proceed  to  "GTS" 

If  INGTS  = 0,  proceed  to  "RCS" 

Perform  "TIMEGMBL"  with  interrupts  inhibited 
INGTS  = 0 
Proceed  to  "RCS" 

GTS  COTROLER  = -1 

SKIPUVq  = 4 
SKIPUV^  = 4 
INGTS  = 2 
QGIMTIMR  ==  2 
RGIMTIMR  = 2 
QRCNTR  = 2 

TS^  = AOSR  (rescaled  to  B-3) 

WCENTRAL  = EDOTR 
ACENTRAL  = TS^. 

J-i 

KCENTRAL  = RDAPK 
If  KCENTRAL  = 0: 

K2THETA  = 0 
Proceed  to  "NEGUSUM" 

TS  = RERROR 

ILGORTHM  K2THETA  = KCENTRAL  TS 

If  ACENTRAL^  / 2 > KCENTRAL: 

A2CNTRAL  = K:posmax 
Skip  next  step 

A2CNTRAL  = ACENTRAL^  / (2  KCENTRAL) 

K2CNTRAL  = WCENTRAL  (rescaled  to  B3  ) 


( limited ) 
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RSTOFGTS 


NEGUSUM 


FUNCTION  = K2CNTRAL  + ACENTRAL  |aCENTRAl1  / 2 KCENTRAL 

DEL  = 1 signFUNCTION 

If  |fUNCTIOn|  < 2"^^,  DEL  = 0 

K2CNTRAL  = DEL  K2CNTRAL  + A2CNTRAL 

A2CNTRAL  = K2CNTRAL  - ACENTRAL^  / 6 KCENTRAL 

K2THETA  = K2THETA  + ACENTRAL  A2CNTRAL 

FUNCTION  = KCENTRAL  K2CNTRAL 

K2CNTRAL  = DEL  K2CNTRAL 

If  DEL  = 0,  proceed  to  "NEGUSUM" 

Perform  "GTSQRT" 

K2CNTRAL  = TS  ^ K2CNTRAL 
sqrt 

SHFTFLAG  = ININDEX  / 2 + SHFTFLAG 

TS  = K2CNTRAL 

K2THETA  = K2THETA  + TS 
’’^slgn  = sig»lf2™TA 
'“^QRGNTR  = I 

2p: 

If  K2THETA  < 2"  NEGU^^^^^j^  = 0 

If  TS  . <0:  (If  a reversal  of  gimbal  drive  direction 

is  called  for) 

Q^^'^^^Vcntr  = ° 

If  QRCNTR  > 0: 

Set  bits  11  & 12  of  channel  12  = 0 
Skip  next  step 

Set  bits  9 & 1 0 of  channel  12=0 

If  TS  . <0,  set  bit  5 of  RCSFIAGS  = 1 

sign 
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If  QRCNTR  = 2: 


CLOSEOUT 


QRCNTR  = 0 
WCENTRAL  = EDOTQ 

ACENTRAL  = AOSQ  (rescaled  to  B-3)  (limited) 

KCENTRAL  = QDAPK 
If  KCENTRAL  = 0: 

K2THETA  = 0 

Proceed  to  "NEGUSUM" 

TS  = QERROR 
Proceed  to  "ALGORTHM" 

The  following  equations  cause  the  "resume"  instruction  to 
rfesume  operations  at  the  job  whose  address  is  in  DAPZRUPT 
(thus  ending  a prolonged  semi -interrupt  of  that  job) 

ARUPT,  = DAPARUPT, 
dp  dp 

ERUPT  = DAPBQRUPT 

Q = DAPBQRUPT  +1 

ZRUPT,  = DAPZRUPT, 
dp  dp 

DAPZRUPT  = - Kiposmaxsp 
Resume 
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ACDT-fC12  QA.CCDOT  = - NEGU^  ACCDOTQ 
RACGDOT  = - NEGU2  ACCDOTR 
TS  = OOOOOg 

If  NEGUq  = 1,  switch  bit  10  of  TS  to  1 

If  NEGUq  = -1 , switch  bit  9 of  TS  to  1 

If  NEGU2  = 1»  switch  bit  12  of  TS  to  1 

If  NEGU  = -1,  switch  bit  11  of  TS  to  1 

2 

Set  bits  9-12  of  channel  12  = bits  9-12  of  TS 

Switch  bit  5 of  RCSFLAffi  to  0 

Return 


TIMEOffiL  ALLOWGTS  = 1 
NEGUg  = 0 


If  ACCDOTR  < 0 or  if  AOSR  = 0,  proceed  to  "TIMQGMBL" 
TS  = - K:0.4gts  AOSR 


NEGU2  = -1  slgnTS  (If  TS  = 0,  NEGU  will  be  zeroed  below) 

If  ITS  I ^ 2 ACCDOTR; 

RGIMTIMR  = K;0CT31 
ALLOWGTS  = 0 


Proceed  to  "TIMQOffiL" 

TSt  = ITSI  K:0CT00240  / ACCDOTR  (units  of  100  milliseconds) 
If  TSt  < K:gtstmln,  NEGU2  = 0 
If  TSt  > Ktgtstmin,  RGIMTIMR  = TSt 
TIMQQIBL  NEGUq  = 0 

If  ACCDOTQ  ^ 0 or  if  AOSQ  = 0,  proceed  to  "D0NEYET2" 


TS  = - K:0.4gts  AOSQ 


NEGUq  = -1 


slgnTS 
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D0NEYET2 

ALLCOAST 


ZATTEROR 

STOPRATE 


DAPT4S 


If  Its  I 2^  2 ACCDOTQ: 

QGIMTIMR  = K:OGT31 
ALLOW  GTS  = 0 
Proceed  to  "D0NEYET2" 

TSt  = |TSl  K;0CT00240  / ACCDOTQ  (units  of  100  miliiseconds) 
If  TSt  < K:gtstmln,  NEGUq  = 0 
If  TSt  2 Kigtstmin,  QGIMTIMR  = TSt 
Perform  "ACDT+C12" 

Return 

Perform  "STOPRATE” 

AOSQ  and  AOSR  = 0 

ALPHAQ  and  ALPHAR  = 0 

AOSQTERM  and  AOSRTERM  = 0 

Switch  DAPBOOLS  bit  8 (DRIFTBIT)  to  1 

Perform  "RESTORDB" 

Return 
CDUD  = CDU 

OMEGAPD,  OMEGAQD  and  OMEGARD  = 0 
D^ELGDU  = 0 

DELPEROR,  DELQEROR,  and  DELREROR  = 0 
Return 

(Entered  every  240  milliseconds  from  "T4RUPT";  also  called 
QPMATRIX.  This  calculates  the  gimbal  rate  to  body  rate  matrix) 

Mil  = sin  CDU 
sp  z 

COSMG  = cos  CDU 
sp  z 
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RGSMONIT 


VOFENED 


M22  = sin  CDU 
sp  X 

H31  = - COSMG  M22 

M32  = cos  CDU 
sp  X 

M21  = COSMG  M32 


Return 


(Entered  every  480  milliseconds  from  "T4RUPT",  also  called 
RCSMON) 


TS  = - contents  of  channel  32  (all  bits  complemented) 


TSq  = bits  1-8  of  TS  (RCS  thruster  fail  discretes) 


TS  = 00000. 

8 

For  i = 1,2,3,4»5,6,  7 and  8;  If  bit  1 of  TSq  ^ bit  i of 
PVALVEST,  switch  bit  i of  TS  to  1 

If  TS  = OOOOOg,  return  (no  change) 

For  1=8  through  1,  in  that  order,  examine  bit  1 of  TS;  upon 
finding  the  first  bit  that  is  a "1",  continue  at  next  step 
with  i = that  bit  number. 


If  bit  i of  PVALVEST  = 1 , proceed  to  "VOPENED" 
Switch  bit  of  GH5MASK  indicated  by  K;5FAILTAB^  to  1 
Switch  bit  of  CHbMASK  indicated  by  KtbFAILTAB^  to  1 
Switch  bit  i of  PVALVEST  to  1 
Establish  "I/aCCJOB" 


Cpr  27) 


Return 

Switch  bit  of  CH5MASK  indicated  by  K;5FAILTAB^  to  0 
Switch  bit  of  CH6MASK  indicated  by  K:6FAILTAB^  to  0 
Switch  bit  i of  PVALVEST  to  0 

Establish  "I/aCCJOB"  (pr27) 

Return 
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GTSQKT 


SCALLOOP 


If  FUNCTION  ^ 0: 

SHFTFLAG  = 0 

TS  . = 0 
sqrt 

Return 


(bad  argument  for  square  root) 


SHFTFLAG  = 0 
If  FUNCTION  < 2 
SHFTFLAG  = 7 


-20 


(most  significant  half  = O) 

FUNCTION  = FUNCTION  2“+  (operate  on  least  significant  half) 


>14 


ININDEX  = 12 

If  ^ _ FUNCTION  1 0; 

ININDEX  = ININDEX  - 2 
If  ININDEX  =0,  Skip  next  step 
Proceed  to  "SCALLOOP" 

TS  = FUNCTION  / 2 ^ ININDEX  (rescaled  for  square  root  accuracy) 


HALFARG  = TS  / 2 

TS  ^ = KiROOTF 
sqrt 

If  HALFARG  > i,  TS 


sqrt 


= 1 


TS  = i TS  + HALFARG  / TS  ^ 
sqrt  sqrt  sqrt 


(Newton  algorithm) 


TS  . = f TS 


sqrt 

TS  , = i TS 
sqrt 

Return 


, + HALFARG  / TS 
sqrt  sqrt 

+ HALFARG  / TS  , 
sqrt  sqrt 
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QUANTITIES  IN  COMPUTATIONS 


IdANET^  (i  = 2,3,18,19):  See  DAPB  section. 

IdANETP:  Single  precision  Inverse  of  the  acceleration  expected 
from  the  simultaneous  firing  of  two  P-axls  RCS  jets  scaled 
B8  in  units  of  seconds  squared  per  revolution. 

1 JACOB  , 1JACCQ,  1 JACCR:  See  DAPB  section. 

2JETLIM:  Single  precision  rate  limit  used  in  "PEGI"  to  decide 

if  two  or  four  jets  should  be  used  for  a P-axls  rotation, 
scaled  B-3  in  iinits  of  revolutions  per  second.  Actually- 
stored  as  a negative  quantity  with  the  program  notation 
-2Jl;iTLIM,  but  interpreted  in  this  document  as  positive. 

A2CNTRAL:  Double  precision  working  storage  for  trim  gimbal  control 

logic.  Using  the  notation  of  section  3 of  the  Luminary  GSOP  it 
first  contains  o<y2K  scaled  B3  with  units  rev/sec;  when  next 
used  it  contains  -aoj  + <xy3K  scaled  B3  with  units  revs/sec. 

ABSEDOTP:  Temporary  single  precision  storage  for  the  magnitude  of 

EDOT  in  "PEGI"  scaled  B-3  in  -units  of  revolutions  per  second. 
Actually  ABSEDOTP  = the  magnitude  of  EDOT  minus  one  least  incre- 
ment (not  compensated  for  CCS  instruction) 

ABSTJ:  Temporary  storage  for  the  magnitude  of  TJ. , scaled  BIO  in 
units  of  centiseconds. 

ACCDOTQ,  ACCDOTR:  See  DAPB  section. 

ACENTRAL:  Single  precision  working  storage  for  trim  gimbal  control 

logic.  Using  the  notation  of  section  3 of  the  L-uminary  GSOP  it 
contains  »<',  the  disturbing  acceleration  scaled  B-3  with  units  of 
revs/sec^. 

AK:  Single  precision  vector  containing  the  desired  setting  of  the 

FDAI  error  needles,  scaled  B-1  in  units  of  revolutions  for 
attitude  errors  and  B-3  in  units  of  revs/sec  for  rate  errors. 

ALLOWGTS:  A single  precision,  binary  switch  set  to  allow  entry  into 

the  Gimbal  Trim  System  attitude  control  law  if  other  conditions 
are  satisfied,  scaled  BI4  and  unitless. 

ALPHAQ,  ALPHAR:  Single  precision  storage  for  the  most  significant 
halves  of  AOSQ  and  AOSR  for  down  telemetry,  scaled  B-2  in 
units  of  revolutions  per  second  squared. 

AOSQ,  AOSR:  Double  precision  disturbing  acceleration  due  to  thrust 
vector/c.g.  offset  of  other  external  torques,  scaled  B-2  in 
units  of  revolutions  per  second  squared. 
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AOSQTERM  , AOSRTERM:  Single  precision  addition  to  vehicle  rate  that 
woud  be  added  during  one  100  millisecond  period  as  a result 
of  disturbing  accelerations,  scaled  B-3  in  units  of  revolutions 
per  second. 

ARUPT,  BRUPT,  ZRUPT , and  Q:  Special  cells  used  with  the  interrupt 

and  resume  instructions.  Q is  also  the  return  address  register. 

AXISCTR:  Single  precision  index  used  to  differentiate  among  the 

three  axes,  scaled  B14  and  unitless.  A value  of  1 corresponds 
to  the  V axis,  0 to  the  U axis  and  -1  to  the  P axis. 

CDU  (CDU  , CDU  , CDU  ):  Single  precision  vector  containing  the 
measured  Values  of  the  IMU  gimbal  angles  (outer,  inner  and 
middle  gimbal  in  X,Y  and  Z components,  respectively),  scaled 
B-1  in  units  of  revolutions  and  stored  in  two*s  complement  form. 

Each  component  is. an  LGC  input  counter  incremented  directly 
from  the  Coupling  Data  Unit  in  response  to  changes  in  the 
IMU  gimbal  angles. 

CDU  CMD,  CDU  CMD,  CDU  CMD:  See  IMUC  section. 

X ’ y ’ z 

CDUiTMP  (i  = x,y,z):  Single  precision  storage  locations  for  values 

of  CDU  , CDU  and  CDU  respectively.  Used  to  obtain  a synchronous 
sample  of  th^  CDU  values  for  rate  estimation. 

CDUD:  Single  precision  vector  interface  with  steering  and  attitude 

maneuver  routines  containing  the  desired  values  for  the  IMU 
gimbal  angles  (outer,  inner  and  middle  gimbal  angles  in  x,y  and  z 
components,  respectively),  scaled  B-1  in  imits  of  revolutions 
and  stored  in  two's  complement  form. 

CH5MASK,  CH6MASK:  Single  precision  octal  flagwords  whose  individual 
bits  (1  through  8 only)  are  set  to  indicate  jet  failures 
(in  "RCSMONIT").  See  description  of  K:5FAILTAB  and  K:6FAILTAB. 

COEFFQ:  Single  precision  negative  of  the  quantity  used  for  the  first 

column  of  the  matrix  taking  a vector  expressed  in  Q,R  coordinates  to 
one  expressed  in  the  non-orthogonal  U' , V'  coordinates.  Scaled  BO 
and  tinitless. 

COEFFR:  Single  precision  quantity  used  for  the  second  column  of  the 

matrix  taking  a vector  expressed  in  Q,  R coordinates  to  one  expressed 
in  the  non-orthogonal  U' , V coordinates.  Scaled  BO  and  unitless. 

COSMG:  Single  precision  cosine  of  middle  gimbal  angle,  scaled  BO 
and  unitless. 

COTROLER:  Single  precision  variable  cell  scaled  BI4  and  unitless 
controlling  access  to  the  Q,  R-axis  gimbal  trim  system. 
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DAPBOOLS:  Single  precision  flagword  whose  individual  bits  have  the 
following  meanings: 


Bit 

Mnemonic 

Meaning  when  set  ( 1 ) 

Meaning  when  clear  (O) 

15 

PULSES 

Minimiam  impulse 

Not  minimum  impulse 

command  mode 

14 

USEQRJTS 

GTS  not  allowed 

GTS  allowed 

13 

CSMDOCKD 

CSM  attached  to  IM 

CSM  not  attached 

Backup  SPS  DAP 

Normal  DAP 

12 

OURRCBIT 

Still  in  Rate  Command 

Not  in  Rate  Command 

Mode 

11 

ACC40R2X 

4- jet  P-axis  transla- 

2-jet  P-axis  translation 

tion  requested 

10 

AORBTRAN 

X-trans  B system 

X-trans  A system 

9 

XOVINHIB 

LPD  phase;  X-axis 

Not  in  Landing  Point 

overide  disabled 

Designation  Phase 

8 

DRIFTBIT 

Assume  that  offset 

Offset  acceleration  likely 

acceleration  is  zero 

7 

RHCSCALE 

Normal  RHC  scaling 

Fine  RHC  scaling 

6 

IILLAGER 

Internal  ullage 

No  program  ullage 

request 

request 

5 

DBSLECT2 

Bits  4 and  5 are  used  together  to  select  attitude 

4 

DBSELECT 

deadbands.  The  meanings  are: 

bit  5 bit  4 

Deadband 

1 1 

5° 

1 0 

5° 

0 1 

1° 

0 0 

0.3° 

3 

ACCSOKAY 

Computed  accelerations 

! Computed  accelerations 

probably  correct 

probably  incorrect 

2 

AUTRATE2 

Used  together  to  determine  index  (RATEINDX) 

1 

AUTRATE1 

which  is  used  to  select  attitude  maneuver  rate 

DAPARUPT,  DAPBQRUPT,  DAPZRUPT:  Double  precision  storage  locations  for 
the  accumulator,  L register,  Q,  B,  and  Z registers  for  the  job 
interrupted  by  "SUPERJOB" . 


DEL: 


Single  precision  switch  which  is  described  in  MIT's  Luminary  GSOP, 
Section  3,  as  a capital  delta  ( iSk ) ; scaled  B14  and  unitless. 
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D^ELCDTJ:  Interface  with  steering  and  attitude  maneuver  routines, 
minus  desired  change  in  gimbal  angles  per  100  millisecond 
period,  scaled  B-1  in  units  of  revolutions,  stored  in  two's 
con5)lement  form. 

DELPEROR,  DELQEROR,  DELREROR:  Single  precision  smoothing  terms  calculated 
during  attitude  maneuver  and  steering  routines,  used  in  automatic 
control  portions  of  the  DAP.  Scaled  B-1  in  iinits  of  revolutions. 

DKOMEGAN,  DKKAOSN:  Single  precision  Kalman  filter  gains  for  the 

docked  configuration,  scaled  B14  and  unitless.  See  discussion 
of  the  "Recursive  State  Estimator"  in  Section  3 of  the  Luminary 
GSOP.  Part  of  the  erasable  load. 

DKTRAP:  Single  precision  deadband  for  the  state  estimator  in  the 
docked  configuration,  scaled  B-3  in  units  of  revolutions  per 
second.  Part  of  the  erasable  load. 

DOWNTORK^  (i  = 0-5):  Single  precision  table  of  quantities  for 

downlink  which  give  cumulative  jet  on  times  for  the  various 
axes;  the  correspondence  is  ( 0,+P;  1,-P;  2,+U;  3,-U;  4,+V;  5,-V); 
Scaled  B5  in  units  of  seconds. 

DXERROR,  DYERROR,  DZERROR:  Double  precision  cumulative  error  between 
the  actual  rate  and  the  rate  requested  through  the  hand' 
controler.  Scaled  B-1  with  units  of  revolutions. 

E,  EDOT:  See  DAPB  section. 

EDOTQ,  EDOTR:  Single  precision  biased  rate  estimates,  scaled 
B-3  in  units  of  revolutions  per  second. 

E^DRIVE:  Single  precision  vector  containing  the  present  settings 
of  the  FDAI  error  needles,  scaled  B-1  in  units  of  ten  revo- 
lutions for  attitude  errors  or  B-3  in  units  of  10  revs/sec 
for  rate  errors. 


FIREFCT:  See  DAPB  section. 

FUNCTION:  Double  precision  working  storage  for  trim  gimbal  control 
logic.  Using  the  notation  of  section  3 of  the  Luminary  GSOP  it 
contains  first  cj  + « l*'l/2K  scaled  B3  with  units  of  revs  / sec  ; 
second  it  contains  K(  - + «y2K)  scaled  B-6  with  units  of 
revsv  sec^. 

HALFARG:  One  half  of  the  argument,  in  single  precision,  for  the 

square  root  iteration  in  "ALGORTHM",  scaling  variable  and  units 
"revolutions  per  second  squared"  squared. 

IM0DES33:  See  INTR  section. 
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ININDEX:  Single  precision  variable  used  in  the  same  way  as 

SHFTFLAG  to  count  multiplications  by  four  in  the  square-root 
routine  c 

INGTS:  Single  precision  two-valued  switch  set  to  indicate  that 

the  GTS  attitude  control  law  was  operating  during  the  previous 
cycle,  scaled  B14  and  unitless. 

JETRATEP,  JETRATEQ,  JETRATER;  Single  precision  addition  to  vehicle 
rate  expected  to  have  been  contributed  by  the  RCS  jets  during 
the  last  period,  scaled  B-3  in  units  of  revolutions  per  second 
Alternate  program  notations,  JETRATE+0,  JETRATE+1 , JETRATE+2, 

K:0,1secB0:  Single  precision  constant,  program  notation  -100MS, 

stored  as  -0.1,  scaled  BO  in  units  of  seconds.  Equation  value 
0.1.  (Equivalent  to  +100  milliseconds). 

K:0.4gt3:  Single  precision  constant  actually  equal  to  1 + 0.6 
(stored  value  0.6,  program  notation  0CT23146,  added  to  1) 
but  scaled  B-2  and  unitless.  Equation  value:  0.4 


K: 100msT6:  Single  precision  constant,  program  notation  -100MST6, 
stored  as  -160  x 2~''+,  scaled  BIO  in  units  of  centiseconds. 
Equation  value:  +10.  (Equivalent  to  +100  milliseconds) 

K:136msT6:  Single  precision  constant,  program  notation  -136I^T6, 
stored  as  774458,  scaled  BIO  in  units  of  centiseconds. 
Equation  value!  +13.625  (Equivalent  to  +136.25  milliseconds) 

K:150msQR:  Single  precision  constant,  program  notation  -150MS, 
stored  as  7741 7g,  scaled  BIO  in  units  of  centiseconds. 
Equation  value:  +15  (Equivalent  to  +150  milliseconds) 

K:150msT6:  Single  precision  constant,  program  notation  +150MST6, 
stored  as  00360g,  scaled  BIO  in  units  of  centiseconds. 
Equation  value:  +I5  (Equivalent  to +•  150  milliseconds) 

K:l60msT6:  Single  precision  constant,  program  nbtation  -I6OMST6, 
stored  as  773778,  scaled  BIO  in  units  of  centiseconds. 
Equation  value;  +I6.  (Equivalent  to  +I60  milliseconds) 

K:1d100ms:  Single  precision  constant  stored  as  000P5g,  program 
notation  FIVE,  scaled  B15  in  units  of  seconds"  . Equation 
value:  10  (Equivalent  to  I/O.  100) 


DAPA  - 39 


K;1d40:  Single  precision  constant,  program  notation  1 /40,  stored 

as  00632g  , scaled  B2  in  units  of  seconds.  Used  to  convert  sensed 
vehicle  attitude  change  data,  scaled  B-1  in  units  of  revolutions, 
tp  vehicle  rate  data,  scaled  B-3  in  units  of  revolutions  per 
second.  Equation  value:  0.10  (Equivalent  to  100  milliseconds) 

K;25B5:  Single  precision  constant,  program  notation  25/32,  stored 
as  31000g, scaled  B5  in  units  of  centiseconds  per  second. 

Equation  value:  25  (Used  with  a factor  of  4 to  convert  from 
seconds  to  centiseconds) 

K:40cyc:  Single  precision  constant,  program  notation  4OCYCL 
stored  as  00050g,  scaled  B14  with  units  of  deci-seconds. 

Used  as  the  initial  setting  for  the  timing  cell  for  the 
"direct"  manual  control  mode.  Equation  value;  40 

K:5FAILTAB. ; Table  of  eight  single  precision  octal  constants 

indicating  which  bit  of  channel  5 is  to  be  disabled  by  each 
one  of  bits  1-8  of  channel  32. 


i 

K:5FAILTAB, 

jet  # 

Channel  5 

code  and  bit  # 

8 

c ^ 

00040 

10 

2D 

6 

7 

00020 

9 

2U 

5 

6 

00100 

13 

1U 

7 

5 

00200 

14 

ID 

8 

4 

00010 

6 

3D 

4 

3 

00001 

1 

4U 

1 

2 

00004 

5 

3U 

3 

1 

00002 

2 

4D 

2 

K:6QmsT6;  Single  precision  constant  stored  as  001 40g,  scaled  BIO  in  units 
of  centiseconds.  Equation  value  6.  Used  as  minimum  impulse  jet  on 
time  for  the  docked  configuration. 

K:6FAILTAB.;  Table  of  eight  single  precision  octal  constants 

indicating  which  bit  of  channel  6 is  to  be  disabled  by  each 
one  of  bits  1-8  of  channel  32. 


i 

K:6FAILTAB. 

jet  # 

Channel  6 

code  and  bit  # 

8 

1 

00010 

11 

2F 

4 

7 

00020 

12 

2S 

5 

6 

00004 

15 

IF 

3 

5 

00200 

16 

IS 

8 

4 

00001 

7 

3F 

1 

3 

00002 

3 

4F 

2 

2 

00040 

8 

3S 

6 

1 

00100 

4 

4S 

7 

K:aosint;  Single  precision  constant,  program  notation  200MS,  stored 
as  0631 5g,  scaled  B-1  in  units  of  seconds.  Equation  value: 

0.1  (Equivalent  to  100  milliseconds.) 
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K:BIT10:  Single  precision  constant,  stored  as  01000  , scaled 

BO  and  unitless.  Used  to  rescale  the  jet  on  tinies  for  the  downlink. 
Equation  value  2~5, 

K:bklim:  Value  cf  overflow  in  a quantity  scaled  BIO  in  units  of 
centi seconds . Equation  value:  1024 

K:bkscl;  Actually  not  a constant  as  such,  rather  a multiplication  by 
three  implemented  as  a double  and  an  add;  effective  units, 
centiseconds  per  second;  effective  scale  factor,  B5.  Equation 
value;  100  x 0.96  (0.96  is  the  error  introduced  because  the 

method  is  approximate). 

K;CALLC0DE:  Single  precision  constant,  stored  as  00032g,  scaled  B6 
in  tinits  of  seconds.  Equation  value;  0.1016  (Equivalent  to 
102  milliseconds). 

K:eclim:  Single  precision  constant  stored  as  00600g,  program  notation 

DACLIMIT,  scaled  B-1  for  attitude  errors  in  units  of  ten  revolutions 
or  B-3  for  rate  errors  in  units  of  ten  revolutions  / second. 

Equation  values  are:  attitude  errors,  0.01171875  (equivalent  to 
42.1875  degrees);  rate  errors,  0.00292968,  (equivalent  to  10.4976 
deg/sec).  Note  however  that  the  FDAI  error  needles  are  pinned  by 
attitude  commands  of  5.015625  deg.  and  rate  commands  of  1.265625 
deg/ sec. 


K:gtstmin:  Value  of  least  significant  bit  in  a single  precision  quantity 
scaled  B14  and  unitless.  Equation  value:  1 


K:INDXYZ.;  Table  of  eight  single  precision  constants  to  translate  any  of 
the'^eight  possible  combinations  of  inputs  from  the  Q and  R axes  of 
the  translational  hand  controller  (bits  9-12  of  channel  31 ) into 
an  index  to  select  the  proper  jets  from  the  table  of  K;typmanP; 
scaled  B14,  unitless  and  stored  as  follows: 


i  function 

1 +Q 

2 -Q 

3 error 

4 +R 

5 +U 

6 +V 

7 error 

8 -R 

9 -V 

10  -U 


K;INDXYZ^ 

4 
2 

5 
9 

10 

3 

8 

7 


K:LINRAT:  Single  precision  constant  stored  as  00056g,  scaled  B12  in 

units  of  RHC  coimts.  Used  as  the  coefficient  of  the  linear  term  in 
the  quadratic  expression  for  hand  controller  response.  Equation 
value : 11.5 
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K:inFOlIRDEG:  Single  precision  constant,  program  notation  -FOURDEG, 
stored  as  751 17^,  scaled  B-3  in  units  of  revolutions. 

Equation  value:  -0.01111  (Equivalent  to  -3.9996  deg) 

K:minimptj:  Single  precision  constant  stored  as  0001 2g,  program 

notation  TEN,  scaled  BIO  in  units  of  centiseconds.  Equation 
value:  0.625  (corrected  to  true  minimum  impulse  time  in  jet 

selection  routine) 

K:MINTIMES:  Single  precision  constant  stored  as  77751 g,  scaled  B1 0 
in  units  of  centiseconds.  Equation  value:  1.375. 

K:0CT00240:  Single  precision  constant  stored  as.  00240g,  scaled 
BIO  in  units  of  1/seconds  (actually  computation  cycles  per 
second).  Equation  value:  10. 

K:0CT31:  Single  precision  constant  stored  as  00031 g,  scaled  B14 

and  unitless.  Equation  value:  25.  (Corresponds  to  an  inter- 
val of  2.5  seconds,  25  cycles  at  100  ms  per  cycle.) 

K:0NETENTH:  Single  precision  constant  stored  as  031 46g,  scaled  BO 
and  unitless.  Equation  value:  0.10. 

K:pTJMINT6:  Single  precision  constant,  program  notation  +TJMINT6, 

stored  as  00026g,  scaled  B1 0 in  units  of  centiseconds.  Equation 
value:  1.375  (Equivalent  to  13.75  milliseconds). 

K:quadsP.:  Table  of  seven  single  precision  octal  constants,  program 
notation  TYPEP  , containing  the  binary  codes  for  various  jet 
pairs  that  can  be  used  to  accomplish  a given  maneuver,  stored 
in  order  of  their  desirability  (i>4,  more  desirable;  1^3, 
less  desirable).  The  constants  and  their  significance  is  ind- 


icated 

i 

below. 

K: quadsP . 

Bits  8-1 

Use 

6 

00377 

1111  1111 

All  quads;  translation  or  rotation 

5 

00245 

1010  0101 

Quads  1 and  3;  jets  7,8,15,16 

4 

001 32 

0101  1010 

Quads  2 and  4;  jets  3,4,11,12 

3 

001  51 

0110  1001 

2-jet  rotations  above  use  diagonal 
quads 

2- jet  rotations  below  use  adjacent 
quads 

Rotation  using  jets  4,7  or  8,11 

2 

00231 

1001  1001 

Rotation  using  jets  7,12  or  11  ,6 

1 

00226 

1001  0110 

Rotation  using  jets  12,15  or  3,16 

0 

00146 

0110  0110 

Rotation  using  jets  4,15  or  8,16 

K:quadsQR.;  Table  of  five  single  precision  octal  constants,  program 
notation  TYPEPOLY,  containing  the  binary  codes  for  primary  and 
secondary  jet  combinations  that  can  be  used  to  accomplish 
rotations  around  an  axis  in  the  Q-R  plane  and  translations 
perpendicular  to  the  Q-R  plane. 


i 

K: quads OR. 

Bits  8-1 

Use 

4 

00377 

1111  1111 

All  quads;  2- jet  rotation,  4- jet  trans 

3 

00231 

1001  1001 

1-jet  rotation,  B-system  (1 ,6,9,14) 

+X  jets  6,14  (quads  1,3);  -X  jets  1,9 
(quads  2,4) 

2 

00146 

0110  0110 

1-jet  rotation,  A-system  (2,5,10,13) 

+X  jets  2,10  (quads  2,4);  -X  jets 

5,13  (quads  1 ,3) 

1 

00252 

1010  1010 

1-jet  rotation  using  only  +X  jets 

0 

00125 

0101  0101 

1-jet  rotation  using  only  -X  jets 

K:T6llm: 

Single  precision 

1 constant. 

program  notation  1 - PRI037, 

stored  as  (40000g  - 37000g),  scaled  B1 0 in  units  of  centl- 
seconds.  Equation  value:  32.  (equivalent  to  320  milliseconds) 

K;T6tosec:  Single  precision  constant,  program  notation  ELEVEN, 
stored  as  0001 3g,  used  in  such  a way  (L  register  retained 
after  multiplication)  that  effective  scaling  is  B-1 0 in 
units  of  seconds  per  centisecond.  Equation  value  11/1024 
or  0.010742. 

K:trvtoc:  Constant  implicit  in  the  FDAI  error  counter,  equation 

interface,  scaled  B1 5 in  units  of  ICDU  error  counter  incre- 
ments per  ten  revolutions  for  attitude  errors  or  ten  revs 
per  second  for  rate  errors.  Equation  value  32768.  (one 
least  increment  to  the  error  counter  represents  about  0.11 
degrees  on  the  FDAI  error  needles) 

K:typmanP.:  Table  of  eleven  single  precision  octal  constants, 

program  notation  JETSALL,  each  containing  the  binary  codes  for 
all  the  jet  pairs  that  can  be  used  to  accomplish  a particular 
maneuver.  The  constants  and  their  significance  is  indicated 
below. 


1 

K: tvomanP. 

Bits  8-1 

Maneuver  (let  numbers) 

0 

00252 

1010  1010 

-P 

rotation  (3,8,11,16) 

1 

00125 

0101  0101 

+P 

rotation  (4,7,12,15) 

2 

001 40 

0110  0000 

-Y 

translation 

(4,8) 

3 

00006 

0000  0110 

-Z 

translation 

(3,15) 

4 

00220 

1001  0000 

+Y 

translation 

(12,6) 

5 

00011 

0000  1001 

+Z 

translation 

(7,11  ) 

6 

00151 

0110  1001 

+V 

translation 

(4,11  and 

7,8) 

7 

00146 

0110  olio 

-U 

translation 

(8,15  and 

3,4) 

8 

00226 

1001  0110 

-V 

translation 

(3,12  and 

15,  16) 

9 

00231 

1001  1001 

+U 

translation 

(7,16  and 

11  , 12) 

10 

001  51 

0110  1001 

+V 

translation 

(4,11  and 

7,8) 
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KttypmanQR. : Table  of  six  single  precision  octal  constants, 

program  notation  ALL JETS,  each  containing  the  binary  codes  for 
all  the  jets  that  can  be  used  to  aocon5)llsh  rotations  around 
an  axis  in  the  Q-R  plane  and  translations  perpendicular  to  the 
Q-R  plane . 


1 

0 

1 

2 

3 

4 

5 


K;typmanQRj^ 

00110 

00022 

00204 

00041 

00125 

00252 


Bits  8-1  Maneuver  (jet  numbers) 


0100  1000  -U  rotation  (6,13) 

0001  0010  -V  rotation  (2,9) 

1000  0100  +U  rotation  (5,14) 

0010  0001  +V  rotation  (1,10) 

0101  0101  -X  translation  (1,5,9,13) 

1010  1010  +X  translation  (2,6,10,14) 


K2CNTRAL:  Double  precision  working  storage  for  trim  gimbal  control 
logic.  Using  the  notation  of  section  3 of  the  Luminary  GSOP  it 
first  contains  co  scaled  B3  with  units  of  revs  / sec;  second  it 
contains  -Acj  + ot*/  2K  scaled  B3  with  \inits  of  revs  / sec  ; 
third  it  contains  -a  (-aco  + scaled  B3  with  units  of 

revs  / sec;  fourth  it  contains  (K  (-A&)  + «-y2K) )*  (-A  (-&«>+“'  /2K)) 
with  scaling  undetermined  at  this  point  because  of  variable 
scale  return  from  square  root  routine  and  with  iinits  of  rev^/  sec^. 


K2THETA:  Double  precision  working  storage  for  trim  gimbal  control 
logic.  Using  the  notation  of  section  3 of  the  Liominary  GSOP  it 
first  contains  K6  scaled  BO  in  units  of  revs^/  sec^  ; second  it 
contains  K0  + « (-Ao)  + <'<^/3K)  scaled  BO  with  \inits  of  revs2/  sec^  ; 
third  it  contains  KB  + =<(  -aw  + *‘V3K)  + (K  (-aw  + «* /2K)  )i  (-a(-aw  + '*)'2K) ) 
or  U' , scaled  BO  with  \mits  of  revs^/  sec^. 


KGENTRAL:  Single  precision  working  storage  for  trim  gimbal  control 
logic.  Using  the  notation  of  section  3 of  the  Luminary  GSOP 
it  contains  K,  three  tenths  of  the  "jerk"  or  time  derivative  of 
angular  acceleration,  scaled  B-9  with  units  of  rev  / sec^. 


LMOMEGAN,  LMKAOSN ; Single  precision  Kalman  filter  gains  for  the 

LM  alone  configuration,  scaled  B14  and  unitless.  See  discussion 
of  the  "Recursive  State  Estimator"  in  section  3 of  the  Luminary 
GSOP.  Part  of  the  erasable  load. 


LMTRAP:  Single  precision  deadband  for  the  state  estimator  in  the 
LM  alone  configuration,  scaled  B-3  in  units  of  revolutions 
per  second.  Part  of  the  erasable  load. 

Mil,  M21 , M22,  M31,  M32;  Single  precision  factors  used  in  trans- 
forming from  gimbal  angle  differences  into  body  axis  rotations, 
scaled  BO  and  unitless. 


MEASRATE:  Single  precision  temporary  storage  for  measured  rate, 
program  notation  OMEGAU,  scaled  B-3  in  units  of  revolutions 
per  second.  Carefully  limited  in  case  of  overflow  to 
+;  0.12499  (i  44.997  degrees/  sec) 
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NEGU„,  NEGU2:  Single  precision  switches,  program  notations  NEGUQ 
^and  NEGUR,  indicating  whether  the  DPS  gimbal  drives  should 
be  driven  and  whose  signs  indicate  the  conplement  of  the 
direction  in  which  each  gimbal  is  to  be  driven;  scaled  B14 
and  unltless.  See  MIT  Space  Guidance  Analysis  Memo  No.  4-66, 
dated  20  January  1966. 

NEXTP,  NEXTU,  NEXTV;  Single  precision  storage  for  the  P,U  and 
V-axis  translation  jet  codes  to  be  inplemented  as  soon  as 
rotation  commands  are  completed.  Stored  as  octal  quantities  and 
set  to  OOOOOg  to  indicate  that  all  jets  are  to  be  turned  off. 

NPTRAPS,  NQTRAPS,  NRTRAPS;  Single  precision  time  varying  portion 
of  the  Kalman  filter  gain,  scaled  B14  and  unitless. 

NUMBERT:  Single  precision  index  used  to  select  the  number  of 
jets  to  be  used  for  a particular  maneuver  and  to  specify 
which  jet  quads  will  be  used,  scaled  B14  and  unltless. 

NUMJETSj-.,  NUMJETS.,  NUMJETS2;  Single  precision  number  of  jets  used 
for  P,U  and  V-axls  rotation,  respectively,  scaled  B14  and  unit- 
less, Program  notations  NO.PJETS,  NO.UJETS,  and  NO.VJETS. 

NXT6AXIS:  Single  precision  quantity  used  to  indicate  which  set  of 
jets  is  to  be  turned  off  at  the  next  TIME6  interrupt  (0  for  P, 

4 for  TJ,  and  13  for  V),  program  notation  NXT6ADR,  scaled  B14 
and  unltless, 

OLDPMIN,  OLDQRMIN;  Single  precision  flagwords  set  greater  than 
zero  when  a minimum  inpulse  command  is  sensed  and  reset  to 
zero  when  no  commands  are  present. 

OLDXFORP,  OLDYFORP,  OLDZFORQ;  Single  precision  storage  for  the 
value  of  the  gimbal  angles  at  the  previous  sanple,  used  to 
calculate  rate  of  change  of  gimbal  angles,  scaled  B-1  in 
units  of  revolutions  and  stored  in  two’s  complement  form. 


OMEGAP,  OMEGAQ,  OMEGAR,  OMEGAU,  OMEGAV;  Single  precision  estimated 

vehicle  rate,  calculated  using  commanded  accelerations  and  times, 
scaled  B-3  in  units  of  revolutions  per  second.  Limited  to 
+0.12499  (+  44.997  degrees /sq,c)  overflow  checks 

OMEGAPD,  OMEGAQD,  OMEGARD:  Single  precision  rate  biases  generated  in  the 
attitude  maneuver  and  steering  routines,  scaled  B-3  in  units  of 
revs  / sec. 
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PERROR;  Single  precision  P-axis  error,  scaled  B-1  in  units  of  rev- 
olutions . 

PJETCTR.  (i  = 1,2,3):  Single  precision  timing  coiinters  used  to  separate 
RCS  jet  firings  for  the  docked  configuration.  The  index  corres- 
pondence is  1 - P axis;  2 - U axis;  3 - Vaxis.  Scaled  BI4 
with  units  of  deci-seconds . 

PLAST,  QLAST,  BLAST;  A single  precision  quantity,  giving  the  rate 
requested  by  the  astronaut  via  the  hand  controller.  Scaled 
B-3  with  units  of  revolutions  per  second. 

POLYTEMP;  Single  precision  logical  intersection  of  octal  constants 
from  the  tables  K;typman  and  K; quads.  Bits  9 through  15  will 
be  zero  and  bits  1 through  8 will  contain,  at  most,  four  binary 
ones  indicating  four  jets  to  be  actuated  to  perform  a maneuver. 

See  tables  below  showing  codes  for  various  types  of  maneuvers. 

PVALVEST;  Single  precision  octal  quantity  reflecting  the  latest 
estimation  of  the  state  of  the  jet  failure  bits  in  CH5MASK 
and  CH6MASK. 

QAGCDOT,  RAGGDOT;  Actual  rate  of  change  of  the  rotational  rates 
induced  by  the  thrust  vector/c.g.  offset,  single  precision, 
scaled  B-8  in  units  of  revolutions  per  second  cubed;  equal 
to  zero  or  plus  or  minus  AGGDOTQ  and  AGGDOTR,  respectively; 

These  can  be  loaded  by  indexing  as  in  the  routine  "NEGUSTJM" . 

QDAPK,  RDAPK;  Single  precision  derivatives  of  angular  acceleration 
about  the  positive  Q and  R axes,  respectively,  multiplied  by 
a fractional  gain  (in  "SPSGONT")  and  scaled  B-9  in  units  of  revs 
per  second  cubed.  Program  notations  KQ  and  KR  or  KQDAP  and 
KRDAP. 

QERROR,  RERROR;  Single  precision  Q and  R-axis  error,  scaled  B-1 
in  units  of  revolutions. 

QGIMTIMR,  RGIMTIMR;  Single  precision  counters  scaled  BI4  in 
units  of  100  millisecond  intervals. 
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QKALERR,  RKALERR;  Single  precision  filtered  difference  between 
calculated  rate  and  measured  rate,  scaled  B-3  in  units  of 
revolutions  per  second.  Program  notations  DAPTEMP1  and 
DAPTEMP2 . 

QRATEDIF,  RRATEDIF:  Single  precision  storage  for  difference  between 
desired  rate  and  actual  rate  for  the  Q and  R axes,  respectively 
used  only  in  non-automatic  modes,  scaled  B-3  in  units  of  revolu 
tions  per  second. 

QRCNTR:  Single  precision  index  scaled  B14  and  unitless. 

RATEDB:  Single  precision  rate  deadband,  scaled  B-3  in  units  of 
revolutions  per  second.  RATEDB  is  called  -RATEDB  in  the 
program  and  is  stored  as  a negative  quantity  for  convenience. 

In  this  document  however,  for  convenience . in  interpretation, 
the  sign  has  been  changed  and  RATEDB  is  a positive  quantity. 

RCSFLAGS;  Listed  separately  on  next  page. 

RETJADR:  Return  address  used  to  distinguish  between  manual  and 

automatic  modes  during  the  Q,R-axis  computations  when  the  s&me 
routine  must  be  performed  twice.  Equals  "BACKHAND",  "TJLAW4", 
or  "MINRTN". 

RHCP,  RHCQ,  RHCR;  Three  single  precision  counters,  program  nota- 
tions P-RHCCTR,  Q-RHCCTR  and  R-RHCCTR,  scaled  B14  in  units  of  • 
counts  from  the  Rotational  Hand  Controller.  The  value  of  these 
counts  in  terms  of  commanded  rate  is  variable  and  determined 
by  the  astronaut  through  the  DAP  Data  Load  Routine  (03), 

K:R00THALF:  Single  precision  constant,  stored  as  26501o,  scaled 
BO  and  imitless.  Used  as  a starting  value  of  the  Newton  al- 
gorithm in  the  GTS  law  square  root  routine . Equation  value 
0.70710. 

ROTINDEX:  Single  precision  index  indicating  the  type  of  maneuver 
for  which  jets  are  to  be  selected,  scaled  B14  and  unitless. 

See  detailed  descriptions  of  KtINDXYZ. 

SAVEHAND  ,SAVEHAND. : Ten5)orary  storage  for  the  Rotational  Hand 

Controller  inputs  from  the  Q and  R axes,  necessary  because  all 
the  RHC  counters  are  reset  at  once  during  the  P-axis  routines. 

SENSETYP:  Single  precision  quantity  scaled  B14  and  unitless.  Used 
to  indicate  X-axis  translational  sense  desired  during  U and  V 
rotations.  A value  of  0 Inplies  balanced  couples,  1 implies 
-X,  and  2 implies  +X. 
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K'tSFLAGS:  Single  precision  fiagword  whose  individual  bits  have  the 
following  meanings  (note  that  not  all  bits  are  used  at  present). 


Bit 

15 

14 

Mnemonic 

Meanine  when  set  (l) 

Meaning  when  reset  (O) 

13 

Job  to  calculate  DAP 
parameters  not  needed 
at  present 

Set  up  job  to  calculate 
DAP  parameters 

12 

Perform  P-axis  calcu- 
lations 

Skip  P-axis  calculations 

11 

QRBIT 

In  "direct"  rate 
command  for  Q,  R 
axes 

Not  in  "direct"  rate 
command 

10 

PBIT 

In  "direct"  rate 
command  for  P-axls 

Not  in  "direct"  rate 
command 

9 

8 

7 

6 

5 

JUSTIN 

Hand-controller  just 
sensed  as  out  of  detent 

Hand-controller  just 
sensed  as  in  detent 

CALLGMBL 

Perform  "ACDT+C12" 
routine  to  set  engine 
gimbal  drive  bits 

"ACDT+C12"  not  being 
called 

4 

DSPLYALT 

Output  errors  to 

FDAI 

Calculate  the  errors 
(this  bit  controls  the 
dlsplay-calculate  cycle) 

3 

DSTEPONE 

Initialize  FDAI  error 
drive 

Drive  already  initialized 

2 

DSTEPTWO 

Initialize  the  display- 
calculate  cycle  for  the 
FDAI  errors 

Cycle  already  initialized 

1 

Used  to  alternate  in 
"tacking"  translation 
policies 

Used  to  alternate  in 
"tacking"  translation 
policies 
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SHFTFLAG:  Single  precision  variable  used  to  coimt  multiplications 

by  four,  used  in  the  square-root  routine  to  maintain  accuracy. 

SKIPUVq,  SKIPUV^ : Single  precision  flags  set  equal  to  zero  when  either 
U or  V~axls  computations  are  to  be  skipped  because  of  a short  jet 
firing  was  calculated  on  the  last  DAP  pass.  Scaled  B14  and 
unitless. 

STIKSENS;  A single  precision  conversion  factor  which  converts  a 
quadratic  expression  in  hand -controller  counts  to  a rate 
desired  in  revolutions  per  second.  Scaled  B-1 5 in  units  of 
revolutions  per  second  per  RHC-count  squared. 

T5ADR;  Double  precision  variable  starting  address  for  the  TIME5 
interrupt.  Set  equal  to  "PAXIS"  or  "DAPIDLER". 

T6NEXTAX. , T6NEXTAX_;  Single  precision  quantities,  program  nota- 
tions T6NEXT  +"1  and  T6FURTHA  +1 , respectively,  used  to  form 
a list  of  jets  to  be  cut  off  at  various  Intervals  after  the 
next  TIME6  interrupt,  scaled  B14  and  unitless.  See  description 
of  NXT6AXIS. 

T6NEXTTM  , T6NEXTTM^ ; Single  precision  quantities,  program  notations 
T6NEXT  and  T6PWTHA,  respectively,  used  to  store  the  time  inter- 
val after  the  next  TIME6  interrupt  when  the  jets  indicated  in 
T6NEXTAX^  and  T6NEXTAX„  are  to  be  cut  off,  scaled  BIO  in  units 
of  centiseconds . ^ 

TCP,  TCQR:  A single  precision  timer  used  in  the  "direct"  manual 
rate  control.  Scaled  B14  with  units  of  deciseconds. 

THETAD:  See  list  of  major  variables. 

TIME5:  Single  precision  counter  incremented  every  10  milliseconds 
(every  centisecond)  which  causes  the  "T5RUPT"  routine  to  be 
entered  in  the  interrupt  mode  whenever  it  overflows, 

TIME6:  Single  precision  counter  decremented  every  0.625  milliseconds 
when  enabled  (channel  13,  bit  15);  causes  the  "D0T6RUPT"  routine 
to  be  entered  as  an  interrupt  whenever  it  is  reduced  to  zero  (-0). 

TJ„,  TJ^ , Single  precision  jet  fire  times  for  the  P,U  and  V 

^ axes,  respectively,  scaled  BIO  in  units  of  centiseconds.  Program 
notations  TJP,  TJU,  and  TJV. 

TRAPEDP,  TRAPEDQ,  TRAPEDR:  Transient  rate  error  measured  as  the 

difference  between  measured  rate  and  calculated  rate  at  every 
100  millisecond  interval,  filtered  and  used  to  correct  rate 
calculation  parameters,  scaled  B-3  in  units  of  revolutions  per 
second.  Carefully  limited  in  case  of  overflow  to  ± 0.12499 
( + 44.997  degrees). 

TRAPSIZE:  Single  precision  filter  deadband,  stored  as  a negative 
quantity.  Scaled  B-3  in  units  of  revolutions  per  second. 
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UERROR,  VERROR;  Single  precision  storage  for  the  attitude  errors 
around  the  U and  V axes,  scaled  B-1  in  units  of  revolutions. 

URATEDIF,  VRATEDIF:  Single  precision  storage  for  attitude  rate 

error  in  non-automatic  modes  of  operation,  scaled  B-3  in  units 
of  revolutions  per  second. 

WCENTRAL:  Single  precision  working  storage  for  trim  gimbal  control 
logic.  Using  the  notation  of  section  3 of  the  Liuninary  GSOP  it 
contains  w , the  angular  velocity,  scaled  B-3  with  iinits  of  rev/sec. 
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Maneuver  Codes 


Codes  for  jets  with  thrust  perpendicular  to  the  P-axis 

Bits  1-8  of  channel  6 (in  the  order  8765  4321)  (Jets  16,4,8,12,  11,15,3,7) 


NUMBERT 

-P  Rotation 

+P  Rotation 

-Y  Trans. 

-Z  Trans. 

ROTINDEX  = 0 

ROTINDEX  = 1 

ROTINDEX  = 2 

ROTINDEX  = 3 

6 

1010  1010 

0101  0101 

0110  0000 

0000  0110 

5 

1010  0000 

0000  0101 

0010  0000^^ 

0000  0100* 

4 

0000  1010 

0101  0000 

0100  0000* 

0000  0010* 

3 

0010  1000 

0100  0001 

0110  0000* 

0000  0000* 

2 

1000  1000 

0001  0001 

0000  OOOO* 

0000  0000* 

1 

1000  0010 

0001  0100 

0000  0000* 

0000  0110* 

0 

0010  0010 

0100  0100 

0110  0000* 

0000  0110* 

+Y  Trans. 

+Z  Trans. 

+V  Trans. 

ROTINDEX  = 4 

ROTINDEZ  = 5 

ROTINDEX  = 6 

6 

1001  0000 

0000  1001 

0110  1001 

5 

1000  0000^ 

0000  0001^'- 

0010  0001 

4 

0001  OOOO'f 

0000  lOOO'f 

0100  1000 

3210 

meaningless 

meaningless 

meaningless 

(see  above  « 

-U  Trans. 

-V  Trans. 

+U  Trans. 

+V  Trans. 

ROTINDEX  = 7 

ROTINDEX  = 8 

ROTINDEX  = 9 

ROTINDEX  = 1C 

6 

0110  0110 

1001  0110 

1001  1001 

0110  1001 

5 

0010  0100 

1000  0100 

1000  0001 

0010  0001 

4 

0100  0010 

0001  0010 

0001  1000 

0100  1000 

3 

0110  0000^^ 

0000  0000^^ 

0000  1001* 

0110  1001* 

2 

0000  0000^^ 

1001  OOOO'^ 

1001  1001* 

0000  1001* 

1 

0000  0110^ 

1001  0110^ 

1001  0000* 

0000  0000* 

0 

0110  OllO'f 

0000  0110» 

0000  0000* 

0110  0000* 

Those  codes  immediately  followed  by  asterisks  are  meaningless 
because  1)  they  include  less  than  two  binary  one's  (less  than 
two  jets  would  be  actuated),  2)  they  are  identical  to  a code  higher 
in  the  list,  or  3)  they  contain  one  pair  of  binary  one's  but  this 
pair  does  not  accomplish  the  required  maneuver. 
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Maneuver  Codes 


Codes  for  jets  with  thrust  perpendicular  to  the  Q-R  plane 


Channel 

5 bits  1-8  (in 

the  order  8765,4321)  (jets 

o 

f — 1 

1 — 1 

NUMBERT 

-U  Rotation 

-V  Rotation 

+U  Rotation 

+V  Rotation 

ROT  INDEX  ==  0 

ROT INDEX  = 1 

ROT  INDEX  = 2 

ROT  INDEX  = 3 

4 

OIQO  1000 

0001  0010 

1000  0100 

0010  0001 

3 

0000  1000 

0001  0000 

1000  0000 

0000  0001 

2 

0100  0000 

0000  0010 

0000  0100 

0010  0000 

1 

0000  1000* 

0000  0010* 

1000  0000* 

0010  0000* 

0 

0100  0000* 

0001  0000* 

0000  0100* 

0000  0001* 

-X  Trans. 

+X  Trans. 

ROT INDEX  = 4 

ROT  INDEX  = 5 

4 

0101  0101 

1010  1010 

3 

0001  0001 

1000  1000 

2 

0100  0100 

0010  0010 

1 

0000  0000* 

1010  1010* 

0 

0101  0101* 

0000  0000* 

^ Those  codes  immediately  followed  by  asterisks  are  meaningless 
because,  for  the  rotations,  they  are  identical  to  a code  higher 
in  the  list,  and  for  the  translations,  they  are  identical  to  a 
code  higher  in  the  list  or  are  zero.  It  should  be  noted  that  the 
rotation  codes  derived  with  NUMBERT  = 0 or  1 are  valid  and  are  used 
to  assure  that  1-jet  rotation  commands  will  complement 
X translation  commands  in  effect. 


DATA  - 52 


dTet  Thrust  Directions,  Numbers  and  Channel  5 or  6 codes 
(each  jet  indicated  as  belonging  to  either  system  A or  B) 

1.  Horizontal  jets,  P-axis  rotations  and  y,Z  translations 


2.  Vertical  jets,  U,V  axis  rotations  and  P translations 


Channel  5 
Jet  Bit 


1 1 

2 2 

5 3 

6 4 

9 5 

10  6 

13  7 

1 4 8 
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DAPB 


DIGITAL  AUTOPILOT  PHASE  PLANE  LOGIC 


1 /aGCSET  AOSQ  and  AOSR  = 0 (most  significant  halves  of  d.p.  words) 

ALPHAQ  and  ALPHAR  = 0 
1 /ago JOB  Perform  "1/aGCS" 

End  Job 


1 /aggs 


DOGKTEMP  = bit  13  of  DAPBOOLS  (GSMDOGKD) 

LEMMASS  = MASS 

If  DOGKTEMP  = 1 , LEMMASS  = MASS  - CSMMASS 
Inhibit  interrupts 

If  ELaJRDIO  bit  13  (APSFLAG)  = 1;  (ascent  or  lunar  surface) 
2JETLIM  = Krnomaxjts 
i = 12 

If  LEMMASS  < K;LOASGENT,  LEMMASS  = KiLOASCENT 
If  LEMMASS  > HIASGENT,  LEMMASS  = HIASGENT 
If  FLGWRD10  bit  13  (APSFLAG)  = 0; 

2JETLIM  = K:2jlimdwn 
i = 6 

If  LEMMASS  < KrLODESGNT  + HIASGENT: 

LEMMASS  = K:LODESGNT  + HIASGENT 
If  LEMMASS  > KrHIDESGNT,  LEMMASS  = K:HIDESGNT 
MASS  = LEMMASS 

If  DOGKTEMP  = 1 , MASS  = LEMMASS  + GSMMASS 
Release  interrupt  inhibit 
If  DOGKTEMP  = 1,  proceed  to  "DOCKED" 
i = i - 2 

1JACCR  = KrlNERCONB^  + K:  INERCONAj^/(LEMMASS  + K:INERCONC^) 


i = i - 2 


DOCKED 


1JACCQ  = KiINERCONB.  + K:INERCONA.  / (J^MMASS  + K:INERCONC.) 

1 1 1 

i = i - 2 

1JACCP  = K:INERCONB.  + K:INERCONA.  / (LEMMASS  + K;INERCONC  ) 

11  1 

Perform  "COMMEQS"  (see  pg.  DAPB  - 22) 

1JACCU  = -COEFFQ  1JACCQ  + COEFFR  1JACCR  (rescaled  to  B-2) 

1JACCV  = 1JACCU 

If  i >0:  (ascent) 

ALLOWGTS  = 0 
IN GTS  = 0 

Proceed  to  "I/ACGONT" 

LPVTARM  = KiLconB  + K:LconA  / (LEMMASS  + K:LconC) 

MPAGq  = (K:dvtoacc  ABDELV  MASS  / K:GFACTM)  LPVTARM  (limited) 
Inhibit  interrupts 

AGGDOTR  = MPACq  IJACCR  / K:T0RKJET1  (limited) 

ACCDOTQ  = MPACq  UACGQ  / K:T0RKJET1  (limited) 

Proceed  to  "SPSCONT" 

MPACq  = K:inrtcofC  LEMMASS  CSMMASS  + K:inrtcofF 
MPACq  = MPAC^  + (L:inrtcofA  CSMMASS  + K:inrtcofD)  CSMMASS 
MPACj^  = MPACq  + (L:inrtcofB  LEMMASS  + KrinrtcofE)  LEMMASS 
MPAC^  = MPACq 

MPACq  = K:cgcoefC  LEMMASS  CSMMASS  + K:cgcoefF 

MPACq  = MPACq  + (K:cgcoefA  CSMMASS  + K:cgcoefD)  CSMMASS 

MPACq  = MPACq  + (K:cgcoefB  LEMMASS  + KicgcoefE)  LEMMASS 

1JACCP  = K:1JACC0N  / MASS  (limited) 

IdANET  K:posmax 

1dANET^2  ~ K:posmax 
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SPSCONT 


IdANET^^  - Krposmax 
IdANET^^g  = K:posmax 

1dANET_|.^g  = K:posmax 
Inhibit  interrupts 
1JACCQ  = K:T0RQG0NS  / MPAC^ 

UACCR  = 1JACCQ 
COEFFQ  = - 0.70711 
COEFFR  = 0.70711 

ACCDOTR  = K:dvtoacc  ABDELV  MASS  MPAC^  / MPAC^ 

ACCDOTQ  = ACCDOTR 
QDAPK  = ACCDOTQ  K:DGBF 
RDAPK  = ACCDOTR  K:DGBF 
MPAC^  = channel  12 

TS  = bits  12  (-R  GTS)  and  11  (+R  GTS)  of  MPAC^ 

If  TS  = 0,  RACCDOT  = 0 
If  TS  ^ 0: 

If  bit  12  of  MPAG^  = 0,  RACCDOT  = ACCDOTR 

If  bit  12  of  MPAC^  = 1,  RACCDOT  = - ACCDOTR 

TS  = bits  10  (-Q  GTS)  and  9 (+Q  GTS)  of  MPAC^ 

If  TS  = 0,  QACCDOT  = 0 

If  TS  7^  0: 

If  bit  10  of  MPAC^  = 0,  QACCDOT  = ACCDOTQ 

If  bit  10  of  MPAC^  = 1,  QACCDOT  = - ACCDOTQ 

If  DAPBOOLS  bit  U (USEQRJTS)  = 1: 

ALLOWGTS  = 0 
INGTS  = 0 

Proceed  to  "DOCKTEST" 


( limited) 


(+R  GTS) 
(-R  GTS) 

(+Q  GTS) 
(-Q  GTS) 
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If  T5ADR  i "PAXIS": 

ALLOWGTS  = 0 
INGTS  = 0 

Proceed  to  "POCKTEST" 

If  INGTS  = 0.  perform  "Tr'lEGMBL" 

DXKTEST  If  DXKTEMP  = 1.  proceed  to  "l/ACCRET" 

I/ACCONT  DBVALI  = DB 

DBVAL2  = - 3 DB  / 4 
DBVAL3  = DB  / 2 
Inhibit  interrupts 

AOSU  = -COEFFQ  AOSQ  + COEFFR  AOSR  (limited) 

AOSV  = COEFFQ  AOSQ  + COEFFR  AOSR  (limited) 

Release  interrupt  inhibit 
DRIFTER  = bit  8 of  DAPBOOLS  (DRIFTBIT) 

FLATEMP  = 0 

If  ALLOWGTS  = 1 or  DRIFTER  = 1 : 

FLATEMP  = K:FLATVAL 
Z8TEM  = 0 
If  DRIFTER  = 1: 

Z3TEM  = K:Z0NE3MAX 
TS  = 1 + 2 1JACCP  / K:acp 
Inhibit  interrupts 
1dANET_^^  =1/(2  IJACCP) 

1dANET_^^  =1/(2  IJACCP) 

ACCFCT_^^  = - 1 / (2  IJACCP  + 4 IJACCP^  / K:acp) 
ACCFCT_^^  = ACCFCT_^^ 

1dAC0AST_^^  = K:1dp03 
1dAC0AST_^^  = K:1dp03 
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BOTHAXES 


Release  interrupt  inhibit 
If  DRIFTER  = 1,  AOSU  and  AOSV  = 0 
UV  = 0 
i = 0 
If  UV  = 0: 

If  AOSU  < 0,  i = 1 
Ai^SAOS  = |aOSU| 

If  UV  = 1 : 

If  AOSV  < 0,  i = 1 
ABSAOS  = I AOSV I 
DBB1  = DBVAL1 
DBB2  = DBVAL1 

If  ABSAOS  < K:miniacc,  proceed  to  "NOTMUCH" 

If  FLA.TEMP  = 0:  (powered  flight  without  fine  GTS ) 

If  i = 0: 

DBB2  = DBB2  + DBVAL1 
DRB4  = DBB2 
If  ABSAOS  ^ K:m.1875 

DBB1  = (1  - 32  ABSAOS)  DB 
Skip  next  step 
DBB1  = - DBVAL3 
DBB3  = DBVAL2 
If  i = 1: 

DBB1  = DBB1  + DBVAL1 
DBB3  = DBB1 
If  ABSAOS  ^ K:m.1875 

DBB2  = (1  - 32  ABSAOS)  DB 
Skip  next  step 
DBB2  = - DBVAL3 
DBB4  = DBVAL2 

j = li  - ■'1 

IdACOSTT.  = 8/9  ( 1/  ABSAOS  ) 

J 

IdACOSTT^  = K:1dp03 
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NOTMUCH 


TS  = 1 + (2  IJACCU  + ABSAOS)  / K:acp 

6 p 

If  overflow  (|TS|  ^ 2 ):  (ANET  88.6  degrees/second'^) 

ANET  = IJACCU  + i ABSAOS 

IdATEMP  = i / ANET 

TSf  = - i IdATEMP  / (i  + ANET  / K:acp) 

Proceed  to  "ACCTHERE" 

ANET  = 2 IJACCU  + ABSAOS 

IdATEMP  = 1 / ANET 

TSf  = - IdATEMP.  / (1  + ANET  / K:acp) 

Proceed  to  "ACCTHERE" 

IdACOSTTQ  = K:ldp03 
IdACOSTT^  = K:ldp03 
If  FLATEMP  = 0: 

If  ABSAOS  > K:nnjiiacc  - Krtinyacc: 

If  i = 0: 

DBB3  = DBVAL3 
DBBA  = 2 DBVAL3 
If  i = 1: 

DBBZ4.  = DBVAI3 
DB©  = 2 DBVAL3 

If  ABSAOS  < Kiminiacc  - K:tinyacc: 

DBB3  = DBVALl 
DBBylf  = DB7AL1 
AKET  = 2 IJACCU  + ABSAOS 
IdATEMP  = 1 / ANET 
TSf  = - IdATEMP  / (1  + ANET  / K:acp) 
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ACCTHERE 


J = |i  - 1 I 


ACFTEMj^2  = TSf 

ldATEMlj^2  = IdATEMP 

TS  = 1 + (IJACCU  + ABSAOS)  / K:acp 

If  overflow  (|TSt  ^2^); 

TS  = Kiposmaxsp 
ANET  = K:acp  (TS  - l) 

IdATEMP  = 1 / ANET 

TSf  = - IdATEMP  / (1  + ANET  / K:acp) 


ACFTEM.  = TSf 
IdATEMlj  = IdATEMP 
ANET  = 2 IJACCU  - ABSAOS 
ACCSWTEM  = 0 


If  ANET  < Kiminiacc: 

ANET  = Krminiacc 
IdATEMP  = 1 / ANET 

TSf  = - IdATEMP  / (1  + ANET  IdACOSTT^) 


ACFTEM 


i+2 


TSf 


ldATEM1^^2  = IdATEMP 
ANET  = IJACCU  - ABSAOS 
If  ANET  ^ Krminiacc: 

ACCSWTEM  = 2 i - 1 

IfUV=Oandi=Oand  bits  4 and  7 of  CH5MASK  = 0 
Proceed  to  "STMIN-"  (no  minus  U jets  failed) 


(replace  1-jet  params  with  2- jet  params 
lanless  relevant  jet  failed.) 
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STMIN- 


(If  ANET  < Kiminlacc) 

IfUV  = Oandi  = land  bits  3 and  8 of  CH5iCASK  = 0: 

Proceed  to  "SIMIN-"  (no  plus  U jets  failed) 
If  UV  = 1 and  1 = 0 and  bits  2 and  5 of  CH5MASK  = 0: 

Proceed  to  "STMUI-"  (no  minus  V jets  failed) 
If  UV  = 1 and  i = 1 and  bits  1 and  6 of  CH5MASK  = 0; 


Proceed  to  "STMIN-"  (no  plus  V jets  failed) 

ANET  = K:miniacc  (jet  failure;  use  Krminiacc  instead 

of  2-jet  parameters) 

IdATEMP  = 1 / ANET 

TSf  = - IdATEMP  / (1  + ANET  IdACOSTT.) 

J 

ACFTEM.  = TSf 
1 

IdATEMl^  = IdATEMP 

If  UV  = 0 and  bit  3 or  8 of  CH5MASK  =1,  or  if  UV  = 1 and  bit 
1 or  6 of  CH5MASK  = 1:  (jet  failure  - positive  torque) 


IdATEMl^  = IdATEMl^ 


ACFTEM^  = ACFTEM^ 


If  UV  = 0 and  bit  4 or  7 of  CH5MASK  =1,  or  if  UV  = 1 and  bit 
2 or  5 of  CH5MASK  = 1:  (jet  failure  - negative  torque) 


ldATEMl2  = IdATEMlQ 
ACFTEM2  = ACFTEMq 
AXDSTEMq  = FLATEMP  + DBBl  - DBB3 
AXDSTEM^  = FLATEMP  + DBB2  - DBB4 
Inhibit  interrupts 


ACCSWy^  = ACCSWTEM 
If  UV  = 0: 


IUANETq  = IdATEMlQ 
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(If  UV  = 0) 


IdANET^  = 


IdATEMl. 


IdANET^  = 
IdANET^  = 


IdATEMl. 


IdATEMl, 


IdACOAST, 


0 


IdACOAST, 


ACCFCTq  = 
ACCFCT^  = 
ACCFCT2  = 


= IdACOSTT 
= IdACOSTT 
ACFTEMq 
ACFTEMj^ 
ACFTEMq 


ACCFCT^  = 


ACFTEMq 


0 

1 


Release  interrupt  inhibit 


UDBl  = DBBl 
UDB2  = DBB2 
UDB3  = DBB3 
UDB4  = DBBA 
UAXDISTq  = AXDSTEMq 
UAXDIST^  = AXDSTEMj^ 
UV  = 1 


Proceed  to  "BOTHAXES" 
IdANET^^  = IdATEMlQ 
IdANET^^  = IdATEMl^ 
IdANET,.  = IdATEMl^ 
IdANET^g  = IdATEMl^ 
IdACOAST^^  = IdACOSTT^ 
IdACOAST^^  = IdACOSTT^ 
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ACCFCT^^  = kCFna^ 
ACCFCT^y  = ACFTEMj^ 
ACCFCTj^g  = ACFTEI^ 
ACCFCTj^g  = ACFTEM^ 
FLAT  = FLATEMP 


Z0NE3LIM  = Z3TEM 


FIREI)B_^^  = DBVALl 

FIREDB  , . = DBVALl 
-1? 

COASTDB_^^  = DBVALl  + FLAT 

COASTDB  , c = DBVALl  + FLAT 
-1? 

AXISDIST_^^  = 0 
AXISDIST_j^^  = 0 
If  FLAT  > 0: 


FIREDBq  = DB7AL1 
FIREDB^  = DBVALl 
FIREDB^^  = DBVALl 
FIREDB^^.  = DBVALl 
COASTDBq  = DBVALl  + FLAT 
COASTDBj^  = DBVALl  + FLAT 
COASTDBj^^  = D^ALl  + FLAT 
COASTDB^^  = DBVALl  + FLAT 
AXISDISTq  = 0 
AXISDIST^  = 0 
AXISDIST^^  = 0 
AXISDIST^^  = 0 
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If  FLAT  = 0: 


(Povrered  flight  -without  fine  GTS) 


FIREDBq  = UDBl 
FIREDB^  = UDB2 
COASTDBq  = UDB4 
COASTDB^  = UDB3 
AXISDISTq  = UAXDISTq 
AXISDIST^  = UAXDISTq 
FIRBDB^^  = DBBl 
FIREDB^^  = DBB2 
COASTDB^^  = DBB4 
COASTDB^^  = DBB3 


AXISDIST^^  = AXDSTEMq 
AXISDIST^^  = AXDSTEMq 

l/ACCRET  Switch  DAPBOOLS  bit  3 (ACCSOKAY)  to  1 


Release  interrupt  inhibit 
Return 


DAPB 


11 


TJETLAW  HOIDQ  = retiirn  address 


ADRSDIFl  - K:AXISDIFF,_^_  (-16,  0 or  l6j  see 

AJLLDUiK  , ■ . . • rt 

description  of 

If  EDOT  ■>  0:  storage  sequence 

at  end  of  glossary) 

ADRSDIF2  = ADRSDIFl 
ROTSENSE  = K: SENSOR 
If  EDOT  ^ 0: 

E = - E 
EDOT  = - EDOT 
ADRSDIFl  = ADRSDIFl  + 1 
ADRSDIF2  = ADRSDIFl 
ROTSENSE  = - K:SE1\IS0R 
i = ADRSDIFl 

If  1e|  > 2“^:  (|E)>  11.25  degrees) 

If  E < 0,  proceed  to  "RUFLAWl" 

If  E >0,  proceed  to  ''RUFLAW2'' 

(E  = E rescaled  from  B-1  to  B-3) 

If  I EDOT 1 > 2^ , proceed  to  "RUFLAW3"  (EDOT  > 5-625  deg/sec) 
(EDOT  = EDOT  rescaled  from  B-3  to  B-6) 

EDOTSQ  = EDOT^ 

If  1e1  < FIREDB^  - K;m3deg 
NUMBER!  = SENSETYP  - 1 

If  IeI  > FIREDB^  - K:m3degor  if  SENSETYP  = 0: 

ADPJSDIF2  = ADRSDIF2  2 (index  2- jet  parameters  rather 

than  1-jet  parameters) 

NUMBER!  = 4 
j = ADRSDIF2 
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FIREFCT  = FIREDB^  - ^ IdANETj  EDOTSQ  - E 
If  FIREFCT  < 0: 

Perform  "Z123C0MP" 

If  FIREFCT  + FLAT  ^ 0: 

TS  = FIREFCT  + FLAT 

Proceed  to  "ZONEl"  (reverse  rate  error  and 

reach  switch  ciirve) 

If  TTOAXIS  > Z0NE3LIM,  proceed  to  "Z0NE2"  (null  rate  error 

Proceed  to  "Z0NE3"  (minimum  impulse  zone) 

TS  = COASTDB^  + ^ IdACOAST^  EDOTSQ  + E 

If  TS  ^ 0,  proceed  to  "Z0NE4‘'  (coast  zone) 

Proceed  to  "Z0NE5"  (increase  error  rate  and  reach 

switch  ciirve) 

Z123C0MP  ROTSENSE  = - ROTSENSE 

TTOAXIS  = EDOT  IdANET . 

J 

If  TTOAXIS  > Krtjmax: 

TSt  = K:250msB2 
Proceed  to  "RETURNTJ" 

Return 

ZONEl  HH  = 2 (TS  - AXISDIST^)  ACCFCTj  (ACCFCT^  is  negative) 

TS  = (TTOAXIS  - K:tjmax)^  - HH  (only  high  half  of  HH  used) 

If  TS  ^ 0:  (total  time  greater  than  K:tjmax) 

TSt  = K:250msB2 
Proceed  to  "RETURNTJ" 

If  HH  > K:50niasq:  (H  between  and  150  milliseconds) 

TSt  = (HH  / K:200msB2)  + K:37.5msB2  + TTOAXIS 
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If  HH  < K:50mssq: 


(H  between  0 and  44  milliseconds) 


Z0NE2 


Z0NE3 


Z0NE4 


Z0NE5 


TSt  = (HH  / K:50msB2)  + TTOAXIS 
If  TSt  £ K:tjmin,  TSt  = 0 
Proceed  to  "RETURNTJ" 

TSt  = TTOAXIS 
Proceed  to  "RETURNTJ" 

TSt  = K:minimpt  (illegally  small  jet  on  time  changed 

to  minimijm  impulse  in  "P  JETS  LEG"  or 
If  EDOT  < TSt  = 0 "AFTERTJ") 

Proceed  to  "RETURNTJ" 


k = AXISCTR  + 1 


If  TJj^  ROTSENSE  < 0:  (jets  on  and  firing  toward  desired  state) 

If  FLAT  = 0 and  AXISDIST^  - FIREFCT  > 0: 

Perform  "Z123C0MP" 

TS  - FIREFCT 


Proceed  to  "ZONEl" 


If  FLAT  > 0 and  FIREFCT  - 2 FIREDB.  < 0: 

1 

Perform  "Z123C0MP" 


If  TTOAXIS  > Z0NE3LIM,  proceed  to  "Z0NE2" 
Proceed  to  "Z0NE3" 

(In  all  other  cases,  coast) 

TSt  ==  0 

Proceed  to  "RETURNTJ" 


If  ROTSENSE  <0,  j - j - 1 

If  ROTSENSE  > 0,  j - j -t  1 

HH  - 2 TS  ACGFGT. 

J 


(indices  were  chosen  to  select 
parameters  opposing  EDOTj  in 
zone  5,  acceleration  shoiild 
be  in  same  direction  aa  EDOT) 
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RUFLAWl 


RUFLAW2 


TTOAXIS  = IdANETj  EDOT 

TS  = HH  - K:100!]isB2  TTOAXIS  - K:50mssq  (more  sig  half  of  HH) 
If  TS  < 0; 

TSt  = i HH  / (TTOAXIS  + K:25msB2) 

If  TSt  < K:tjmin,  TSt  = 0 
Proceed  to  "RETURNTJ" 

TS  = HH  - K:300msB2  TTOAXIS  - K:150mssq 
If  TS  > 0: 

TSt  = K:250msB2 
Proceed  to  "RETURNTJ" 

TSt  = i (HH  + K:85mssq)  / (TTOAXIS  + K:100nisB2) 

Proceed  to  "RETURNTJ" 

EDOT  = EDOT  - K:RUFRATE 

If  EDOT  < 0;  (rate  below  6.50  degrees  per  second) 

NUMBER!  = 4 

FIREFCT  = - K:posmaxsp  (if  P-axis,  call  for  4 jets) 

ADRSDIF2  = ADRSDIF2  + 1 signROTSENSE 
TS  = - EDOT 
Proceed  to  "RUFLAW12" 

ROTSENSE  = - ROTSENSE 
NUMBERT  = 4 
FIREFCT  = - Kiposmaxsp 
TS  = EDOT 

Proceed  to  "RUFLAW12" 

ROTSENSE  = - ROTSENSE 
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NUMHEKT  = 4 


FIREFCT  = - Kiposmaxsp  (if  P-axis,  call  for  4 jets) 

TS  = EDOT  + KiRUFRATE 
If  overflow  ()TS1  ^ 2 ^): 

TSt  = K:250maB2 
Proceed  to  "RETURNTJ" 

RUFLAW12  j = ADRSDIF2  + 2 
TSt  = TS  IdANETj 
If  TSt  ^ K:43ecB5: 

TSt  = K:250!nsB2 
Proceed  to  "RETURNTJ" 

TSt  = TSt  rescaled  from  B5  to  B2 

If  TSt  < K:tjniln,  TSt  = 0 
Proceed  to  "RETURNTJ" 

RUFLAW3  ROTSENSE  = - ROTSENSE 
NUMEERT  = 4 

FIREFCT  = - K:posmaxsp  (if  P-axis,  call  for  4 jets) 

i = ADRSDIFl  + 2 (=  ADRSDIF2  + 2) 

TS  = E + i IdANET,  EDOT^  - FIREDB.  ^ 

1 1— 

If  TS  > 0,  TSt  = K:250msB2 
If  TS  < 0,  TSt  = 0 
RETURNTJ  i = AXISCTR  + 1 

TJ^  = TSt  ROTSENSE 

If  TJ.  ACCSW.Y-p„p™  > 0:  (Note  that  for  P-axis,  this 

test  is  not  valid,  but 

NUMBER!  = 4 NUMHERT  is  set  after 

"TJETLAW") 

Return  via  HOLDQ 
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SPSRCS 


i = AXISCTR  + 1 


SPSSTART 

I 


POSTHRST 


If  TJ^  = 0: 

OIDSENSE  = 0 


Proceed  to  "SPSSTART" 

OIDSENSE  = 1 signTJ^ 

TS^  = - OIDSENSE  EDOT 

If  DAPBOOLS  bit  8 (DRIFTBIT)  = 0:  (powered  flight) 

TS^  = TS^  + K:RATEDB1 

If  TS^  > 0,  proceed  to  2nd  line  of  "POSTHRST" 

If j EDOT  K:RATELIMlj  ^ 1:  (check  to  see  if  outer  rate  limit 

has  been  exceeded) 

TS^  = - 0.5  signEDOT 
Proceed  to  "POSTHRST" 

TS^  = DKDB  (K:m3tom1  EDOT  + E) 

TSt  = 0 

IfjTS^I  < 1,  proceed  to  "POSTHRST"  (E  will  be  less  than  the 

deadband  within  4 seconds 
without  firing) 

If  TS^  < 0 and  EDOT  < K:RATELIM2,  TSt  =0.5 

If  TS^  > 0 and  EDOT  >-K:RATELIM2,  TSt  = - 0.5  (if  within  the 

inner  rate  limit 
fire  toward  it) 

TJ^  = K:B0toB10  TSt 
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CTRCHECK 


RESTORDB 


SETMINDB 


SETMAXDB 


PFLITEDB 


If  OLDSENSE  = 0,  proceed  to  ‘'CTRCHECK" 

If  OLDSENSE  > 0: 

TS  = TJ^ 

Skip  next  step 

TS  = - TJ^  (OLDSENSE  O) 

If  TS  > 0,  return 
PJETCTR^  = K:UTIME^ 

TJj^  = 0 

Return 

If  PJETCTR^  = 0,  return 

TJ^  = 0 

Return 

If  DAPBOOLS  bit  5 (DBSLECT2)  = 1,  proceed  to  "SETMAXDB" 
If  DAPBOOLS  bit  4 (DBSELECT)  = 1,  proceed  to  "SETMINDB" 
D3  = K:P0WERDB 

Proceed  to  2nd  step  of  "SETMAXDB" 

DB  = K:NARROWDB 
Establish  "I/ACCJOB" 

Return 

D3  = K:WIDEDB 
Establish  "1 /ACC JOB" 

Return 

Perform  "ZATTEROR" 

DB  = K:P0WERDB 
Establish  "1 /ACC JOB" 

Return 


(pr27) 


(pr27) 


(pr27) 
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(Entered  from  a verb  48,  this  is  Routine  03 ) 


DAFDATA1  DAPDATR1  = bits  13,  11,  10,  7,  5,  4,  2 and  1 of  DAPBOOLS 
(CSMD0CKD,ACC40R2X,A0RBTRAN,  RHCSCALE,  DBSLECT2, DESELECT, 
AUTRATE2,AUTRATE1 ) 

If  FLGWRD10,  bit  13  = 1:  DAPDATR1 , bit  14=  0,  otherwise 
DAPDATR1  bit  14=  1 

If  DAPDATR1,  bits  13  and  14  = 0,  set  bit  13  of  DAPDATR1  = 1 

Perform  "GOXDSPFR"  with  TS  = K:V01N46  (display  DAPDATR1 ) 

(if  terminate,  proceed  to  "ENDEXT";  If  proceed,  proceed  to 
"DPDAT1";  other  response,  skip  next  two  steps) 

Perform  "BLANKET"  with  TS  = 00006g 

End  job 

DAPDATR1  = bits  14,  13,  11,  10,  7,  5,  4,  2 and  1 of  DAPDATR1 

Proceed  to  third  step  of  "DAPDATA1" 

DPP AT 1 Inhibit  Interrupts 

FLGWRD10,  bit  13  = complement  of  DAPDATR1 , but  14 

If  DAPDATR1,  bits  13  and  14?^  1,  bit  13  of  DAPDATR1  = 0 

Set  bits  13,11,10,7,5,4,2  and  1 of  DAPBOOLS  = bits  13,11,10,7, 
5,4,2  and  1 of  DAPDATR1 

MASS  = LEMMASS 

If  DAPBOOLS  bit  13  = 1,  MASS  = MASS  + CSMMASS 

If  DAPBOOlS  bit  11  = 1,  switch  FLAGWRD1  bit  15  (NJETSFLG)  to  0 

If  DAPBOOLS  bit  11  (ACC40R2X)  = 0: 

Switch  FLAGWRD1  bit  15  (NJETSFLG)  to  1 
RATEINDX  = bits  2 and  1 of  DAPBOOLS 

STIKLOAD  STIKSENS  = K:FINE 

If  DAPBOOLS  bit  7 (RHCSCALE)  = 1: 

STIKSENS  = STIKSENS  + K:N0RMAL 
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RATEDB  = K:m0.6DdS 


DAPDATA2 


If  DAPBOOLS  bit  13  (CSMDOCKD)  = 1: 

STIKSENS  = K:1d10  STIKSENS 
RATEDB  = K:m0.3DdS 

Release  interrupt  inhibit 

Perform  "GOXDSPFR"  with  TS  = K:V06N47  (LEMMASS,  CSMMASS) 

(if  terminate,  proceed  to  "ENDR03";  if  proceed,  skip 
next  two  steps;  if  other  response,  repeat  this  step.) 

Perform  "BLANKET”  with  TS  = 00004g 

End  Job 

TS  = K:MINMINIM  (ascent) 

If  FLGWRD1C  bit  I3  (APSFLAG)  =0,  TS  = TS  + KiMINIFlD  (descent) 

If  LEMMASS  < TS,  proceed  to  "DAPDATA2" 

MASS  = LEMMASS 

If  DAPBOOLS  bit  I3  (CSMDOCKD)  = 1: 

If  CSMMASS  < K:MINCSM,  proceed  to  "DAPDATA2" 

MASS  = LEMMASS  + CSMMASS 

Perform  "RE9T0RDB"  with  interrupts  inhibited 

If  FLGWRD10  bit  13  (APSFLAG)  = 1,  proceed  to  "ENDEXT"  (ascent) 

Perform  "GOXDSPFR"  with  TS  = K:V06N4S  (PITTIME,  ROLLTIME) 

(if  terminate,  proceed  to  "ENDEXT";  if  proceed,  skip 
next  two  steps;  if  other  response,  repeat  this  step) 

Perform  "BLANKET"  with  TS  = OOOO4.  (blank  R3) 

8 

End  Job 

Call  "TRIMGIMB"  in  0.01  second 

End  Job 
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TRIMGIMB 


PITCHOFF 


TRIMDONE 


ENDR03 


Switch  FLAGWRD6  bit  10  (GMBDRVSW)  to  0 

Switch  bits  12  and  10  of  channel  12  to  0 (-Q  and  -R  off) 

Switch  bits  11  and  9 of  channel  12  to  1 (+Q  and  +R  on) 

Delay  60  seconds  (drive  gimbals  to  stops) 

Switch  bits  1 1 and  9 of  channel  1 2 to  0 
Switch  bits  12  and  10  of  channel  12  to  1 
Call  "PITCHOFF"  in  PITTIME  centiseconds 
Delay  ROLLTIME  centiseconds 
Switch  bit  12  of  channel  12  to  0 
Skip  next  step 

Switch  bit  10  of  channel  12  to  0 

If  FUGWRD6  bit  10  (GMBDRVSW)  = 1,  establish  "TRIMDONE"  (prIO) 
If  FLAGWRD6  bit  10  = 0,  switch  FLAGWRD6  bit  10  to  1 
End  task 

Perform  "G0MARK3R"  with  TS  = K;V50N48  (PITTIME,  ROLLTIME)  The 
TS  is  formed  by  adding  13000g  to  K:V06N4B 

(If  terminate,  proceed  to  "ENDEXT";  if  proceed,  proceed 
to  "ENDEXT";  If  other  response,  proceed  to  "ENDEXT") 

Perform  "BLANKET"  with  TS  = 00024g  (PERFREQ  and  R3BLNK) 

End  job 

Inhibit  interrupts 
Perform  "RESTORDB" 

Proceed  to  "ENDEXT" 
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COMMEQS 


If  1JACCR  5 1JACCQ,  proceed  to  "BIGIQ" 

EPSILON  = (1JACCQ  - 1JACCR)  / 1JACCQ  (limited) 

If  EPSILON  >K:EPSMAX,  EPSILON  = K;EPSMAX 
COEFFR  = K:0.707  + K:0. 35356  EPSILON 
COEFFQ  = (-1  + EPSILON)  COEFFR 
Return 

BIGIQ.  mEPSILON  = ( 1JACCQ  - 1JACCR)  / 1JACCR  (limited) 

If  ImEPSILONj  > K:EPSMAX,  mEPSILON  = -K;EPSMAX 
COEFFQ  = -K:0,707  + K:0. 35356  mEPSILON 
COEFFR  = (-1  - mEPSILON)  COEFFQ 
Return 
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QUANTITIES  IN  COMPUTATIONS 


1 dACOAST_^  IcIACOASTq,  IdACOAST^^,  IdACOSTT^:  Single  precision  inverse 

of  magnitude  of  offset  acceleration  expected  to  oppose  positive  jet 
torques,  scaled  B8  in  units  of  seconds  squared  per  revolution. 

Limited  to  a maximum  value.  See  description  of  storage  sequence 
below. 

1dAC0AST_^^,  IdACOAST^,  IdACOAST^^,  IdACOSTT^ : Single  precision  inverse 

of  magnitude  of  offset  acceleration  expected  to  oppose  negative  jet 
torques,  scaled  B8  in  units  of  seconds  squared  per  revolution.  Limited 
to  a maximum  value.  See  description  of  storage  sequence  below. 

IdANET^,  IdANET^^,  tdATEMl^,  IdATEMP;  Single  precision  inverse  of  the 

1-jet,  net  acceleration  expected  in  a negative  sense  around  an  axis, 
scaled  B8  in  units  of  seconds  squared  per  revolution.  If  this  1-jet 
acceleration  cannot  counteract  an  opposing  offset  acceleration  and  the 
required  jets  are  not  failed,  the  appropriate  ACCSW  is  set  to  -1  and 
the  inverse  of  the  2-jet,  net  acceleration  is  stored  in  this  cell. 

See  description  of  storage  sequence  below. 

IdANET^,  IdANET^y,  IdATEMI^,  IdATEMP:  Single  precision  inverse  of  the 

1-jet,  net  acceleration  expected  in  a positive  sense  around  an  axis, 
scaled  B8  in  units  of  seconds  squared  per  revolution.  If  this  1-jet 
acceleration  cannot  counteract  an  opposing  offset  acceleration  and  the 
required  jets  are  not  failed,  the  appropriate  ACCSW  is  set  to  1 and 
the  inverse  of  the  2-jet,  net  acceleration  is  stored  in  this  cell. 

See  description  of  storage  sequence  below. 

1dANET_^^,  IdANET^,  IdANET^g,  IdATEMI^,  IdATEMP:  Single  precision  inverse 
of  the  2-jet,  net  acceleration  expected  in  a negative  sense  around  an 
axis,  scaled  B8  in  units  of  seconds  squared  per  revolution.  If  a jet 
failure  is  present  for  the  axis  in  question,  the  1-jet,  net  accelera- 
tion is  stored  in  this  cell.  See  description  of  storage  sequence  below. 

IdANET  IdANET^,  IdANET^^,  IdATEMI^,  IdATEMP:  Single  precision  inverse 
of  the  2-jet,  net  acceleration  expected  in  a positive  sense  around  an 
axis,  scaled  B8  in  units  of  seconds  squared  per  revolution.  If  a jet 
failure  is  present  for  the  axis  in  question,  the  1-jet,  net  acceleration 
is  stored  in  this  cell.  See  description  of  storage  sequence  below. 

1JACCP,  1JACCQ,  1JACCR:  (Program  notation  also  1JACC,  1JACC  +1,  and 
1JACG  +2,  respectively).  Single  precision  angular  accelerations 
expected  from  a single  RCS  jet  fired  around  the  P,Q  and  R axes, 
respectively;  computed  in  "1  /ACCS"  or  in  "DOCKED"  from  empirical  func- 
tions of  the  mass  of  the  vehicle,  scaled  B-3  in  units  of  revolutions 
per  second  sqixared. 
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IJACCU,  IJACCV:  Single  precision  angular  acceleration  expected  from  a 
single  RCS  jet  fired  around  the  U or  V axes;  computed  from  a 
function  of  1JACCQ  and  1JACCR  and  scaled  B-2  in  units  of 

revolutions  per  second  squared, 

2JETLIM:  See  DAPA  section. 


ABDELV:  Double  precision  magnitude  of  sensed  change  in  velocity, 
scaled  B14  in  units  of  centimeters  per  second. 

ABSAOS : Single  precision  magnitude  of  sensed  offset  acceleration, 

scaled  B-2  in  units  of  revolutions  per  second  squared. 

ACCDOTQ,  ACCDOTR:  Magnitude  of  rate  of  change  of  the  offset  acceleration; 
a function  of  inertia  and  c.g.  position  for  the  DPS  whose  gimbals  are 
driven  at  a constant  rate;  zero  for  the  APS  which  has  no  gimbals; 
scaled  B-8  in  units  of  revolutions  per  second  cubed. 


ACCFCT„,  ACCFCT^,,  ACFTEM_:  Single  precision  function  defining  the  inter- 
section on  the  phase  plane  of  two  parabolic  trajectories  (paths  of 
constant  acceleration),  scaled  B8  in  units  of  seconds  squared  per 
revolution.  One  trajectory  corresponds  to  the  1-jet,  net  acceleration 
expected  in  a negative  sense  around  an  axis,  and  the  other  trajectory 
corresponds  to  the  offset  acceleration  expected  in  a positive  sense 
around  an  axis.  If  no  offset  acceleration  is  expected  in  a positive 
sense  around  the  axis,  the  second  parabola  is  based  on  a minimum  accelera 
tion  and  defines  the  minimum  limit  cycle  that  can  be  achieved.  See 
description  of  storage  sequence  below. 


ACCFCT  ACCFCTj^^,  ACFTEM^ : Single  precision  function  defining  the  inter- 
section on  the  phase  plane  of  two  parabolic  trajectories  (paths  of 
constant  acceleration),  scaled  B8  in  units  of  seconds  squared  per 
revolution.  One  trajectory  corresponds  to  the  1-jet,  net  acceleration 
expected  in  a positive  sense  around  an  axis,  and  the  other  trajectory 
corresponds  to  the  offset  acceleration  expected  in  a negative  sense 
around  an  axis.  If  no  offset  acceleration  is  expected  in  a negative 
sense  around  the  axis,  the  second  parabola  is  based  on  a minimum  accelera 
tion  and  defines  the  minimum  limit  cycle  that  can  be  achieved.  See  des- 
cription of  storage  sequence  below. 


r ACCFCT^ , ACCFCT^g,  ACFTEM2 : Single  precision  function  defining 
i intersection  on  the  phase  plane  of  two  parabolic  trajectories 


ACCFCT 

the  Intersection  on  the^phase  plane  of  two  parabolic  trajt 
(paths  of  constant  acceleration),  scaled  B8  in  units  of  seconds  squared 
per  revolution.  One  trajectory  corresponds  to  the  2- jet,  net  accelera- 
tion expected  in  a negative  sense  around  an  axis,  and  the  other  trajec- 
tory corresponds  to  the  offset  acceleration  expected  in  a positive 
sense  around  an  axis.  If  no  offset  acceleration  is  expected  in  a 
positive  sense  around  the  axis,  the  second  parabola  is  based  on  a 
minimum  acceleration  and  defines  the  minimum  limit  cycle  that  can  be 
achieved.  See  description  of  storage  sequence  below. 
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ACCFCT_^2,  ACCFCT^,  ACCFCT^^g,  ACFTEM^ : Single  precision  function  defining 
the  intersection  on  the  phase  plane  of  two  parabolic  trajectories 
(paths  of  constant  acceleration),  scaled  B8  in  units  of  seconds  squared 
per  revolution.  One  trajectory  corresponds  to  the  2-jet,  net  accelera- 
tion expected  in  a positive  sense  around  an  axis,  and  the  other  trajec- 
tory corresponds  to  the  offset  acceleration  expected  in  a negative 
sense  around  an  axis.  If  no  offset  acceleration  is  expected  in  a 
negative  sense  around  the  axis,  the  second  parabola  is  based  on  a 
minimum  acceleration  and  defines  the  minimum  limit  cycle  that  can  be 
achieved.  See  description  of  storage  sequence  below. 

ACCSWq,  ACCSWj^  , ACCSWTEM:  Single  precision,  three-option  switches  for  the 
U and  V axes,  respectively,  scaled  B14  and  unitless.  Set  if  the  net 
acceleration  on  one  direction  is  very  small  (large  opposing  offset 
acceleration)  to  indicate  to  "TJETLAW"  that  maximum  jets  must  be  used 
if  a rotation  in  that  direction  is  required.  (See  "RETURNTJ".) 

ADRSDIFl , ADRSD1F2:  Single  precision  address  indices,  scaled  B14  and 

unitless.  ADRSDIFl  distinguishes  among  the  3 axes  and  between  positive 
and  negative  torque  and  acceleration  parameters;  ADRSDIF2  distinguishes 
between  one  and  two  jet  parameters.  (Only  2-jet  parameters  computed 
for  the  P-axis . ) 


ALLOWGTS ; 


See  DAPA  Section. 


See  DAPA  Section. 


ALPHAQ  , ALPHAR: 

ANET : Single  precision  expected  net  acceleration,  scaled  B-2  in  units 

of  revolutions  per  second  squared. 

AOSQ,  AOSR:  See  DAPA  Section. 

AOSU,  AOSV:  Single  precision  disturbing  acceleration  due  to  thrust  vector/ 
c.g.  offset  or  other  external  torques  around  the  U and  V axes  respec- 
tively, scaled  B-2  in  units  of  revolutions  per  second  squared. 

AXISCTR:  See  DAPA  Section. 

AXISDIST. : Single  precision  difference  between  the  E axis  intercept 

defining  the  zone  1 boundary  and  the  E axis  intercept  defining  the 
cutoff  parabola,  scaled  B-3  in  units  of  revolutions.  The  cutoff  para- 
bola is  one  with  slope  defined  by  Amin  and  intercept  at  FIREDB  + 

FLAT  on  the  same  side  of  the  EDOT  axis,  or  the  cutoff  parabola  is  one 
with  slope  defined  by  offset  acceleration  and  intercept  at  0.75  FIREDB 
on  the  other  side  of  the  EDOT  axis. 
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AXISDIST_i6,  AXISDISTq,  AXISDIST16,  AXDSTEMo,  UAXDISTq:  AXISDIST  for 
positive  EDOT. 

AXISDIST_^5,  AXISDISTq,  AXISDIST3_r7,  AXDSTEMj_,  UAXDIST]_:  AXISDIST  for 
negative  EDOT. 

CH5MASK;  See  DATA  Section. 

COASTDBj^  (i  = -16,  -15,  0,  1,  16,  17):  Single  precision  deadband  de- 
fining the  Z0NE4,  Z0NE5  border,  scaled  B-3  in  units  of  revolutions. 

See  description  of  storage  sequence  below. 

COEFFQ,  COEFFR:  See  DAPA  Section. 

CSMMASS:  Single  precision  astronaut  input  of  the  mass  of  the  GSM, 
scaled  3l6  in  units  of  kilograms. 

DAPBOOLS:  See  DAPA  Section. 

DAPDATRl:  Single  precision  communication  cell  used  in  the  astronaut 
interface  routine  to  allow  him  to  change  APSFLAG  and  selected  bits 
of  DAPBOOLS. 

DB:  Single  precision  PCS  deadband,  set  by  the  astronaut  or  by  internal 
programs  at  one  of  3 fixed  values,  scaled  B-3  in  units  of  revolutions. 

DBBl,  DBB4:  FIREDB  and  COASTDB  for  positive  EDOT,  scaled  B-3  in  units  of 
revolutions . 

D3B2,  DBB3:  FIREDB  and  COASTDB  for  negative  EDOT,  scaled  B-3  in  units  of 
revolutions . 

DBVALl,  DBVAL2,  DBVAIj3:  Single  precision  modifications  to  the  basic 
deadband  used  to  define  COASTDB  and  FIREDB  under  various  different 
operational  conditions  of  the  DAP,  scaled  B-3  in  units  of  revolutions. 


DKDB:  Single  precision  inverse  of  the  attitude  deadband  in  the  CSM-docked 
RCS  control  law,  scaled  B15  in  units  of  revs“^;  initialized  to  00200 
(corresponding  to  I/I.4  deg)  by  a fresh  start. 


DOCKTEMP:  Single  precision  storage  for  bit  13  of  DAPBOOLS  to  assure 
uniformity  of  docked  assumption  throughout  "l/ACCS,"  scaled  BI4  and 
unitless . 


DRIFTER:  Single  precision  storage  for  bit  8 of  DAPBOOLS  to  assure 
uniformity  of  drifting  flight  assumptions  throughout  "l/ACCS," 
scaled  BI4  and  unitless. 
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E,  EDOT:  Single  precision  attitude  error  and  attitude  rate  error  used  to 
define  positions  on  the  phase  plane  and  calculate  the  duration  of  any 
RGS  jet  firings  that  are  deemed  necessary,  scaled  B-1  and  B-3,  re- 
spectively in  units  of  revolutions  and  revolutions  per  second  at  entry 
to  "TJETLAW"  and  "3P3RGS"  subroutines.  Note  that  EDOT  is  also  used  as 
rate-to-be-gained  in  response  to  RHC  commands. 

EDOTSQ:  Single  precision  square  of  EDOT,  scaled  B-10  in  units  of 
revolutions  squared  per  second  squared. 

EPSILON:  Single  precision  quantity  providing  a measure  of  control  torque 
cross-coupling.  It  is  equal  to  the  ratio  of  the  Q-axis  inertia  to  the 
R-axis  inertia  subtracted  from  one.  Scaled  BO  and  unitless. 

FIREDBj^  (i  = -16,  -15,  0,  1,  16,  17):  Single  precision  deadband  defining 
the  Z0NE123,  Z0NE4  border,  scaled  B-3  in  units  of  revolutions. 

FIREFCT:  Single  precision  function  of  E,  EDOT,  net  acceleration  and 
FIREDB  used  to  define  zones  1-2-3  and  4-5  and  used  with  ACCFCT  and 
TTOAXIS  to  calculate  the  duration  of  the  RCS  jet  firing  time,  scaled 
B-3  in  imits  of  revolutions.  See  description  of  storage  sequence  below. 

FLAT,  FLATEMP:  Single  precision  deadband  defining  the  ZONEl,  Z0NE2-3 
boundary,  scaled  B-3  in  units  of  revolutions. 

HH:  The  double  precision  square  of  the  time  from  the  E-axis  to  the  inter- 
section of  the  parabolic  phase  plane  trajectories  and  the  parabolic 
switch  curve,  scaled  B4  in  units  of  seconds  squared. 

HIASCENT:  Single  precision  upper  bound  on  the  mass  of  the  ascent  stage, 
scaled  Bl6  in  units  of  kilograms.  Initialized  in  fresh  start  and/or 
loaded  with  the  erasable  load. 

HOLDQ:  Single  precision  octal  return  address  storage. 

INGTS:  See  DAPA  Section. 

K:0. 35356:  Single  precision  constant,  stored  as  13241g . It  is  equal 
to  v2/4,  scaled  BO  and  unitless. 

K; 0.707:  Single  precision  constant,  program  notation  .707,  stored  as 
26501g,  scaled  BO  and  unitless.  Equation  value:  0.70709 

K:100msB2:  Single  precision  constant,  program  notation  -.05AT2  or  .IAT4, 
stored  at  +0.025,  scaled  B2  in  units  of  seconds.  Equation  value:  +0.1 
(equivalent  to  100  milliseconds) 


DAPB  - 27 


K:150m3sq:  Single  precision  constant,  program  notation  -.011248,  stored 
as  777508,  scaled  B4  in  units  of  seconds  squared.  Equation  value: 
+0.02256  (equivalent  to  150. 2^  milliseconds^) 

K:ldl0:  Single  precision  constant  stored  as  031463,  program  notation 
1/10,  scaled  BO  and  unitless.  Equation  value:  0.1 

K:ldp03:  Single  precision  constant  stored  as  377778,  scaled  B8  in  units 
of  seconds  squared  per  revolution.  Equation  value:  255.98  (equivalent 
to  1/(1.407  deg/sec^)) 

K:1JACC0N:  Single  precision  constant  stored  as  00l67g  and  scaled  B13  in 
units  of  rev-Kg/sec^.  Equation  value  59.47.  Used  to  obtain  p-axis 
control  authority  for  the  docked  configuration. 

K:200msB2:  Single  precision  constant,  program  notation  .1AT2,  stored  as 
014633 > scaled  B2  in  units  of  seconds.  Equation  value:  0.2 

K:250msB2:  Single  precision  constant,  program  notation  BITll,  stored  as 
02000g,  scaled  B2  in  units  of  seconds.  Equation  value:  0.25. 

K:25nisB2:  Single  precision  constant,  program  notation  -.025AT4,  stored 
as  77631g,  scaled  B2  in  units  of  seconds.  Equation  value:  0.025 

K:2jlimdwn:  Single  precision  constant  stored  as  OlOOOg,  program  notation 
BITIO  scaled  B-3  in  units  of  revolutions  per  second.  Equation  value: 
0.00391  (equivalent  to  1.4  degrees  per  second) 

K:300msB2:  Single  precision  constant,  program  notation  -.15AT2,  stored 
as  75462g,  scaled  B2  in  units  of  seconds.  Equation  value:  0.3 

K:37.5nisB2:  Single  precision  constant,  program  notation  .0375AT4,  stored 
as  00232g,  scaled  B2  in  units  of  seconds.  Equation  value:  0.03752 

K:4secB5:  Single  precision  constant  stored  as  73777g,  program  notation 
-I/8,  scaled  B5  in  units  of  seconds.  Equation  value:  +4.0 

K:50msB2:  Single  precision  constant,  program  notation  -.025Ar2,  stored 
as  -O.OI25,  scaled  B2  in  units  of  seconds.  Equation  value:  +0.05 
(equivalent  to  +50  milliseconds) 

K:50mssq:  Single  precision  constant,  program  notation  NEG2,  stored  as 
777758)  scaled  B4  in  units  of2seconds  squared.  Equation  value: 
+0.001953  (equivalent  to  44.2  milliseconds  squared) 

K:85mssq:  Double  precision  constant,  program  notation  .00375A8,  stored 
as  0.00375  X 2“-^,  scaled  B4  in  units  of  seconds  squared.  Equation 
value:  0.0075  (equivalent  to  86.6^  milliseconds  squared) 
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K;acp;  Constant  implicit  in  addition  of  two  quantities  of  unequal 
scaling,  scaled  B-8  in  units  of  revolutions  per  second  squared. 
Equation  value:  0.00390625  (equivalent  to  1.4  degrees  per  second 
squared) 

K: AXISDIFFj^:  Three  single  precision  constant^  scaled  B14  and  unitless. 
Equation  value:  -16,  0 and  16  for  1 = -1,  0 and  1. 

K:B0toB10:  Effective  scale  factor  introduced  by  treating  a quantity 
scaled  BO  as  if  it  were  scaled  BIO,  scaled  BIO  in  units  of  centi- 
seconds.  Equation  value:  1024  (equivalent  to  10.24  seconds) 

K:cgcoefA,B,C,D,E,F:  Six  single  precision  coefficients  for  a curve  fit 
of  the  form  kxr  t By^  + Cxy  + Dx  + Ey  + F,  used  to  find  the  rate  of 
change  of  the  DPS  moment  arm  around  the  c.g.  of  the  docked  configura- 
tion. 


Pro  gram 

Stored 

Scale 

Notation 

Value 

Factor 

Units 

Equation  Value 

A 

COEFF+9 

-0.37142 

B-31 

cm 

sec” 

rev 

rad”^ 

-1.7296  E-10 

B 

COEFF+8 

0.75704 

B-31 

cm 

sec” 

rev 

rad” 

kg-2 

3.5252  E-10 

C 

COEFF+6 

0.20096 

B-31 

cm 

sec” 

rev 

rad” 

kg-2 

9.3579  E-11 

D 

COEFF+11 

0.41179 

B-15 

cm 

sec” 

rev 

rad”^ 

kg-1 

1.2567  E-5 

E 

COEFF+10 

-0.63117 

B-15 

cm 

sec” 

rev 

rad”^ 

kg”l 

-1.9262  E-5 

F 

COEFF+7 

0.13564 

B1 

cm 

sec” 

rev 

rad^-^ 

0.27128 

The  equation  value  of  each  constant  embodies  the  two  constant  factors 
I/2IT  and  0.2  degrees  per  second.  The  first  is  a conversion  factor  to 
convert  radians  to  revolutions;  the  second  is  the  DPS  gimbal  rate.  If 
the  equation  value  is  multiplied  by  2n  and  divided  by  0.2,  the  resulting 
coefficients  will  give  an  idea  of  the  programmed  value  for  DPS  moment 
arm  per  degree  of  thrust  vector/c.g.  offset.  For  example,  (0.27128  2TT/ 
0.2)  360  = 2IT  488.3,  the  circumference  of  a circle  with  radius  equal 
to  the  c.g.  to  pivot  point  distance.  Thus,  using  only  the  constant 
term  of  the  polynomial,  this  distance  is  about  500  centimeters  or 
about  200  inches. 

K:DGBF:  Single  precision  constant,  stored  as  23146g,  scaled  B-1  and 
unitless.  Equation  value:  0.3 

K:dvtoacc:  Constant  implicit  in  the  2-second  navigation  cycle,  scaled 

B-1  in  units  of  seconds  to  the  minus  one  power.  Equation  value: 

K:EP3MAX:  Single  precision  constant,  stored  as  623623,  but  used  in  this 

writeup  as  though  it  were  positive.  It  provides  the  magnitude  limit 
for  EPSILON  and  mEPSILON.  Scaled  BQ  and  unitless.  Effectively  con- 
strains the  U'  and  V axes  within  15  deg.  from  the  U,  V axes.  Equation 
value : 0 . 422668 
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K:FINE:  Single  precision  constant  stored  as  05220g,  scaled  B-15  in  units 
of  revolutions  per  second  per  RHC-count  squared.  See  definition  of 
STIKSENS  in  the  DAPA  Section. 


K:FLATVAL:  Single  precision  constant,  stored  as  00443g,  scaled  B-3  in 
units  of  revolutions.  Equation  value:  0.00222  (equivalent  to  0.8 
degrees ) 


KiGFACTM:  Single  precision  constant  stored  as  003378 > used  to  convert 
from  units  of  pounds  (force)  to  units  of  kg  cm/second^;  scaled  B15 
in  units  of  kg  cm  sec“2/ibs.  Equation  value:  446  (corresponds  to 
4.4482  newtons  per  pound  times  100  cm/meter) 

K:HIDESCNT:  Single  precision  constant  stored  as  0736lg,  scaled  BI6  in 
units  of  kilograms.  It  is  the  upper  bound  on  descent  stage  mass. 
Equation  value:  15300 


K;INERC0NA^:  Set  of  six  double  precision  constants  scaled  B13  in  units 
of  revolutions/sec^  kg“^. 


i Stored  value 


Equation  value 


0 

2 

4 

6 

8 

10 


0.005  934  7674 
0.001  497  9264 
0.001  045  1889 
0.006  544  3852 
0.003  578  4354 
0.005  694  6631 


48.617  6145 
12.271  0131 
8.562  1875 
53.611  6036 
29.314  5428 

46.650  6801 


K:INERC0NB£:  Set  of  six  single  precision  constants  scaled  B-3  in  units 
of  revolutions  per  second  squared. 


i Stored  value 


Equation  value 


0 0.002  989 

2 0.018  791 

4 0.021  345 
6 0.000  032 
8 0.162  862 
10  0.009  312 


3.7363  3-4 
2.3489  E-3 
2.6681  E-3 
4.0000  E-6 
2.0358  E-2 
1.1640  E-3 


K: INERC0NCj_:  Set  of  six  single  precision  constants  scaled  BI6  in  units 
of  kilograms. 

i Stored  value  Equation  value 


0 

0.008  721 

571.5 

2 

-0.068  163 

-4467.1 

4 

-0.066  027 

-4327.1 

6 

-0.006  923 

-453.7 

8 

0.002  588 

169.6 

10 

-0.023  608 

-1547.2 
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K;inrtcofA,  B,  C,  D,  E and  F:  Six  single  precision  coefficients  of  a 
curve  fit  of  the  form  Ax2  + By2  + Cxy  + Dx  i Ey  + F used  to  find  the 
approximate  moment  of  inertia  around  an  axis  in  the  Q-R  plane  of  the 
combined  GSM  LM. 


Pro  gram 

Stored 

Scale 

Equation 

Notation 

Value 

Factor 

Units 

Value 

A 

COEFF  +3 

-0.03709 

B6 

kg 

cm^/ rad 

kg2 

-2.37376 

B 

COEFF  +2 

-0.17670 

B6 

kg 

cm2/ rad 

kg2 

-I.I3O88 

El 

C 

COEFF  +0 

0.19518 

B6 

kg 

cm2/ rad 

kg2 

1.24915 

El 

D 

COEFF  +5 

0.02569 

B22 

kg 

cm2/ rad 

kg 

1.07752 

E5 

E 

COEFF  +4 

0.06974 

B22 

kg 

cm2/ rad 

kg 

2.92511 

E5 

F 

COEFF  +1 

-0.00529 

B38 

kg 

cm2/ rad 

-1.45410 

E9 

K:LconA: 

; Double 

precision  constant,  program 

notation  INERCONA  -2, 

stored  as  0.04.10511917,  scaled  B19  in  units  of  kilograms  feet  per 
radian.  Equation  value:  21522.647 

K:LconB:  Single  precision  constant,  program  notation  INERCONB  -2, 

stored  as  0.155044»  scaled  B3  in  units  of  feet  per  radian.  Equation 
value:  1.240352 

K:LconC:  Single  precision  constant,  program  notation  INERCONC  -2, 
stored  as  -0.025233,  scaled  Bl6  in  units  of  kilograms.  Equation 
value:  -1653.7 

K:L0ASCENT:  Single  precision  constant  stored  as  2200  x 2~^^;  the  lower 
bound  on  ascent  stage  mass,  scaled  Bl6  in  units  of  kilograms. 

Equation  value:  2200 

K:L0DESCNT:  Single  precision  constant  stored  as  00666g,  scaled  Bl6  in 
units  of  kilograms.  It  plus  HIASCENT  is  the  lower  bound  on  the  un- 
staged LM  mass.  Equation  value  1752 

K:m.l875:  Single  precision  constant  stored  as  71777g,  but  used  in  this 
writeup  as  though  it  were  positive.  Scaled  B-2  with  units  of  revs/ 
sec^.  Equation  value:  0.04687  (corresponds  to  16.87  deg/sec^) 

K:m0.3DdS:  Single  precision  constant  stored  as  776223,  program  notation 
-0.3D/S,  scaled  B-3  in  units  of  revolutions  per  second.  Equation 
value:  0.00083  (equivalent  to  0.3  degrees  per  second) 

K:m0.6DdS:  Single  precision  constant,  program  notation  -0.6D/S,  stored 

as  774453,  scaled  B-3  in  units  of  revolutions  per  second.  Equation 
value:  O.OOI66  (equivalent  to  0.6  degrees  per  second) 

K:m3deg:  Single  precision  constant  stored  as  756733-  Scaled  B-3  in 

units  of  revolutions.  Equation  value:  -0.00833  (equivalent  to  -3 
degrees ) 
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K:m3tojiL:  Constant  Implied  in  combining  BOOT,  scaled  B-3  in  units  of 
revolutions  per  second,  with  E,  scaled  B-1  in  units  of  revolutions; 
scale  factor  B2,  units  seconds.  This  is  the  inverse  of  the  slope  of 
the  switch  curves  in  the  docked  RCS  phase  plane.  Equation  value;  4 

K:MINCSM:  Single  precision  constant  stored  as  02000g,  scaled  Bl6  in 
units  of  kilograms.  Equation  value:  4096 

Kiminiacc:  Single  precision  constant,  program  notation  -.03R/S2,  stored 
as  773773,  scaled  B-2  in  units  of  revolutions  per  second  squared. 
Equation  value:  +0.0039  (corresponds  to  0.02454  radians  per  second 
squared  or  1.406o/sec2) 

K:minlmpt:  Single  precision  constant,  stored  as  00040g,  program  notation 
BIT6,  scaled  B2  in  units  of  seconds.  Equation  value:  2“'  (equivalent 
to  7.8  ms) 

K:MINLMD:  Single  precision  constant  stored  as  764663,  scaled  BI6  in 
units  of  kilograms.  Equation  value:  -2852 

K:MINMINLM;  Single  precision  constant  stored  as  7673I3,  scaled  BI6  in 
units  of  kilograms.  Equation  value:  -2200 

K:NARR0WDB:  Single  precision  constant  stored  as  OOI553,  scaled  B-3  in 
units  of  revolutions.  Equation  value:  0.00083  (equivalent  to 
0.2994°) 

K:nomaxjts:  Single  precision  constant  stored  as  4OOOO3,  scaled  B-3  in 
units  of  revolutions  per  second.  Equation  value:  +0.12499  (equivalent 
to  44.997  degrees  per  second) 

K: NORMAL;  Single  precision  constant  stored  as  25101g,  scaled  B-15  in 
units  of  revolutions  per  second  per  RHC-count  squared.  Equation 
value:  0.000020148.  See  definition  of  STIKSEN3  in  the  DAPA  Section. 

K:P0WERDB:  Single  precision  constant  stored  as  005548 > scaled  B-3  in 
units  of  revolutions.  Equation  value:  0.00277  (equivalent  to  1 
degree) 

K:RATEDB1;  Single  precision  constant,  stored  as  000453,  scaled  B-3  in 

units  of  revolutions  per  second.  Equation  value:  0.0002823  (equivalent 
to  0.102°/sec) 

K:RATELIM1:  Single  precision  constant,  stored  as  00032g,  scaled  B17  in 
units  of  seconds  per  revolution.  Equation  value:  208  or  I.O/O.OO48 
(equivalent  to  l/l.73°/sec) 
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K:RATELIM2:  Single  precision  constant  stored  as  00632g,  scaled  B-3  in 
units  of  revolutions  per  second.  Equation  value:  0.003128  (equivalent 
to  1.126°/sec) 

KrEUFRAlE:  Single  precision  constant  stored  as  044^63 , scaled  B-3  in 
units  of  revs/sec.  Used  as  a rate  limit  in  TJETLAW  phase  plane  cal- 
culations. Equation  value:  0.01805  (equivalent  to  6.5  degrees/sec) 

K; SENSOR:  Single  precision  constant  stored  as  14400g,  scaled  B8  in  units 
of  centiseconds  per  second.  Used  to  convert  scaling  used  in  "TJETLAW" 
to  that  used  for  TIME6  calculations.  Equation  value:  100 

K:tinyacc:  Single  precision  constant,  program  notation  .023R/S2,  stored 
as  003563,  scaled  B-2  in  units  of  revolutions  per  second  squared. 
Equation  value:  O.OO363I  (equivalent  to  0.02281  radians  per  sec^  or 

1.307  degree/sec2) 

K:tjmax:  Single  precision  constant,  program  notation  -TJMAX,  stored  as 
-O.O375,  scaled  B2  in  units  of  seconds.  Equation  value:  +0.15 
(equivalent  to  +150  milliseconds) 

K:tjmin:  Single  precision  constant,  program  notation  -TJMIN  or  TJMIN, 

stored  as  +0.005,  scaled  B2  in  units  of  seconds.  Equation  value: 

+0.02  (equivalent  to  20  milliseconds) 

K:T0RKJET1:  Single  precision  constant  stored  as  0.03757,  scaled  B22  in 

units  of  foot-pounds /radians  sec“^.  Equation  value:  157580  (corresponds 
to  about  550/0.00349).  The  torque  expected  from  one  RCS  jet  is  550 
foot-pounds  and  the  rotation  rate  of  the  DPS  gimbals  is  nominally 
0.2°/sec. 

K:T0RQC0NS:  Double  precision  constant  stored  as  0.51443  x 2“14,  scaled 
B35  in  units  of  kilogram  centimeters  squared  revolutions/radians 
seconds  squared.  Equation  value:  1078837.90  (equivalent  to  500 
foot-pounds  X 13557  kg  cm^  per  ft-lb  x 1/6.2832  rev/rad) 

K:UTIMEj_  (i  = 1,2,3):  Single  precision  constants  giving  time  in  deciseconds 
between  RCS  jet  firings  for  the  docked  configuration.  Stored  as: 

000043  for  the  P-axis,  00012g  for  the  U-axis,  OOOlPg  for  the  V-axls. 
Scaled  B14  with  units  of  deciseconds.  Equation  values:  4>  10,  and  10, 
respectively 

K:WIDEDB:  Single  precision  constant  stored  as  034348 > scaled  B-3  in  units 
of  revolutions.  Equation  value:  0.013885  (equivalent  to  4-999°) 

K:Z0NE3MAX:  Single  precision  constant  stored  as  0.004375,  scaled  B2  in 
units  of  seconds.  Equation  value:  0.0175  (equivalent  to  35  msec,  of 
single  jet  firing) 
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LEMMASS;  Single  precision  astronaut  input  of  the  mass  of  the  LM,  scaled 
Bl6  in  units  of  kilograms. 

LPVTABM:  Single  precision  proportionality  factor  between  the  DPS  gimbal 
angle  and  the  moment  arm  of  the  thrust  around  the  c.g.,  scaled  B3  in 
units  of  feet  per  radian,  program  notation  L,PVT-CG.  Because  the  DPS 
gimbal  angles  are  small,  LPVTA.BM  is  approximately  equal  to  the  distance 
between  the  c.g.  and  the  DPS  pivot  point. 

MASS:  Double  precision  mass  of  the  vehicle,  scaled  Bl6  in  units  of 
kilograms 

mEPSILON:  Single  precision  quantity  with  same  function  as  EPSILON.  It 
is  equal  to  one  subtracted  from  the  ratio  of  the  R-axls  inertia  to  the 
Q-axis  inertia.  Scaled  BO  and  unitless. 

MPACq:  Single  precision  working  storage  used  in  "l/ACCS"  to  store  the 
torque  expected  from  the  DPS  engine,  scaled  B17  in  units  of  foot-lbs 
per  radian  (radians  of  rotation  of  the  DPS  bell);  used  in  "DOCKED"  to 
store  the  rate  of  change  of  the  DPS  moment  arm,  scaled  B1  in  units  of 
centimeters  per  second-revolutions  per  radian. 

MPAC^:  Single  precision  working  storage  used  in  "DOCKED"  to  store  the 
combined  vehicle  moment  of  inertia  around  an  axis  in  the  Q-R  plane, 
scaled  B38  in  units  of  kilogram  centimeters  squared  per  radian. 

NUMBERT:  See  DAPA  Section. 

OLDSENSE:  Single  precision  quantity  giving  the  sign  of  the  jet  firing 
time,  calculated  in  the  preceding  pass  through  the  DAP,  for  the  axis 
under  consideration.  Scaled  BI4  with  units  of  declseconds. 

PITTIME:  Single  precision  time  to  drive  the  DPS  gimbal  in  a positive 
direction  around  the  Q-axis  starting  at  the  hard  stop  to  position  it 
prior  to  a burn,  scaled  BI4  in  units  of  centlseconds . 

PJETCTRj^:  See  DAPA  Section. 

QACCDOT,  RACCDOT:  See  DAPA  Section. 

QDAPK,  RDAPK:  See  DAPA  Section. 

RATEDB:  See  DAPA  Section. 

RATEINDX:  Single  precision  index  used  by  large  attitude  maneuver  calcu- 

lation routines  to  select  the  maneuver  rate,  scaled  BI4  and  unitless. 
Determined  by  the  setting  of  bits  1 and  2 of  DAPBOOLS:  possible  values 
0,  1,  2,  or  3.  The  program  uses  these  values  doubled  for  convenience 
in  indexing. 
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ROLLTIME:  Single  precision  time  to  drive  the  DPS  gimbal  in  a positive 

direction  around  the  R-axis  starting  at  the  hard  stop  to  position  it 
prior  to  a burn,  scaled  BI4  in  units  of  centiseconds. 

ROTSENSE:  Single  precision,  two-valued  switch  specifying  the  direction 
of  desired  rotation,  scaled  B8  in  units  of  centiseconds  per  second. 

SENSETYP:  See  DAPA  Section. 

STIKSENS:  See  DAPA  Section. 

T5ADR:  See  DAPA  Section. 

TJq,  TJ]_,  TJ2:  See  DAPA  Section. 

TTOAXIS:  Time  from  the  present  point  on  the  phase  plane  to  the  E-axis 
along  the  parabolic  trajectory  defined  by  the  net  acceleration,  scaled 
B2  in  units  of  seconds. 

UAXDISTj_:  See  AXISDIST  pgs.  DAPB  25  and  26. 

UDBl,  IDB2,  UDB3,  UDB4:  Temporary  storage  for  DBBl,  DBB2,  DBB3,  and 
DBB4  as  computed  for  the  U-axis,  scaled  B-3  in  units  of  revolutions. 

UV : Single  precision  index  to  distinguish  between  U and  V axes,  scaled 

BI4  and  unitless. 

Z3TEM:  Temporary  storage  with  same  scaling  as  K:Z0NE3MAX. 

Z0NE3LIM:  Single  precision  time  defining  the  border  between  Z0NE2  and 
Z0NE3,  scaled  B2  in  units  of  seconds. 
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storage  Sequence  for  "TJETLAW  Parameters 


E -memory 
Register 

Contents  of  cell 

Address  used  in 
Computations 

BLOCKTOP+0 

ACCSWU 

ACC3W 

Accswir 

1 dANET  , , 

- 1 4 

BLOCKTOP+1 

ACCSWV 

BLOCKTOP+2 

IdANET  for  negative,  2- jet 
acceleration  around  P-axis 

BLOCKTOP+3 

IdANET  for  positive,  2-jet 
acceleration  around  P-axis 

1dANET_^^ 

BLOCKTOP+4 

IdACOAST,  negative  around  P 

IdACOAST  .. 
IdACOAST 

FLAT  ^ 

BLOCKTOP+5 

IdACOAST,  positive  around  P 

BLOCKTOP+6 

FLAT 

BLOCKTOP+7 

Z0NE3LIM 

Z0NE3LIM 

BLOCKTOP+8 

ACCFCT  corresponding  to  negative, 

2- jet  acceleration  around  P 

ACCFCT 

BLOCKTOP+9 

ACCFCT  corresponding  to  positive, 
2-jet  acceleration  around  P 

ACCFCT 

BLOCKTOP+1  0 

FIREDB  for  positive  EDOT  around  P 

FIREDB  .. 
FIREDB"'^ 

COASTDB 

COASTDB  ^ 
AXISDIST 

AXISDIST 

BLOCKTOP+1 1 

FIREDB  for  negative  EDOT  around  P 

BLOCKTOP-tl2 

COASTDB  for  positive  EDOT  around  P 

BLOCKTOP+1  3 

COASTDB  for  negative  EDOT  around  P 

BLOCKTOP+1 4 

AXISDIST  for  positive  EDOT,  P-axis 

BLOCKTOP+1  5 

AXISDIST  for  negative  EDOT,  P-axis 

BLOCKTOP+1 6 

IdANET  for  negative,  1-jet 
acceleration  around  U-axis 

1 dANETp 

BLOCKTOP+1 7 

IdAJIET  for  positive,  1-jet 
acceleration  around  U-axis 

1 dANET^ 

BLOCKTOP+1 8 

IdANET  for  negative,  2- jet 
acceleration  around  U-axis 

IdANET^ 

BLOCKTOP+1 9 

IdANET  for  positive,  2- jet 
acceleration  around  U-axis 

1 dANET^ 

BLOCKTOP+20 

1 dACOAST , negative  around  U 

1 dACOAST 

1 dACOAST!: 

ACCFCTq 

BLOCKTOP+21 

IdACOAST,  positive  around  U 

BLOCKTOP+22 

ACCFCT  corresponding  to  negative, 
1-jet  acceleration  around  U 

BLOCKTOP+23 

ACCFCT  corresponding  to  positive, 
1-jet  acceleration  around  U 

ACCFCT^ 

BLOCKTOP+24 

ACCFCT  corresponding  to  negative, 
2-jet  acceleration  around  U 

ACCFCT^ 

BLOCKTOP+2 5 

ACCFCT  corresponding  to  positive, 
2-jet  acceleration  around  U 

ACCFCT^ 

BLOCKTOP+26 

FIREDB  for  positive  EDOT  around  U 

FIREDB 

firedb!: 

COASTDB 

COASTDB^ 

AXISDIST 

AXISDIST!j^ 

BLOCKTOP+27 

FIREDB  for  negative  EDOT  around  U 

BLOCKTOP+28 

COASTDB  for  positive  EDOT,  U-axis 

BLOCKTOP+29 

COASTDB  for  negative  EDOT,  U-axis 

BLOCKTOP+30 

AXISDIST  for  positive  EDOT,  U-axis 

BLOCKTOP+31 

AXISDIST  for  negative  EDOT,  U-axis 

BL0CKT0P-t32 

V-axis  parameters  identical  in 

U-axis  subscripts 

throiagh 

BLOCKTOP+47 

description  to  U-axis  parameters 
but  around  V-axis  instead  of  U-axis 

plus  16 
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DATA 


Data  Input /Out put  Routines 


NVSUB  (Entered  vd.th  TSvn  and  TSmonopt  in  A and  L) 

NVTEMP  = TSvn  (verb-noun  code) 

FREEDSKY  = 0 

If  DSPLOCK  > 0,  return  (astronaut  using  DSKY) 

If  bit  14  of  MDNSAVEl  = 1,  return  (externally  initiated  monitor) 

NVQTEM  = return  address 

M0NSAVE2  = TSmonopt  (monitor  options) 

MDNSAVEl  = 40000g  (terminate  monitor) 

ENTRET  = "NVSUBEND" 

If|NVTEMP|=  0,  proceed  to  "DSPALARM” 

If  NVTEMP  < 0,  proceed  to  "BLANKDSP" 

TSnoun  = low  7 bits  of  NVTEMP  (MPAC^) 

TSverb  = bits  14-8  of  NVTEMP  shifted  right  7 places  (MPAC^^) 

If  TSnoun  = 0: 

VERBREG  = TSverb 
Perform  "UPDATVB" 

REQRET  = +0  (process  verb-noun  information) 

Proceed  to  "NVSUBEND" 

If  TSverb  = 0: 

NOUNREG  = TSnoun 
Perform  "UPDATNN" 

Proceed  to  "NVSUBEND" 

TSadr  = MPAC2  (MPAC^) 

VERBREG  = TSverb 
Perform  "UPDATVB" 


DATA  - 1 


NOUNREG  = TSnoun 


BIANKDSP 


NVSUBEND 


Perform  "UPDATM” 

LOADSTAT  = 40 
CLPASS  = 0 
REQRET  = 40 
MPAC2  = TSadr 
Proceed  to  "ENTPASO" 

CODE  = 6 -tlNVTEMPl  (CODE  = 7,  8,  9 or  10  for  legal  options; 

illegal  options  cause  error) 

Inhibit  interrupts 

Perform  indented  steps  for  i = CODE,  CODE  - 1,  ...  A,  3,  2,  1,  0 
If  DSPTAB.  > 0,  NOUT  = NOUT  4-  1 

DSPTAB^  = OAOOOg  complemented  to  flag  for  output 
(end  of  "indented  steps") 

Release  interrupt  inhibit 
If  NVTEMP  < -3,  VERBREG  = 0 
If  NVTEMP  < -2,  NOUNREG  = 0 
CLPASS  = 0 

DSPCOUNT  = - 19  (inhibit  all  numerical  inputs) 

Switch  bit  6 of  channel  11  to  0 (flash  off) 

REQRET  = 4O  ' (process  verb-noun  information) 

FREEDSKY  = 1 
Return  via  NVQTEM 


DATA  - 2 


ENTPASO  Switch  DECBRNCH  to  OOOOOg 

DSPCOUNT  = - 19  (to  block  entry  of  numerical  characters) 

VERBSAVE  = - VERBREG 

If  VERBREG  > 28,  proceed  to  "VERBFAN" 

TESTNM  Perform  "LODNNTAB" 

If  mXBR  = 2,  proceed  to  "MIXNOUN" 

If  MADTEM  > 0:  (normal  noun  address) 

NOUNCADR  = NNADTEM 

EBANK  = bits  11-9  of  NNADTEM 

NOUNADD  = 01400g  + bits  8-1  of  NOUNCADR 

Proceed  to  "VERBFAN" 

If  NNADTEM  = +0,  proceed  to  "DSPALARM"  (noun  is  not  valid) 

If  NNADTEM  = -0:  (increment  present  noun  address) 

NOUNCADR  = NOUNCADR  + 1 

EBANK  = bits  11-9  of  NOUNCADR 

NOUNADD  = OlAOOg  + bits  8-1  of  NOUNCADR 

If  VERBREG  / 5:  (verb  5 uses  R3;  cannot  display  NOUNCADR) 

DSPCOUNT  = K:R3D1 

Perform  "DSPOCTWD"  with  TSwd  = NOUNCADR 
Proceed  to  "VERBFAN" 

(Otherwise,  address  is  to  be  specified) 

CLPASS  = - Kiposmaxsp  (to  prevent  multiple  clears) 

If  ENTRET  / "ENDOFJOB":  (internal) 

NOUNCADR  = MPAC2 

EBANK  = bits  11-9  of  NOUNCADR 


DATA  - 3 


(if  internal  "address  to  be  specified") 


LODNNTAB 


NOUNADD  = OlAOOg  + bits  8-1  of  NOUNCADR 
If  VERBREG  ^ 5 : 

DSPCOUNT  = K:R3D1 

Perform  "DSPOCTWD"  vd.th  TSwd  = NOUNCADR 
Proceed  to  "VERBFAN" 

Perform  "REQDATZ"  (request  noun  address;  return  via  REQRET) 
If  DECBRNCH  / OOOOOg,  proceed  to  "ALMCYCLE" 

DSPCOUNT  = - 19  (to  block  further  nimierical  characters) 

If  CADRSTOR  /+0:  (internal  display  request  interrupted) 

Switch  bit  6 of  channel  11  to  1 (leave  flash  on) 

NOUNCADR  = ZREG  (loaded  in  "REQDATZ") 

EBANK  = bits  11-9  of  NOUNCADR 

NOUNADD  = OlAOOg  + bits  8-1  of  NOUNCADR 

Perform  "LODNNTAB"  (reload  NNTYPTEM) 

Proceed  to  "VERBFAN" 


NNADTEM  = K : NNADTAB^^^g 
NNTYPTEM  = K : NNlYPTABj^g^j^^ 

If  NOUNREG  < 40:  ("normal"  noun) 

MIXBR  = 1 
Retiarn 

MIXBR  = 2 (mixed  noun) 

RUTMXTEM  = K : RUTMXTABj^q^j^ 
i = low  10  bits  of  NNADTEM 
IDADTEM^  = K:IDADTAB^ 

IDADTEM^  = K:IDADTAB^_|,^ 


DATA  - 4 


IDADTEM^  = K:IDADTAB_„ 

3 1+2 

Return 

MIXNOUN  If  NNADTEM  = +0,  proceed  to  "DSPALARM"  (noun  not  valid) 

If  VERBREG  > 6,  proceed  to  "VERBFAN"  (not  a display  verb) 

Perform  the  indented  steps  for  i = 2,  1,  and  0 

NOUNTEM  = IDADTEM.^t 
1+1 

TS  = high  5 (i  = 2),  mid  5 (i  = l)  or  low  5 (i  = 0)  bits 
of  RUTMXTEM  shifted  right  10,  5 or  0 places  to  bit  positions 
5 through  1 

If  TS  = 4j  5,  7 or  10:  (double  precision) 

NOUNTEM  = NOUNTEM  + 1 (specify  minor  part  for  octal 

display) 

EBANK  = bits  11-9  of  NOUNTEM 

TSadr  = 01400g  + low  8 bits  of  NOUNTEM 

MIXTEMP^  = contents  of  address  specified  ip  TSadr 

(End  of  "indented  steps") 

NOUNADD  = "MIXTEMP  " (in  a routine  such  as  "DSPABC"  then, 
the  "contents  of  cell  specified  by  (2  + NOUNADD)"  will 
be  the  contents  of  MIXTEMP^ , loaded  above . ) 

Proceed  to  "VERBFAN" 

I DSPALARM  If  ENTRET  = "NVSUBEND" , proceed  to  "POODOO"  with  TS  = 21501^ 

If  ENTRET  = "PASTEVB" : 

MONSAVE 1 = 40000g 

Switch  bit  7 of  channel  11  to  1 (operator  error) 

Proceed  to  "PASTEVB" 

Switch  bit  7 of  channel  11  to  1 
End  job 

VERBFAN  If  VERBREG^40:  (extended  verb) 

TSextfan  = VERBREG  - 40 
Perform  "RELDSP" 


DATA  - 5 


Proceed  to  "GOEXTVB" 


Proceed 


VERBREG 

0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 


to  routine  specified  by  the  contents  of  VERBREG 


Starting  address  of  routine  Function 


DSPALARM 

DSPA 

DSPB 

DSPC 

DSPAB 

DSPABC 

DECDSP 

DSPDPDEC 

DSPALARM 

DSPALARM 

DSPALARM 

MONITOR 

MONITOR 

MONITOR 

MONITOR 

MONITOR 

MONITOR 

MONITOR 

DSPALARM 

DSPALARM 

DSPALARM 

ALOAD 

BLOAD 

CLOAD 

ABLOAD 

ABCLOAD 

DSPALARM 


not  defined 

octal  display  in  R1  from  NOUNADD 
octal  display  in  R1  from  1 + NOUNADD 
octal  display  in  R1  from  2 + NOUNADD 
octal  display  in  R1-R2  from  NOUNADD-fO,l 
octal  display  in  R1,R2,R3  from  NOUNADD+0, 1,2 
decimal  display  in  Rl,  R1-R2  or  R1-R2-R3 
decimal  display  in  R1-R2  from  NOUNADD 

not  defined 
not  defined 
not  defined 

monitor  with  verb  1 
monitor  with  verb  2 
monitor  with  verb  3 
monitor  with  verb  4 
monitor  with  verb  5 
monitor  with  verb  6 
monitor  with  verb  7 

not  defined 
not  defined 
not  defined 

load  1 component  via  Rl  by  NOUNADD 

load  1 component  via  R2  by  NOUNADD+1 

load  1 component  via  R3  by  NOUNADD+2 

load  2 components  via  R1-R2  by  NOUNADD+0,1 

load  3 components  via  R1-R2-R3  by  NOUNADD+0, 1,2 

not  defined 


DSPFMEM 

DSPALARM 

DSPALARM 

VBRQEXEC 

VBRQWAIT 


octal  display  from  fixed  memory 

not  defined 
not  defined 

Request  executive 
Request  waitlist 


VBRESEQ 

VBPROC 

VBTERM 


Resequence 

Proceed  (without  data) 

Terminate  current  test  or  request 


VBTSTLTS 

SLAPl 

MMCHANG 

DSPALARM 

DSPALARM 


Lamp  test 
Fresh  start 
Change  major  mode 


(program) 
not  defined 
not  defined 


DATA  - 6 


DSPA 


DSPB 


DSPC 


If  MIXER  =1,  TS  = high  5 bits  of  NNTIPTEM  (xxx  xxO  000  000  000) 

If  MIXBR  =2,  TS  = high  5 bits  of  NNADTEM 

If  bit  14  of  TS  = 1,  proceed  to  "DSP ALARM"  (noion  is  decimal  only) 

If  NNADTEM  = -1:  (noun  specified  a channel) 

BUF^  = -(contents  of  channel  specified  by  low  9 bits  of 
NOUNCADR) 

Proceed  to  "DSPC0M2" 


(minor  part 
already 
specified  for 
mixed  nouns 

If  TS  = 4>  7 or  10,  NOUNADD  = NOUNADD  + 1 "MIXNOUN" 

(specify  minor  part  if  double  precision)  logic) 


If  MIXBR  =1: 

TS  = mid  5 bits  of  NNTYPTEM  shifted  right  5 


specifies  MDCTEMPq) 


BUF«  = - contents  of  cell  specified  by  NOUNADD  (mixed  noun 

^ ^ _ _ 1 

Proceed  to  "DSPC0M2" 

If  MIXBR  =1,  TS  = high  5 bits  of  NNTYPTEM 
If  MIXBR  =2,  TS  = high  5 bits  of  NNADTEM 
If  bit  14  of  TS  = 1,  proceed  to  "DSPALARM" 

TS  = low  2 bits  of  (TS  shifted  right  10) 

If  TS  <1,  proceed  to  "DSPAIARM"  (noun  has  no  second  component) 
BUFq  = - contents  of  cell  specified  by  (l  + NOUNADD) 


(mixed  noun  specifies  MIXTEMP^^) 


Proceed  to  "DSPC0M2' 


If  MIXBR  =1,  TS  = high  5 bits  of  NNTYPTEM 
If  MDCBR  =2,  TS  = high  5 bits  of  NNADTEM 
If  bit  14  of  TS  =1,  proceed  to  "DSPALARM" 

TS  = low  2 bits  of  (TS  shifted  right  10) 

If  TS  < 2,  proceed  to  "DSPALARM" 

BUFq  = - contents  of  cell  specified  by  (2  + NOUNADD) 
Proceed  to  "DSPC0M2" 


DATA  - 7 


DSPAB 


If  MDCBR  =1,  TS  = bits  12-11  of  NNTYPTEM  shifted  right  10 
If  MDCBR  = 2,  TS  = bits  12-11  of  NNADTEM.  shifted  right  10 


If  TS  < 1,  proceed  to  "DSP ALARM"  (noun  has  no  second  component) 

BUF^  = - contents  of  cell  specified  by  (1  -t-  NOUNADD) 

Proceed  to  "DSPA" 

DSPABC  If  MDCBR  -I,  TS  = bits  12-11  of  NNIYPTEM  shifted  right  10 
If  MDCBR  = 2,  TS  = bits  12-11  of  NNADTEM  shifted  right  10 
If  TS  < 2,  proceed  to  "DSPALARM"  (noun  has  no  third  component) 
BUF2  ~ - contents  of  cell  specified  by  (2  + NOUNADD) 

Proceed  to  "DSPAB" 

DSPC0M2  i = 0 

If  VERBREG  ■=  k,  i = 1 
If  VERBREG  =5,  i = 2 
If  i = 2: 

DSPCOUNT  = K:R3D1  (4) 

Perform  "DSPOCTWD"  with  TSwd  = - BUF^ 
i = i - 1 
If  i = 1: 

DSPCOUNT  = K:R2D1  (9) 

Perform  "DSPOCTWD"  with  TSwd  = - BUF^ 

DSPCOUNT  = K:R1D1  (14) 

Perform  "DSPOCTWD"  with  TSwd  = - BUFq 
If  ENTRET  = "ENDOFJOB",  end  job 
Proceed  to  address  specified  by  ENTRET 


DATA  - 8 


DECDSF  If  MIXER  = 1,  DECOUNT  = bits  12-11  of  NNTYPTEM 

(rescaled  from 

If  MIXER  = 2,  DECOUNT  = bits  12-11  of  NNADTEM  E4  to  E14) 

If  DECOUNT  = 2:  (three  components) 

ZREG  = - contents  of  cell  specified  by  (2  + NOUNADD) 

If  DECOUNT  ^1:  (two  or  three  components) 

YREG  = - contents  of  cell  specified  by  (l  + NOUNADD) 

XREG  = - contents  of  cell  specified  by  NOUNADD 

DSPDCPUT  If  DECOUNT  = 2: 

DSPCOUNT  = 

MPAC  = - 
sp 

If  MIXER  = 

If  MIXER  = 

If  DECOUNT  = 1; 

DSPCOUNT  = 

MPAC  = - 
sp 

If  MIXER  = 

If  MIXER  = 

If  DECOUNT  = 0; 

DSPCOUNT  = 

MPAC  = - 
sp 

If  MIXER  = 

If  MIXER  = 

SFTEMPl  = K:SFOUTAE^ 

If  MIXER  = 2,  i = high  5,  mid  5 or  low  5 bits  of  RUTMXTEM 
shifted  right  10,  5 or  0 according  to  whether  DECOUNT 
= 2,  1 or  0 


K:R3D1  (4) 

ZREG 

1,  i = low  5 bits  of  NNTYPTEM 

2,  i = high  5 bits  of  NNTYPTEM  shifted  right  10 

K:R2D1  (9) 

YREG 

1,  i = low  5 bits  of  NNTYPTEM 

2,  i = mid  5 bits  of  NNTYPTEM  shifted  right  5 

K;R1D1  (14) 

XREG 

1,  i = low  5 bits  of  NNTYPTEM 

2,  i = low  5 bits  of  NNTYPTKM 


DATA  - 9 


If  MIXBR  = 1,  i = mid  5 bits  of  NNTYPTEM  shifted  right  5 

(i  now  contains  the  index  determining  the  type  of  display) 

DECDSP3  If  i = 0:  (octal  only  noun) 

DSPCOUNT  = -19 

Proceed  to  "DSPALARM" 

If  i = 1,  proceed  to  "DSPDCEND" 

If  i = 2,  proceed  to  "DEGOUTSF" 

If  i = 3,  proceed  to  "ARTOUTSF" 

If  i = 4: 

Perform  "DPOUT" 

MPAC^  = K:bl4tob0  MPAC^ 
dp  tp 

If  i = 5 or  10: 

Perform  "DPOUT" 

If  i = 6,  proceed  to  "LRPOSOUT" 

If  i = 7: 

Perform  "DPOUT" 

MPAC,  = K:b7tob0  MPAC^ 
dp  tp 

If  i = 8,  proceed  to  "HMSOUT" 

If  i = 9,  proceed  to  "M/SOUT" 

If  i = 11,  MPAC^  = K:bl4tob0  SFTEMPl  MPAC 

dp  sp 

If  i = 12,  proceed  to  "2INT0UT" 

If  i = 13,  proceed  to  "350-CDU0" 

If  i = 14,  proceed  to  "RRANGOUT" 

If  i = 15,  proceed  to  "RRDOTOUT" 

Proceed  to  "DSPDCEND" 

ARTOUTSF  If  MPAC_  = -0,  MPAC^  = -0 
0 ’ dp 


DATA  - 10 


MPAC , = SFTEMPl  MPAC 

dp  sp 

Proceed  to  "DSPDCEND" 

DEGOUTSF  (Entered  with  SFTEMPl  = 0 and  MPAC  between  and  revs  B-l) 
sp 

MPAC  = MPAC  converted  to  one's  complement  form 
sp 

If  MPAC  <0: 

MPAC  = MPAC  + i 
SFTEMPl  = ^ 

MPAC^  = K; 0.180 (MPAC  + SFTEMPl) 
dp 

(exit  with  MPAC^p  between  0 and  360  degrees  scaled  E3) 

Proceed  to  "DSPDCEND" 

DPOUT  If  MIXER  =1,  TS  = NOUNADD 

If  MIXER  = 2: 

i = DECOUNT  + 1 

EBANK  = bits  11-9  of  IDADTEM^ 

TS  = OUOOg  + bits  8-1  of  IDADTEM^ 

MPAC,  = contents  of  double  precision  register  whose  address  is 
^ specified  by  TS 

Force  sign  agreement  between  two  halves  of  MPAC^^ 

MPAC^  = MPAC^  SFTEMPl 
tp  dp 

Return 

LRPOSOUT  MPAC  = - bits  7-6  of  channel  33  shifted  right  5 
sp 

Proceed  to  "ARTOUTSF" 

HMSOUT  If  MIXER  = 2: 

i = DECOUNT  + 1 

EBANK  = bits  11-9  of  IDADTEM^ 

TS  = OlAOOrt  + bits  8-1  of  IDADTEM. 

O 1 


DATA  - 11 


If  MIXBR  =1,  TS  = NOUNADD 

MPAC,  = contents  of  double  precision  register  whose  address 
^ is  specified  by  TS 


Force  sign  agreement  between  two  halves  of  MPAC 


dp 


TS,  = K:SEC0N1  MPAC^ 
tp  dp 

HITEMOUT  = most  significant  third  of 

LOTEMOUT  = second  most  significant  third  of 

MPAC^p  = fractional  part  of  (still  accurate  to  1 cs) 

MPAC,  = K:SEC0N2  MPAC^ 
dp  dp 

DSPCOUNT  = K:R3D1 
Perform  "DSPDECWD" 


Discard  fractional  part  of  LOTEMOUT  (shift  right  12  then  left  12) 

MPAC  = K-.MINGONl  (HITEMOUT  + LOTEMOUT  added  with  regard  for 
scaling)  (yields  hours  in  MPAC^  and  minutes/60  in 
MPAC^,  scaled  B14  and  BO  respectively) 

HITEMOUT  = most  significant  third  of  MPAC^p  (MPACq) 

MPAC^  = K;MINC0N2  MJ^AC^ 
dp  1 

DSPCOUNT  = K:R2D1 

Perform  "DSPDECWD" 

MPAC^  = K:HRC0N1  HITEMOUT 
dp 

DSPCOUNT  = K:R1D1 
Perform  "DSPDECWD" 


If  ENTRET  = "ENDOFJOB",  end  job 
Proceed  to  address  specified  by  ENTRET 


DATA  - 12 


M/SOUT  If  MIXBR  = 1,  TS  = NOUNADD 


If  MKBR  = 2; 


i = DECOUNT  + 1 
EBANK 
TS  = 01400 


bits  11-9  of  IDADTEM. 

1 


. , bits  8-1  of  IDADTEM. 

8 1 

MPAC,  = contents  of  double  precision  register  whose  address 
^ is  specified  by  TS 

Force  sign  agreement  between  two  halves  of  MPAC 


If 

Impac, 

1 dp' 

:> 

K:MdSC0Nl| 

If 

|mpac,^ 

1 dp 

■< 

K:MdSC0Nl 

dp 

, MPAC^P  = K:M1SC0N3  signMPAC^p 
, MPAC,  = MPAC,  + K:RNDC0N  signMPAC 


dp 


dp 


'dp 


TS 


tp 
HITEMOUT 


K;SEC0N1  MPAC 


dp 


most  significant  third  of  TS 


tp 


LOTEMOUT  = second  most  significant  third  of  TS. 

t.p 

MPAC^p  = fractional  part  of  TS^^  (accurate  to  1 centisecond) 

MPAC,  = KiHISECON  MPAC, 
dp  dp 

DSPCOUNT  = DSPCOUNT  - 3 (previously  set  in  "DSPDCPUT") 

Perform  "DSPDC2NR"  (display  seconds  in  RxD4  and  PbdD5) 

CODE  = 0 


TS  = K:R1D1,  K:R2D1  or  K:R3D1  according  to  whether  DECOUNT  =0,1  or  2 
COUNT  = TS  - 2 

Perform  "DSPIN"  (blank  middle  digit) 

Discard  fractional  part  of  LOTEMOUT  (shift  right  12  then  left  12) 

MPAC^  = K:MINC0N1  (HITEMOUT  + LOTEMOUT  added  with  regard  for  scaling) 
^ (yields  fraction  of  hours  in  MPAC^  scaled  BO) 

MPAC,  = K:HIMINCON  MPAC, 
dp  1 

DSPCOUNT  = K:R3D1,  K:R2D1  or  K:R1D1  according  to  whether  DECOUNT 
equals  2,  1 or  0 


DATA  - 13 


Perform  "DSPDC2NR" 


(display  minutes  in  RxDl  and  RxD2) 


Proceed  to  second  step  of  "DSPDCEND"  (display  already  performed) 

2INT0UT  Perform  "5BLANK" 

Perform  "-i-ON" 

Perform  "DSPDECVN"  with  TS  = (first  integer  to  RxDl  and  D2) 

TS  = K:R1D1,  K:R2D1  or  K:R3D1  according  to  whether  DECOUNT  =0,  1 or  2 

DSPCOUNT  = TS  - 3 

If  MIXBR  =1,  TS  = 1 + NOUNADD 

If  MDCBR  = 2: 

i = DECOUNT  + 1 

EBANK  = bits  11-9  of  IDADTEM. 

1 

TS  = 01400^  + 1 + bits  8-1  of  IDADTEM. 

O 1 

MPAC-  = contents  of  single  precision  register  whose  address 
is  specified  by  TS 

Perform  "DSPDECVN"  with  TS  = MPAC^  (second  to  RxD4  and  RxD5) 

Proceed  to  second  step  of  "DSPDCEND"  (display  already  performed) 

360-CDUO  If  MPAC  7^  0 or  -4:  - 
sp 

MPAC  = - MPAC  (two's  complement) 

sp  sp  f / 

Proceed  to  "DEGOUTSF" 

DSPDCEND  Perform  "DSPDECWD" 

If  DECOUNT  > 0: 

DECOUNT  = DECOUNT  - 1 
Proceed, to  "DSPDCPUT" 

If  KUTR-RT . = "EIIDOFJOB",  end  job 
Proceed  to  address  specified  by  ENTRET 


DATA  - 14 


DSPDPDEC  If  MIKBR  = 2,  proceed  to  "DSPALARM" 


MPAC 


dp 


= contents  of  double  precision  register  whose  address 
is  specified  by  NOUNADD 


DSPCOUNT  = K:R1D1 


Force  sign  agreement  in  MPAC 


dp 


Perform  "DSP2DEC" 

If  ENTRET  = "ENDOFJOB",  end  job 
Proceed  to  address  specified  by  ENTRET 


MONITOR  TSadr  = NOUNCADR  with  bits  15  and  14  switched  to  0 

If  ENTRET  = "iaiDOFJOB"  (externally  initiated) 

Switch  bit  14  of  TSadr  to  1 

M0NSAVE2  = OOOOOg  (set  in  "NVSUB"  if  internal) 

TSvn  = (bits  7-1  of  VERBREG  shifted  left  7)  + NOUNREG 
DSPLOCK  = 0 

If  CADRSTOR  = 0,  perform  "RELDSPl" 


Inhibit  interrupts 

If  MONSAVE  = 0,  call  "MONREQ"  in  0.01  second 
MONSAVE  = TSvn 
MONSAVEl  = TSadr 


Release  interrupt  inhibit 
If  ENTRET  = "ENDOFJOB",  end  job 
Proceed  to  address  specified  by  ENTRET 
MONREQ.  SAMPTIME  = TIMENOW 

If  bit  15  of  MONSAVEl  = 1: 

MONSAVE  = O' 


DATA  - 15 


(If  bit  15  of  MDNSAVEl  = l) 


MDNSAVEl  = OOOOOg 
End  task 

Call  "MONREQ"  in  1 second 

Establish  "HONDO"  (pr30) 

End  task 

HONDO  If  bit  15  of  MONSAVEl  =1,  end  job 
If  DSPLOCK  > 0: 

Switch  bit  5 Of  channel  11  to  1 (key  release  lamp) 

End  job 

NOUNREG  = bits  7-1  of  HONSAVE 
Perform  "UPDATNN" 

VERBREG  = (bits  14-8  of  MDNSAVE  shifted  right  7)  - 10 
ENTRET  = "PASTEVB" 

HPAG2  = bits  13-1  of  HONSAVEl  (address) 

Proceed  to  "TESTNN"  (continues  at  "PASTEVB"  after  display 

verb  is  executed) 

PASTEVB  TS  = bits  14-8  of  H0NSAVE2 

If  TS  = 0,  TS  = bits  14-8  of  HONSAVE 
VERBREG  = TS  shifted  right  7 places 
Perform  "UPDATVB" 

REQRET  = 40 
TSblank  = H0NSAVE2 
Perform  "BLANKSUB" 

End  job 


DATA  - 16 


UPDATNN  Perform  ''LODNNTAB” 


UPDATVB 


DSPMMJOB 


ALMCYCLE 


If  NNADTEM  ^ -K): 

NOUNCADR  = NNADTEM 
EBANK  = bits  11-9  of  NNADTEM 
NOUNADD  = OlAOOg  + bits  8-1  of  NNADTEM 
DSPCOUNT  = K:ND1 

Perform  "DSPDECVN"  with  TS  = NOUNREG 
Return 

DSPCOUNT  = K:VD1 

Perform  "DSPDECVN"  with  TS  = VERBREG 
Retiarn 

TSramtemp  = DSPCOUNT 

DSPCOUNT  = K:MD1 

If  MODREG  = -0,  perform  "2BLANK" 

If  MODREG  > +0,  perform  "DSPDECVN"  with  TS  = MODREG 
DSPCOUNT  = TSmmtemp 
End  job 

Switch  bit  7 of  channel  11  to  1 (operator  error  lamp) 
REQRET  = - VERBSAVE  (to  make  it  positive) 

VERBREG  = - VERBSAVE 
Perform  "UPDATVB" 

CLPASS  = 0 
ENTRET  = "ENDOFJOB" 

Proceed  to  "ENTPASO" 


DATA  - 17 


ALOAD 


Perform  "REQDATX" 


(retiuTi  is  via  REQRET  after  data  entry) 


Perform  "LODNNTAB" 

Perform  "PUTCOM"  vdth  DECOUNT  = 0 

Store  TS  from  "PUTCOM"  in  address  specified  by  NOUNADD 
Proceed  to  "LOADLV" 

BLOAD  Perform  "GETCOMP" 

TS  = low  2 bits  of  (TS  shifted  right  10) 

If  TS  ^ 1,  proceed  to  "DSPALARM"  (noun  has  no  2nd  component) 

CLPASS  ^ - K:posmaxsp 

Perform  "REQDATY"  (return  is  via  REQRET  after  data  entry) 

Perform  "LODNNTAB" 

Perform  "PUTCOM"  with  DECOUNT  = 1 

Store  TS  from  "PUTCOM"  in  address  specified  by  (1  + NOUNADD) 
Proceed  to  "LOADLV" 

CLOAD  Perform  "GETCOMP" 

TS  = low  2 bits  of  (TS  shifted  right  10) 

If  TS  < 2,  proceed  to  "DSPALARM"  (noim  has  no  3rd  component) 
CLPASS  = - K:posmaxsp 

Perform  "REQDATZ"  (retiirn  is  via  REQRET  after  data  entry) 

Perform  "LODNNTAB", 

Perform  "PUTCOM"  with  DECOUNT  = 2 

Store  TS  from  "PUTCOM"  in  address  specified  by  (2  + NOUNADD) 
Proceed  to  "LOADLV" 


DATA  - 18 


ABLOAD 


Perform  "GETCOMP" 


ABCLOAD 


TS  = low  2 bits  of  (TS  shifted  right  10) 

If  TS  < 1,  proceed  to  "DSPALARM"  (noun  has  no  2nd  component) 
Perform  "GETCOMP" 

If  bit  15  of  TS  = 1,  proceed  to  "DSPALARM"  ("no-load"  noun) 
VERBREG  = K:VB21 
Perform  "UPDATVB" 

Perform  "REQDATX"  (return  is  via  REQRET  after  data  entry) 

VERBREG  = ,K:VB22 
Perform  "UPDATVB" 

Perform  "REQDATY" 

Bits  5 and  4 of  DECBRNCH  now  indicate  whether  the  numbers  loaded 
were  decimal  (l)  or  octal  (0).  (See  routine  "BOTHSGN")  If  both 
are  not  the  same  (one  component  octal,  the  other  decimal): 

Proceed  to  "ALMCYCLE" 

Perform  "LODNWTAB" 

Perform  "PUTCOM"  with  DECOUNT  = 0 

Store  TS .from  "PUTCOM"  in  address  specified  by  NOUNADD 
Perform  "PUTCOM"  with  DECOUNT  = 1 

Store  TS  from  "PUTCOM"  in  address  specified  by  (1  + NOUNADD) 
Proceed  to  "LOADLV" 

Perform  "GETCOMP" 

TS  = low  2 bits  of  (TS  shifted  right  10) 

If  TS  < 2,  proceed  to  "DSPALARM"  (noun  has  no  3rd  component) 
Perform  "GETCOMP" 

If  bit  15  of  TS  = 1,  proceed  to  "DSPALARM"  ("no-load"  noun) 


DATA  - 19 


VERBREG  = K:VB21 


Perform  "UPDATVB" 

Perform  "REQBATX"  (return  is  via  REQRET  after  data  entry) 
VERBREG  = K:VB22 
Perform  "UPDATVB" 

Perform  "REQDATY" 

VERBREG  - K:VB23 
Perform  "UPDATVB" 

Perform  "REQDATZ" 

Bits  3,  4 and  5 of  DECBRNCH  now  indicate  whether  the  numbers 
loaded  were  decimal  (l)  or  octal  (0),  If  the  three  bits  are 
not  all  1 or  all  0 (some  components  octal  and  some  decimal): 

Proceed  to  "ALMCICLE" 

Perform  "LODNWTAB" 

Perform  "PUTCOM"  with  DECOUNT  = 0 

Store  TS  from  "PUTCOM"  in  address  specified  by  NOUNADD 
Perform  "PUTCOM"  with  DECOUNT  = 1 

Store  TS  from  "PUTCOM"  in  address  specified  by  (l  + NOUNADD ) 
Perform  "PUTCOM"  with  DECOUNT  = 2 

Store  TS  from  "PUTCOM"  in  address  specified  by  (2  + NOUNADD) 
If  NOUNREG  / 1,  proceed  to  "LOADLV" 

EBANK  = bits  11-9  of  XREG 
NOUNADD  = OlAOOg  + bits  8-1  of  XREG 
Inhibit  interrupts 

TS  = contents  of  flagword  specified  by  NOUNADD 


DATA  - 20 


TS  = TS  A YREG  (all  bits  in  TS  that  correspond  to  bits  in  YREG 

that  are  "1"  are  switched  to  0;  others  remain  unchanged) 

If  ZREG  / 0,  TS  = TS  + YREG 

Store  TS  in  flagword  specified  by  NOUNADD 

Release  interrupt  inhibit 

Proceed  to  "LOADLV" 

GETCOMP  If  MIXBR  =1,  TS  = high  5 bits  of  NNTYPTEM 
If  MIXBR  =2,  TS  = high  5 bits  of  NNADTEM 
Return 

PUT COM  DECRET  = return  address 

Set  overflow  indicator  to  0 

MPAC  = (XREG  + XREGLP),  (YREG  + YREGLP)  or  (ZREG  + ZREGLP) 

^ according  to  whether  DECOUNT  =0,  1 or  2 

If  MIXBR  = 1,  proceed  to  "PUTNORM" 

i = DECOUNT  + 1 

NOUNCADR  = low  11  bits  of  IDADTEM. 

1 

EBANK  = bits  11-9  of  NOUNCADR 

NOUNADD  = (01400g  + bits  8-1  of  NOUNCADR)  - DECOUNT 

If  DECBRNCH  > 0:  (decimal) 

Perform  "GETI"  with  TS  = NNTYPTEM 

SFTEMPl  = K:SFINTAB. 

1 

Perform  "GETI”  with  TS  = RUTMXTEM 
Proceed  to  "PUTDCSF2" 

Perform  "GETCOMP" 

If  bit  14  of  TS  = 1,  proceed  to  "ALMCYCLE"  (decimal  only) 
Perform  "GETI"  with  TS  = RUTMXTEM 


DATA  - 21 


If  i = 4,  5,  7 or  10: 


(double  precision  no\m) 


Set  (the  more  significant  half  of  the  double  precision 
register  specified  by  NOUNADD  + DECOUNT)  = 0 

NOUNADD  = NOUNADD  + 1 (specify  minor  part) 

Proceed  to  "PUTC0M2" 

GETI  i = high  5 bits  (DECOUNT  =2),  mid  5 bits  (DECOUNT  = l)  or 

low  5 bits  (DECOUNT  = O)  of  TS  shifted  right  10,  5 or  0 
places  according  to  whether  DECOUNT  =2,  1 or  0. 

(i  is  of  the  form  000  000  000  Qxx  xxx^) 

Return 

PUTNORM  EBANK  = bits  11-9  of  NOUNCADR  (NOUNCADR  set  in  "TESTNN") 

NOUNADD  = 01400g  + bits  8-1  of  NOUNCADR 

If  DECBRNCH  > 0:  (decimal) 

i = low  5 bits  of  NNTYPTEM 

SFTEMPl  = K:SFINTAB. 

1 

i = mid  5 bits  of  NNTIPTEM  shifted  right  5 
Proceed  to  "PUTDCSF2" 

Perform  "GETCOMP" 

If  bit  14  of  TS  =1,  proceed  to  "ALMCYCLE"  (decimal  only) 

i = mid  5 bits  of  NNTYPTEM  shifted  right  5 

If  i = 4,  5,  7 or  10:  (double  precision  noun) 

Set  (the  more  significant  half  of  the  double  precision 
register  specified  by  NOUNADD)  = 0 

NOUNADD  = NOUNADD  + 1 

Proceed  to  "PUTC0M2'' 


DATA  - 22 


If  NNADTEM  = -1; 


(channel  load) 


PUTDCSF2 


If  NOUNCADR  = 7,  proceed  to  "LOADLV" 

Set  channel  specified  by  NOUNCADR  equal  to  the  more 
significant  half  of  MPAC^p  (in  low  9 bits  of  NOUNCADR) 

Proceed  to  "LOADLV" 

Proceed  to  "PUTC0M2" 

If  i = 0,  proceed  to  "ALMCYCLE"  (octal  only) 

If  i = 1,  proceed  to  "BINROUND" 

If  i = 2,  proceed  to  "DEGINSF" 

If  i = 3 : 

MPAC^p  = SFTEMPl  K:b0tobml4  MPAC^p 
If  overflow,  proceed  to  "ALMCYCLE" 

Proceed  to  "BINROUND" 

If  i = 4 or  7: 

MPAC^  = SFTEMPl  MPAC , 
tp  dp 

Proceed  to  "DPINSF+2" 

If  i = 5: 

MPAC,  = SFTEMPl  K:b0tobm7  MPAC,, 
tp  dp 

Proceed  to  "DPINSF+2" 

If  i = 6,  proceed  to  "DSPALARM"  (LR  position  is  display  only) 

If  i = 8,  proceed  to  "HMSIN" 

If  i = 9,  proceed  to  "DSPALARM"  (min/sec  cannot  be  loaded) 

If  i = 10: 

MPAC^p  = SFTEMPl  K:b0tobm3  MPAC^p 
Proceed  to  "DPINSF+2" 


DATA  - 23 


If  i = 11: 


I 

BINROUND 


DPINSF+2 


DEGINSF 


MPAC^  = MPAC^  SFTEMPl 
dp  dp 

Proceed  to  "BINROUND" 

If  i = 12,  proceed  to  "DSPALARM"  (2INT  cannot  be  loaded) 

If  i = 13,  proceed  to  "DEGINSF"  (test  for  360-CDU  in  "DEGINSF" ) 

If  i = 14  or  15 > proceed  to  "DSPALARM"  (RR  data  cannot  be  loaded) 

MPAC  = MPAC , roimded  off 

sp  dp 

If  overflow,  proceed  to  "ALMCYCLE" 

Proceed  to  "PUTC0M2" 

MPAC , = MPAC,  rounded  off 
dp  tp 

If  overflow,  proceed  to  "ALMCYCLE" 

If  MIXBR  =1,  TS  = NOUNADD 

If  MDCBR  =2,  TS  = NOUNADD  + DECOUNT 

Store  less  significant  half  of  MPAC^  in  less  significant 
half  of  double  precision  register  s^cified  by  TS 

MPAC  = more  significant  half  of  MPAC , 
sp  “ dp 

Proceed  to  "PUTC0M2" 

MPAC,  = K:DEGC0N1  MPAC, 
dp  dp 

MPAC  = MPAC,  rounded  off  and  rescaled  to  B-1  (sl3) 

sp  dp 

If  iMPAC^pl  > 1 (360'’),  proceed  to  "ALMCYCLE" 

MPAC  = MPAC^p  converted  to  two's  complement  form 
If  MPAC  > i (180”): 

MPAC  = - (1  - MPAC) 

If  MPAC  < -1: 

MPAC  = MPAC  + 1 

If  MIXBR  = 1,  i = mid  5 bits  of  NNTYPTEM  shifted  right  5 


DATA  - 24 


HMSIN 


PUTC0M2 


If  MIXBR  = 2,  perform  "GETI"  with  TS  = RUTMXTEM 
If  i ^ 2:  (360-CDU) 

If  MPAC  / 0 or  — 1 , MPAC  = - MPAC  ( two ' s c omplement ) 

MPAC  = MPAC 
sp 

Proceed  to  "PUTCOM2" 

If  bits  3,  4 and  5 of  DECBRNCH  are  not  all  1: 

(three  decimal  components  have  not  been  loaded) 

VERBSAVE  = - K:VB25  (initiate  ABCLOAD) 


Proceed  to  "ALMCYCLE' 


TS  = KiHRCON  (lO^  MPAC^p  roimded  to  whole  ho\irs) 


If  TS  > 2 , proceed  to  "ALMCYCLE' 


(745  hour  max) 


HITEMIN  = TS 

c 


TS  = 10'^  (YREG  + YREGLP)  rounded  to  whole  minutes 


If 


TS 


> K:59MIN,  proceed  to  "ALMCYCLE" 


HITEMIN  = HITEMIN  + KrMTNCON  TS 

I I 

If  |hITEMIN|  > 2 , proceed  to  "ALMCYCLE" 

TS  = 10^  (ZRBG  + ZREGLP)  rounded  to  whole  centiseconds 
If  Its I > K:59.99SEC,  proceed  to  "ALMCYCLE" 


TS  = HITEMIN  + TS 

If  |ts|  > 2 , proceed  to  "ALMCYCLE" 

MPAC^p  = TS  with  forced  sign  agreement  between  two  halves 
Store  MPAC^p  in  double  precision  register  specified  by  NOUNADD 
Proceed  to  "LOADLV" 


TS  = MPAC 

sp 

Return  via  DECRET 


DATA  - 25 


DSPFMEM  DSPCOUNT  = K:R1D1 


MMCHANG 


RRANGOUT 


If  NOUNCADR  ^ llx  xxx  xxx  xxx  XXX2: 

TS  = contents  of  fixed  memory  cell  whose  address  is  specified 
by  information  in  NOUNCADR  (Standard  fixed  memory  CADR 
format  contains  FBANK  information  in  bits  15-11  and 
S-register  information  in  bits  10-1.) 

If  NOUNCADR  = llx  xxx  xxx  xxx  xxx^: 

TS  = contents  of  fixed  memory  cell  whose  address  is  specified 
by  information  in  NOUNCADR  and  in  DSPTEM12.  (DSPTEMl^ 
contains  FBANK  extension  or  "Superbank"  information  in 
bits  7-5  and  must  be  loaded  prior  to  verb  27  entry 
with  a verb  23,  noun  26  for  access  to  fixed  memory  banks 
30g  through  43g.) 

Perform  "DSPOCTWD" 

End  job 

Perform  "REQMM"  (return  is  via  REQRET  on  data  entry) 

If  DSPCOUNT  ^ -16,  proceed  to  "ALMCYCLE" 

TS  = NOUNREG  (which  contains  desired  major  mode) 

NOUNREG  = 0 

Perform  "2BLANK"  with  DSPCOUNT  = K:ND1 

DSPCOUNT  = -19  (to  block  further  numerical  entries) 

MMNUMBER  = TS 
Proceed  to  "V37" 

MPAC^p  = MPAC^p  (15  magnitude  bits)  converted  to  double  precision 
If  RADMODES  bit  3 (ERRS FLAG)  = 0;  (low  scale) 

Skip  next  step 

MPAC^p  = 8 MPAC^p  (high  scale) 

MPAC.  e MPAC^  SFTEMPl 
tp  dp 

MPAC.  = K:bl4tob0  MPAC^ 
dp  tp 

Proceed  to  "DSPDCEND” 


DATA  - 26 


RRDOTOUT  MPAC^p  = MPAC^^  (15  magnitude  bits)  converted  to  double  precision 

MPACj  = MPACj  - 17000  (subtract  bias  of  17000  counts) 

dp  dp 

MPAC^  = MPAC^  SFTEMPl 
tp  dp 

MPAC^  = K;bl4tob0  MPAC^ 
dp  tp 

Proceed  to  "DSPDCEND" 


DATA  - 27 


Quantities  in  Computations 


BUF^  (i  = 0,1,2):  Three  single  precision  octal  working  storage  cells. 

CADRSTOR:  See  DINT  section. 

CLPASS,  CODE,  COUNT:  See  DSKY  section. 

DECBRNCH:  See  DSKY  section. 

DECOUNT:  Single  precision  number  of  components  in  a noun  display, 
extracted  from  the  relevant  bits  of  NNTYPTEM  or  NNADTEM,  scaled 
B14  and  vinitless.  (Number  of  components  = DECOUNT  + 1.) 

DECRET:  Single  precision  octal  return  address  storage. 

DSPCOUNT,  DSPLOCK:  See  DSKY  section. 

DSPTAB^  (i  = 0-10):  See  DSKY  section. 

DSPTEMl,  DSPTEM2,  DSPTEMX:  Single,  double  or  triple  precision  display 
interface  registers  with  variable  scaling  and  units.  See  tables 
below. 

EBANK:  See  MATX  section. 


ENTRET:  Single  precision  octal  address  indicating  whether  the  data 

input/output  is  under  control  of  the  astronaut  or  of  internal  programs. 

FBANK:  See  MATX  section. 

FREEDSKY:  Variable  Introduced  as  a substitite  for  variable  return 
address;  set  to  1 or  0 to  indicate  vdiether  "NVSUB"  finds  the  DSKY 
free  or  unavailable  for  use  by  internal  programs. 


HITEMIN:  Double  precision  working  storage  in  "HMSIN",  scaled  B28  in  units 
of  centiseconds. 

HITEMOUT:  Single  precision  working  storage  for  minutes  scaled  Bl6  or 
hours  scaled  B14. 


data  - 28 


IDADTEKj^  (i  = 1,2,3):  Three  single  precision  octal  words  containing 
the  address  and  EBANK  information  for  each  of  the  three  separate 
registers  that  can  be  displayed  or  loaded  by  a mixed  noun.  (Equal 
to  +0  if  the  component  of  the  mixed  noun  is  not  utilized.) 


K: 0.180:  Double  precision  constant  stored  as  05605rt  03656^,  scaled  B1 
in  units  of  degrees  per  revolution.  Equation  value:  360  / 1000. 

K:59MIN:  Single  precision  constant  stored  as  00073g,  scaled  BI4  in  units 
of  minutes.  Equation  value:  59. 

K:59.99SEC:  Single  precision  constant  stored  as  13557g,  scaled  B14  in 
units  of  centiseconds.  Equation  value:  5999. 

K;b0tobml4:  Constant  representing  the  effect  of  a left  shift  of  14, 
scaled  B-I4  and  unitless.  Equation  value;  1. 

K:b0tobm3:  Constant  representing  the  effect  of  a left  shift  of  3, 
scaled  B-3  and  unitless.  Equation  value:  1. 

K:b0tobm7:  Constant  representing  the  effect  of  a left  shift  of  7> 
scaled  B-7  and  unitless.  Equation  value:  1. 

K:bl4tob0:  Constant  representing  the  effect  of  a left  shift  of  14, 
scaled  B-14  and  unitless.  Equation  value:  1. 

K:b7tobC:  Constant  representing  the  effect  of  a left  shift  of  7, 
scaled  B-7  and  imitless.  Equation  value:  1. 

K:DEGC0N1:  Double  precision  constant  stored  as  5.555555555  x 2 , 

scaled  B2  in  units  of  revolutions  per  degree.  Equation  value; 

1000  / 360. 

K:HIMINCON:  Single  precision  constant  stored  as  23346g,  scaled  BO  in 
\mits  of  minutes  per  hoiir.  Equation  value:  6O.8  / 100  (for  round 
off), 

K:HISEC0N:  Single  precision  constant  stored  as  23147rt,  scaled  BO  in 
units  of  seconds  per  minute.  Equation  value:  60  / 100. 

K:HRC0N:  Double  precision  constant  stored  as  00025q  37100q,  scaled  B28 
in  iinits  of  centiseconds  per  hour.  Equation  value;  368,000. 

K:HRC0N1:  Double  precision  constant  stored  as  O.I6384,  scaled  B-14 
and  unit less.  Equation  value:  0.00001. 


DATA  - 29 


K:IDADTAB  (i  = 0-179):  Table  of  single  precision  addresses  for  mixed 
nouns, ^loaded  into  IDADTEM,^^  according  to  the  value  of  NNADTEM 
Program  name;  IDADDTAB. 

K:MD1:  Single  precision  constant  to  cause  a numerical  display  to  be 

started  in  the  first  digit  of  the  major  mode  (program)  register, 
scaled  B14  and  unitless.  Equation  value:  21. 

K:MdSC0Nl:  Double  precision  constant  stored  as  77753g  41126g,  scaled 
B28  in  units  of  centiseconds.  Equation  value:  -359,850  (Equivalent 
to  -59:58.5  = 36652g  because  of  CCS.) 

K:MdSC0N3:  Double  precision  constant  stored  as  00025g  370l6g,  scaled 
B28  in  units  of  centiseconds.  Equation  value:  359,950.  (Equivalent 
to  59:59.5.) 

K:MINC0N:  Single  precision  constant  stored  as  13560g,  scaled  B14  in 
units  of  centiseconds  per  minute.  Equation  value:  6000. 

K:MINC0N1:  Double  precision  constant  stored  as  02104g  10422g,  scaled 
B-2  in  units  of  hours  per  minute.  Equation  value:  l/60. 

K:MINC0N2:  Double  precision  constant  stored  as  OOOllg  32445g,  scaled  BO 
in  units  of  minutes  per  hour.  Equation  value:  60/100000. 

K:ND1;  See  DSKY  section. 

K:NNADTAB.  (i  = 0-99):  Table  of  single  precision  constants  to  be  loaded 
into  NNADTEM  according  to  the  value  of  NOUNREG.  See  tables  1 and  2 
below. 

K:NNTYPTAB.  (i  = 0-99):  Table  of  single  precision  constants  to  be  loaded 
into  NNTYPTEM  according  to  the  value  of  NOUNREG.  See  tables  1 and  2 
below. 

K:posmaxsp:  See  "Major  Variables"  section. 

K:R1D1,  K:R2D1,  K:R3D1:  See  DSKY  section. 

KrRNDOON:  Double  precision  constant  stored  as  OOOOOg  00062g,  scaled  B28 
in  units  of  centiseconds.  Equation  value:  50. 

K:RU1'MXTAB  (i  = 40-99):  Table  of  single  precision  constants  to  be  loaded 
into  RUTMXTEl'4  according  to  the  value  of  NOUNREG.  See  table  2 below. 

K:SEC0N1:  Double  precision  constant  stored  as  1.66666666  E-4  x 2^^, 
scaled  B-12  in  units  of  minutes  per  centisecond.  Equation  value: 
1/6000. 


DATA  - 30 


K:SEC0N2:  Double  precision  constant  stored  as  01727g  01217rt,  scaled 
B-14  in  units  of  seconds  per  minute.  Equation  value:  6O/IOOO. 

KtSFINTAB^  (i  = 0-27):  Table  of  double  precision  constants  with  variable 
scaling  and  units,  used  to  convert  from  units  used  on  a DSKY  display 
into  units  used  in  the  LGC.  See  table  3 below. 

K:SF0UTAB.  (i  = 0-27):  Table  of  double  precision  constants  with  variable 
scaling  and  units,  used  to  convert  from  units  used  in  the  LGC  to  units 
used  on  a DSKY  display.  See  table  3 below. 

K:VB21,  K:VB22,  K:VB23,  K:VB25:  Single  precision  constants  stored  as 

21,  22,  23,  and  25  times  two  to  the  minus  fourteenth  power,  scaled  BI4 
and  \mitles3.  Equation  values  respectively:  21,  22,  23,  25. 

K:VD1:  See  DSKY  section. 

LOADSTAT:  See  BINT  section. 

LOTMOUT:  Single  precision  working  storage  for  minutes,  scaled  B2. 

MIXBR:  Single  precision  index  indicating  whether  the  noun  being  processed 
is  a "mixed"  noun  (addresses  non-consecutive  E-memory  cells)  or  a 
"normal"  noun  (addresses  one  or  more  consecutive  E-memory  cells); 
scaled  BI4  and  mitless. 

MIXTEMP^  (i  = 0,1,2):  Three  consecutive  single  precision  E-memory 

cells  loaded  with  the  values  of  the  three  non-consecutive  registers 
addressed  by  a mixed  noxui  so  that  the  same  display  logic  can  be  used 
for  both  normal  and  mixed  after  the  MIXTEMP  are  loaded  and  NOUNADD 
is  set  equal  to  the  address  of  MIXTEMPq. 

MMNUMBER:  See  PGSR  section. 

MODREG:  Single  precision  register  reflecting  the  status  of  the  "major 
mode"  or  "program"  nmber  on  the  DSKY,  scaled  BI4  and  unitless. 

MONSAVE:  Single  precision  storage  for  monitor  verb  and  noim  (verb  number 
in  bits  14-8,  noim  in  bits  7-1 ). 

MONSAVEl:  Single  precision  octal  storage  for  the  address  of  the  noim  to 
be  displayed  by  the  monitor  routines.  Bits  15  and  14  are  used  as 
flag  bits,  Bit  15  is  set  to  terminate  the  monitor,  and  bit  14  is  set 
to  indicate  that  the  monitor  was  initiated  by  the  astronaut  and  thus 
takes  priority  over  displays  requested  by  the  program. 

M0NSAVE2:  Single  precision  storage  for  an  octal  blanking  code  and/or 
a verb  to  be  "pasted"  over  the  display  verb  during  a monitor. 


DATA  - 31 


MPAC,  MPAC^  , IlPAC^p:  Single,  double  and  triple  precision  working 

storage  cells:  MPAC  = MPAC_,  MPAC,  = I'lPAC^  I'ffAC.  = PPAC^  ^ 

^ sp  0’  dp  0,1'  tp  0»1>2 

1'IPAC2:  Single  precision  storage  for  an  octal  address  when  and  "address- 
to-be -specif  led  noun"  is  used  b7  LGC  programs.  Instead  of  requesting 
the  address  from  the  astronaut,  the  program  finds  it  in  MPAC-.  (see 
"TESTNN"). 

NNADTEM:  Single  precision  octal  word  containing  the  following  information. 
If  the  noun  is  a normal  noun,  NNADTEM  contains  the  normal  noun  address 
and  EBANK.  If  the  noun  is  a mixed  noun,  NNADTEM  contains  the  "no-load" 
and  "decimal  only'  indicators  (bits  15  and  14),  the  indication  of  the 
niimber  of  components  in  the  noun  (bits  12-11),  and  the  index  used  to 
load  IDADTEM^  (see  "LODNNTAB"). 

NNTYPTEM:  Single  precision  octal  word  containing  the  following  information. 
If  the  noiin  is  a normal  noun,  NNTYPTEM  contains  the  "no-load"  and 
"decimal  only"  indicators  (bits  15  and  14),  the  indication  of  the 
number  of  components  in  the  noun  (bits  12-11),  the  specification  of  the 
routine  to  be  used  for  input/output  (bits  10-6),  and  the  index  used 
in  selecting  the  scale  factor  to  be  used  in  input/output  scaling  (bits 
5-1) . If  the  noun  is  a mixed  noun,  NNTYPTEM  contains  the  index  used 
in  selecting  the  scale  factor  for  each  of  the  three  components.  Bits 
15-11  contain  the  index  for  the  third  component,  bits  10-6  contain  the 
index  for  the  second  component,  and  bits  5-1  contain  the  index  for 
the  first  component. 

NOUNADD:  Single  precision  octal  address  of  register  or  registers  to  be 
displayed  or  loaded  by  the  noun  being  processed. 

NOUNCADR:  Single  precision  octal  address  of  the  most  recent  register 
displayed  by  a normal  noun  or  loaded. 

NOUNREG:  Single  precision  storage  for  the  value  of  the  number  currently 
displayed  in  the  noun  register  on  the  DSKY,  scaled  B14  and  unitless. 

NOUNTEM:  Single  precision  temporary  storage  for  the  address  of  one  of 
the  components  of  a mixed  noun. 

NOUT:  See  INTR  section. 

NVQTEM:  Single  precision  octal  return  address  storage. 

NVTEMP:  Single  precision  storage  for  verb-noun  combination,  the  noun 
number  stored  in  bits  7-1  and  the  verb  number  stored  in  bits  14-8; 
used  instead  to  indicate  a desired  blanking  option  if  bit  15  is  set 
(if  NVTEMP  is  negative). 
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OPTIONl,  0PTI0N2,  OPTION3:  Three  single  precision  option  codes  for 
display  to  the  astronaut  via  noun  6,  The  first  indicates  the  sub- 
ject of  the  decision  to  be  made,  the  second  indicates  the  choice  made, 
which  he  may  accept  or  change,  the  third  indicates  flagbit  settings. 

I RADMODES:  See  RADR  section. 

REQRET:  See  DSKY  section. 

RUTMXTEM;  Single  precision  octal  word  loaded  only  for  mixed  nouns. 

Bits  15-11  specify  the  routine  to  be  used  in  input/output  of  the 
third  component  of  the  mixed  noun;  bits  10-6  specify  the  routine 
for  the  second  component;  bits  5-1  specify  the  routine  for  the 
first  component. 

SAMPTIME:  See  DSKY  section. 

SFTEMPl;  Double,  precision  storage  for  the  conversion/scale  factor  in 
decimal  input/output  routines. 

TIMENOW;  See  EXVB  section. 

VERBREG:  Single  precision  storage  for  the  value  of  the  number  currently 
display  in  the  verb  register  on  the  DSKY,  scaled  B14  and  unitless. 

VERBSAVE:  Single  precision  storage  for  the  value  of  VERBREG  (complemented 
at  the  beginning  of  verb  processing  (see  "ALMCYCLE"). 

VGDISP:  See  DELVSAB  in  BURN  section. 

XREG,  XREGLP:  Two  halves  (most  and  least  significant)  of  the  five  digit 

number  currently  input  into  the  first  data  register  on  the  DSKY  (Rl), 

scaled  BO  assuming  that  the  decimal  point  is  on  the  left  of  the  dis- 
play register. 

YREG,  YREGLP;  The  equivalent  of  XREG  and  XREGLP  for  R2  instead  of  Rl. 

ZREG,  ZREGLP:  The  equivalent  of  XREG  and  XREGLP  for  R3  instead  of  Rl. 
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Table  1 


Normal  Nouns 


Noun  KtNNADTAB K;NNTYPTAB 

(addresses  are  bits  bits  bits  bits 

normally  positive)  15-13  12-11  10-6  5-1 


0 

+0 

0 

0 

0 

0 

0 

0 

1 

-Kiposmaxsp 

0 

0 

0 

2 

1 

0 

2 

-K:posmaxsp 

0 

0 

0 

2 

3 

0 

3 

-Krposmaxsp 

0 

0 

0 

2 

2 

2 

4 

DSPTEKL 

0 

0 

0 

0 

10 

4 

5 

DSPTEMl 

0 

0 

0 

0 

10 

4 

6 

0PTI0N1,0PTI0N2 , 0PTI0N30 

0 

0 

2 

0 

0 

7 

XaEG,  YREG,  ZREG 

0 

0 

0 

2 

0 

0 

8 

ALMCADR,  , ERCOUNT 
dp' 

0 

0 

0 

2 

0 

0 

9 

FAILREG 

U yXf/i 

0 

0 

0 

2 

0 

0 

10 

-1 

0 

0 

0 

0 

0 

0 

11 

TCSI 

0 

1 

0 

2 

8 

0 

12 

OPTIONX 

0 

0 

0 

1 

0 

0 

13 

TCDH 

0 

1 

0 

2 

8 

0 

14 

DSPTEiVlX_  , _ 

0 , X , 

0 

0 

0 

2 

3 

0 

15 

-0 

0 

0 

0 

0 

0 

0 

16 

DSPTEMX, 

dp 

+0 

0 

1 

0 

2 

8 

0 

17 

0 

0 

0 

0 

0 

0 

18 

FDAI 

0 

0 

0 

2 

2 

2 

19 

+0 

0 

0 

0 

0 

0 

0 

20 

CDU 

0 

0 

0 

2 

2 

2 

21 

PIPA 

0 

0 

0 

2 

3 

0 

22 

THETAD 

0 

0 

0 

2 

2 

2 

23 

+0 

0 

0 

0 

0 

0 

0 

24 

DSPTEMX^p 

DSPTEM1o^1^2 

0 

1 

0 

2 

8 

0 

25 

0 

0 

0 

2 

3 

0 

26 

DSPTEML„  , „ 

0 

0 

0 

2 

0 

0 

27 

SMODE 

0 

0 

0 

0 

3 

0 

28 

+0 

0 

0 

0 

0 

0 

0 

29 

+0 

0 

0 

0 

0 

0 

0 

30 

+0 

0 

0 

0 

0 

0 

0 

31 

+0 

0 

0 

0 

0 

0 

0 

32 

mTPER 

0 

1 

0 

2 

8 

0 

33 

TIG 

0 

1 

0 

2 

8 

0 

34 

DSPTEKL, 

dp 

0 

1 

0 

2 

8 

0 

35 

TTOGO 

0 

1 

0 

2 

8 

0 

36 

TIMENOW 

0 

1 

0 

2 

8 

0 

37 

TTPI 

0 

1 

0 

2 

8 

0 

38 

TET 

0 

1 

0 

2 

8 

0 

39 

+0 

0 

0 

0 

0 

0 

0 

DATA 
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Table  2 


Mixed  Nouns 


Noun 


40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 


K:NNADTAB 
(bits  15,14,13 
12-11,  10-1) 
i 

110  2 0 

1111  3 

0 10  2 6 
0 10  2 9 

110  2 12 

110  2 15 

0 0 0 0 l8 

0 10  1 21 

0101  24 

0 1 0 2 27 

0 0 0 0 0 

0 10  1 33 
0 0 0 0 36 

0 0 0 0 0 


KrlMDTAB 

K:NNTYPTAB 

KiIDADTAB^  (binary) 

K:  IMDTAB^'^i 

1+2 

TTOGO 

VGDISP 

DVTOTAL 

OIOIO 

OIOIO 

00000 

DSPTEMIq 

DSPTEM1]_ 

+0 

00000 

01011 

00010 

HAPO 

lEPER 

VGDISP 

OIOIO 

01000 

01000 

lAT 

LONG 

ALT 

01000 

00100 

00100 

HAPOX 

HPERX 

TEE 

00000 

01000 

01000 

TRKMKCNT 

TTOGO 

pMGA 

00100 

00000 

00000 

DAPDATRl 

+0 

+0 

00000 

00000 

00000 

LEMMASS 

CSMMASS 

+0 

00000 

00110 

00110 

PITTIME 

ROLLTIME 

+0 

00000 

10111 

10111 

R22DISP 

R22DISP+2 

WHCHREAD 

00000 

OIOIO 

01000 

+0 

+0 

+0 

00000 

00000 

00000 

ALPHAS B 
BETASB 
+0 

00000 

00100 

00100 

ACTCENT 

+0 

+0 

00000 

00000 

00100 

+0 

+0 

+0 

00000 

00000 

00000 

K:RUTMXTAB 

(binary) 

oOlll  00111  01001 

00000  00011  00010 

00111  00111  00111 

00111  01010  01010 

01001  00111  00111 

01010  01001  00011 

00000  00000  00000 

00000  01011  01011 

00000  00011  00011 

00011  00111  00111 

00000  00000  00000 

00000  01010  01010 

00000  00000  01010 

00000  00000  00000 
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Table  2 continued 


Noun  K:NmDTAB 


KiIDA-DTAB  K:RNTYPTA.B 


KrRUTMXTAB 


54  0 1 0 2 42 

55  0 1 0 2 45 

56  0 0 0 1 48 

57  00000 

58  0 10  2 54 

59  0 1 0 2 57 

60  0 1 0 2 60 

61  1 1 0 2 63 

62  1 1 0 2 66 

63  0 1 0 2 69 

64  1 1 0 2 72 

65  0 1 0 2 75 

66  1 1 0 1 78 

67  0 0 0 2 81 

68  1 1 0 2 84 

69  0 1 0 2 87 


RANGE 

00100 

01010 

00111 

01010 

00111 

00100 

RRATE 

RTHETA 

NN 

00100 

00100 

00000 

01010 

01010 

00011 

ELEV 

CENTANG 

RR-AZ 

00000 

00100 

00100 

00000 

01010 

01010 

RR-ELEV 

+0 

+0 

00000 

00000 

00000 

00000 

00000 

00000 

+0 

+0 

POSTTPI 

01010 

01010 

01000 

00111 

00111 

OOlJ  i. 

DELVTPI 

DELVTPF 

DVLOSx 

01010 

01010 

01010 

00111 

00111 

00111 

DVLOSy 


VHORIZ 

HDOTDISP 

HCALCl 

11000 

01010 

01010 

00100 

00111 

00111 

TTFDISP 

TTOGO 

OUTOFPLN 

10110 

00000 

00000 

01010 

01001 

01001 

ABVEL 

TTOGO 

DVTOTAL 

01010 

00000 

01010 

00111 

01001 

00111 

ABVEL. 

HDOTDISP 

HCALCl 

11000 

01010 

01010 

00100 

00111 

00111 

FUNNYDSP 

HDOTDISP 

HCALC 

11000 

01010 

00000 

00100 

0011 L 

01100 

SAMPTIME 

SAMPTIME 

SAMPTIME 

00000 

00000 

00000 

01000 

01000 

01000 

RSTACKg 

LR  position 
+0 

00000  00000  OHIO 
bits  of  channel  33 

00000 

00110 

00100 

RSTACKq 

RSTACK2 

RSTACK4 

10101 

10100 

10011 

00100 

00100 

00100 

RANGEDSP 

TTFDISP 

DELTAH 

11000 

00000 

10110 

00100 

01001 

01010 

DLANDZ 

DLANDY 

DLANDZ 

11000 

11000 

11000 

00100 

00100 

00100 
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Table  2 continued 


Noun  K:NMDTA.B 


K:inA.DTAB  KtNOTYPTAB 


KrRUTMXTAB 


70  0002 

71  0002 

72  0001 

73  0001 

ih  1102 

75  1102 

76  0102 

77  1101 

78  110  2 

79  0 1 0 2 

80  0001 

81  0102 

82  0102 

83  0 10  2 

84  0 1 0 2 


90 

AOTCODE 

AOTCODE]_ 

AOTCODE2 

93 

AOTCODE 

AOTCODEi 

AOTCODE2 

96 

CDUt 

CIUs 

+0 

99 

TAWGq 

TANGi 

+0 

102 

TTOGO 

YAW 

PITCH 

105 

DIFFALT 

T1T0T2 

T2TOT3 

108 

ZDOTD 

RDOTD 

XRANGE 

111 

TTOGO 

YDOT 

+0 

114 

DNRRANGE 

DNRRDOT 

TTOTIG 

117 

CURSOR 

SPIRAL 

POSCODE 

120 

DA.TAGOOD 

OMEGDISP 

+0 

123 

DELVLVCx 

DELVLVCy 

DELVLVCz 

126 

DELVLVCx 

DELVLVCy 

DELVLVCz 

129  . 

DELVIMUx 

DELVIMUy 

DELVIMUz 

132 

DELVOVx 

DELVOVy 

DELVOVz 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00010 

00010 

00000 

00010 

01101 

00000 

00010 

00010 

00000 

00010 

01101 

OOIQO 

00100 

00000 

01010 

01010 

01001 

00000 

00000 

01000 

01001 

01001 

00111 

01000 

01010 

01010 

00111 

00111 

00111 

00000 

01010 

00000 

00000 

00111 

01001 

00000 

01101 

01100 

01001 

01111 

OHIO 

00000 

00010 

00010 

00011 

00010 

00010 

00000 

00100 

00000 

00000 

01010 

00011 

01010 

01010 

01010 

00111 

00111 

00111 

01010 

01010 

01010 

00111 

00111 

00111 

01010 

01010 

01010 

OClll 

00111 

00111 

01010 

01010 

01010 

00111 

00111 

00111 
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Table  2 continued 


Noun  KiNMDTAB 


KiIMBTAB  K:NNTYPTAB 


KrRUTMXTAB 


85  0102 

86  0102 

87  0001 

88  0102 

89  0 10  2 

90  0102 

91  0 0 0 2 

92  0000 

93  0 0 0 2 

94  0000 

95  0 0 0 0 

96  0000 

97  0 0 0 2 

98  0002 

99  0 1 0 2 


135 

VGBODYx 

VGBODYy 

VGBODYz 

138 

DELVLVCx 

DELVLVCy 

DELVLVCz 

l4i 

AZ 

iSL 

+0 

144 

i47 

STARADox 

STARADOy 

STARADoz 

lANDLAT 

LANDLONG 

lANDALT 

150 

RANGE 

RRATE 

RTHETA 

153 

P21ALT 

P21VEL 

P21GAM 

0 

+0 

+0 

+0 

159 

OGG 

IGC 

MGC 

0 

+0 

+0 

+0 

0 

+0 

+0 

+0 

0 

+0 

+0 

+0 

171 

DSPTEMl 

174  . 

DSPTEMli 

DSPTEMI2 

DSPTEM2 

DSPTEM21 

DSPTEMBg 


177 

WWPOS 

WWEL 

VMBIAS 

01010  01010  01010 

01010  01010  01010 

00000  00010  00010 

00000  00000  OOOOO 

00111  00011  000].l 

00100  01010  00111 

00100  01001  01000 

00000  00000  00000 

00011  00011  00011 

00000  00000  00000 

00000  00000  00000 

00000  00000  00000 

00000  00000  00000 

00000  00000  00000 

11100  11011  11010 


00111  00111  00111 

00111  OClll  00111 

00000  00010  00010 

00001  00001  00001 

00100  00111  0^ ill 

01010  00111  OOlOO 

01010  01010  00111 

00000  00000  00000 

00111  00111  00111 

00000  00000  00000 

00000  00000  00000 

00000  00000  OOOOO 

00011  00011  00011 

00011  00001  00011 

01010  00101  00111 
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Table  3 


Input/Output  Scaling 


Each  description  in  the  table  is  arranged  in  the  following  order: 

Equation  value 
Scale  factor  and  units 
Storeu  value 
(comment) 


Index  K:SFDITAEi 


K:SFOUTA.Bi 


0 105 

B28,  unities s 

000063  032400 


10-5 

B-14,  unitless 
051740  132610 


1 

2 

3 


(used  with  nouns  2 ,l4, 21 ,25 ,27 >45 >49,55 ,79 ,80,97,98) 

+0  +0  (not  used) 

0 +0 

B-1,  revolutions 
0 

(used  with  nouns  3:18,20,22,41,72,72,79587) 
when  used  with  noun  89 


(100  / 360)  +2“^® 

BO,  revolutions  per  degree 

107073  034353 


360  / 100 

B75  degrees  per  revolution 

007140  314630 


3 


4 


5 


when  used  with  noun  93 

(100  / 360)  2"^^  +2"7 

B-21,  gyro  torque  pulses/deg 

107070  034353 
(1000  / 360)  +2 

B3,  revolutions  per  degree 

13O7O0  343453 

(used  with  nouns  4,5,43,45,51 
1000  / 360 

BI3,  revolutions  per  degree 

000053  216163 

(not  used) 


2^^  360  / 100 

B28  degrees  per  gyro  pulse 

007143  314630 
360  / 100 

BO,  degrees  per  revolution 
134120  075343 

52,55,56,74,80,90  ,91) 

360  / 1000 

Bl,  degrees  per  revolution 
056053  036563 
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Index 

6 


7 

8 

I 

9 

10 

11 


12 

13 


K:SFINTABi 

105  X 0.45359237 

B16,  kilogr.qms  per  pound 

261133  317133 

(used  with  noun  47) 

1852  X lo3 

829}  meters  per  nmi 

OOO7O3  2046O3 

(used  with  nouns  54,89,90) 

1852  X 10^ 

B29 , meters  per  nmi 

010653  O574O3 

(used  with  nouns  42,  43,  44, 

(0,3048  / 100)  X 105 
BIO,  meters/cs  per  fps 

Il4l4g  314638 

(used  with  noun  91 ) 

(0.3048  / 100)  X 10^ 

B7,  meters/cs  per  fps 

074758  I605I8 

(used  with  nouns  40,42,49,54, 
10^  / 360 

B12,  revolutions  per  degree 

000018  034348 
(used  with  noun  4l) 

103  / 2.859026 

B28,  RR  range  counts  per  nmi 

000478  211358 

(used  with  noun  78) 

-1.59286  X lo5 

B28,  RR  rate  counts  per  fps 

777668  507113 

(used  with  noun  78) 


K:SFOUTA.Bi 

2.2046268  / io5 

B-2,  pounds  per  kilogram 
OOOOI3  1617O3 


5.3996  X 10“^  / lo3 

B-I5,  nmi  per  meter 

OO44I3  343063 


5.3996  X 10"^  / 10^ 

B-22,  nmi  per  meter 

071763  216033 

',  58,  75,  76,  91) 

(100  / 0.3048)  X lo5 
BO  , fps  per  meter/cs 
I534O3  15340g  (equal  halves) 


(100  / 0.3048)  10"^  + 2'^^ 

BO,  fps  per  meter/cs 
OIO3I8  210328 

1,59,60,62,63,64 ,76,77,81-86,90  ) 
360  / 102 

B2,  degrees  per  revolution 

346318  231468 


2.859024  / 103 

B-14  nmi  per  RR  range  count 

006363  145528 


-0.6278  / 105 

B-14,  fps  per  RR  rate  count 

745528  703078 
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Index 

KiSFINTAB-; 

K:SF0UTAB^ 

l4 

105  / 1.0790 

B28,  LR  alt  counts  per  foot 

0.9267840599  E5  X 2"2o 

1.0790  / 10^ 

B-14,  feet  per  LR  alt  count 
1.079  E-5  X 2l^ 

(used  with  noun  66) 

15 

105  / 2.345 

B28,  bits  per  foot 

000023  232243 

2.345  / 105 

B-14,  feet  per  bit 

142263  317573 

(not  used) 

16 

105  / 0,5 

B28,  bits  per  fps 

000143  O65OO3 

0.5  / 105 

B-14j  fps  per  bit 

024763  O553I3 

(not  used) 

17 

105  / 0.5571 

B28,  bits  per  fps 

000123  364558 

0.5571  / 10^ 

B-14,  fps  per  bit 

027273  164153 

(not  used) 

18 

10^  / 360 

B-11,  rev  per  deg/sec 

042563  O707I3 

360  / 10^ 

B-35  deg/sec  per  rev 

000073  13734q 

(not  used) 

19 

-1.55279503  X 10^ 

B28,  LRVX  counts  per^fps 
-1.55279503  E5  X 2“^^ 

-0.6440  / 10^ 

B-14,  fps  per  LRYX  count 
-0.6440  E-5  X 2^^ 

(used  with  noun  67) 

20 

0.8250825087  X 105 

B28,  LRVT  counts  per  fps 

0.8250825087  E5  X 2"2^ 

1.212  / 105 

B-14,  fps  per  LRVY  count 
1.212  E-5  X 2^^ 

(used  with  noun  67) 

21 

1.153668673  X 10^ 

B28,  LRVZ  counts  per  fps 
1.153668673  E5  X 2"2° 

0.8668  / 10^ 

B-14,  fps  per  ^VZ  count 
0.8668  E-5  X 2^^ 

(used  with  noun  67) 
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Index 

KrSFINTABn 

KrSFOUTABi 

22 

1852  X 10^ 

627,  meters  per  nmi 

043240  276003 

(used  with  nouns  61,68) 

5 =399568  X 10“^  / 10^ 
B-24,  nmi  per  meter 

347723  070163 

23 

103  / 0.002 

B28,  centiseconds  per  deg 

000363  2044O3 

(used  with  noun  48) 

0.002  / 103 

B-14,  deg  per  centisecond 
OIO3O3  33675 

2k 

0.3048  X 105 

B24,  meters  per  foot 

000353  304003 

3.2808399  / lo5 

B-10,  feet  per  meter 
010460  I570O3 

\ 

(used  with  nouns  60,63,64,68  , 

69) 

25 

10^ 

B14,  unitless 

234200  OOOOO3 

(not  used) 

10-7 

B-7,  unitless 

0032 I3  267063 

26 

3 0480 

BI9,  meters  per  foot 

3 0480  X 

(used  with  noun  99) 

17.2010499 

B7,  feet  per  meter 

17.2010499  X 2~^ 

27 

0.003048  X 10^ 

B7,  meters/cs  per  fps 

30.48  X 2-7 

(used  with  noun  99) 

328.08399  / lo7 

BO,  fps  per  meter 

0.032808399 

28 

100 

B8,  unities s 

100  X 2"® 

(used  with  noun  99) 

5 -2 

2^  X 10 

BO,  unities s 

0.32 
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Display  Quantities 


ABVEL;  See  SERV  section. 

ACTCENT;  See  TRGL  section. 

AIWCADR;  See  PGSR  section. 

ALPHASB:  Same  as  PITCHANG,  see  EXVB  section. 
ALT:  See  COOR  section. 

AOTCODE:  See  ALIN  section. 

APO;  See  ASCT  section. 

AZ;  See  ALIN  section. 

BETASB:  Same  as  YAWANG,  see  EXVB  section. 

CDU;  See  "Major  Variables"  section. 

CDU  ; See  RADR  section, 
s 

CDU^:  See  RADR  section. 

CENTANG:  See  TRGL  section. 

CSMMASS:  See  DAPB  section. 

CURSOR:  See  ALIN  section. 

DAPDATRl:  See  DAPB  section. 

DATAGOOD:  See  RNAV  section. 

DELTAH:  See  SERV  section. 

DELVIMU  : See  BURN  section. 
x,y,z 

DELVLVC  : See  TRGX  section. 
x,y,z 

DELVOV  : See  OEffll  section. 
x,y,z 

DELVTPF:  See  TRGL  section. 

DELVTPI:  See  TRGL  section. 

DIPT  ALT:  See  TRGX  section. 

DLAi,'DX,DLANDY,DLANDZ:  See  DESC  section. 

DNRRANGE:  See  RADR  section. 

DJJRRDOT:  See  RADR  section. 

DSPTEMX:  See  DATA  section. 

DSPTEMl:  See  DATA  section. 

DSPTEM2:  See  DATA  section. 

DVLOS  : See  TRGL  section. 
x,y,z 

DVTOTAL:  See  SERV  section. 

EL:  See  ALIN  section. 

ELEV:  See  TRGL  section. 

ERCOUNT:  See  TEST  section. 
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FAILREG:  See  PGSR  section. 
FDAI:  See  ATTM  section. 
FUMYDSPr  See  EESC  section. 
HAPO:  See  TRGX  section. 
HAPOX:  See  EXVB  section. 
HGALC:  See  SERV  section. 
HCALCl:  See  SERV  section. 
HDOTDISP:  See  SERV  section. 
HPERr  See  TRGX  section. 
HPERX:  See  EXVB  section. 

IGC:  See  COOR  section. 
LANDALT:  See  ALIN  section. 
LANDLAT:  See  ALIN  section. 
LANDLONG:  See  ALIN  section. 
LAT:  See  COOR  section. 
LEMMASSr  See  DAPB  section. 
LONG:  See  COOR  section. 

MGC:  See  COOR  section. 
niTPER:  See  EXVB  section. 

NN:  See  TRGX  section. 

OGC:  See  COOR  section. 
OMEGDISPr  See  RNAV  section.  ' 
OPTIONXr  See  EXVB  section. 
OPTIONlr  See  DATA  section. 
0PTI0N2:  See  DATA  section. 
OUTOFPLN:  See  DESC  section. 
PIPA:  See  SERV  section. 

PITCH:  See  ASCT  section. 
PITTIME:  See  DAPB  section. 
pMGA:  See  TRGX  section. 
POSCODE:  See  ALIN  section. 
POSTTPI:  See  TRGL  section. 
P21ALT:  See  RNAV  section. 
P21GAM:  See  RNAV  section. 
P21VEL:  See  RNAV  section. 
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RANGE;  See  EXVB  section. 

RANGEDSP:  See  EESC  section. 

RDOTD:  See  ASCT  section. 

ROLLTIMEr  See  DAPB  section. 

RRATE:  See  EXVB  section. 

RR-AZ;  See  RNAV  section. 

RR-ELEV:  See  RNAV  section. 

RSTACK:  See  RNAV  section. 

RTHETAr  See  EXVB  section. 

R22DISPr  See  R22DISPR  in  RNAV  section. 
R22DISP+2s  See  R22DISPV  in  RNAV  section. 
SAMPTIME;  See  DSKY  section. 

SMODEr  See  TEST  section. 

SPIRAL?  See  ALIN  section. 

STARAD;  See  ALIN  section. 

TANG?  See  RADR  section. 

TCDH:  See  TRGX  section. 

TCSI:  See  TRGX  section. 

TET:  See  ORBI  section. 

TEE:  See  EXVB  section. 

THETADr  See  COOR  section. 

TIG:  See  BURN  section. 

TLMENOW:  See  EXVB  section. 

TRKMKCNT;  See  RNAV  section. 

TTEDISP:  See  DESC  section. 

TTOGO:  See  BURN  section. 

I TTOTIG:  See  RADR  section. 

TTPI:  See  TRGL  section, 

T1T0T2:  See  TRGX  section. 

T2TOT3;  See  TRGX  section. 

VGBODY;  See  BURN  section. 

VGDISP:  Same  as  DELVSAB,  see  BURN  section. 
VHORIZ:  See  DESG  section. 

WRCHREAD:  See  RNAV  section. 

WWBIAS:  See  RNAV  section. 

WWPOS:  See  RNAV  section. 
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WWYEL:  See  RNAV  section. 

XRANGEr  See  ASCT  section. 

XREG:  See  DATA  section. 

YAW:  See  ASCT  section. 

YDOTr  See  ASCT  section. 

YREGr  See  DATA  section. 

ZDOTD:  See  ASCT  section. 

ZEEG:  See  DATA  section. 

-Krposmaxsp:  See  "Major  Variables"  section. 
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o 


I 


DESC 


Descent  Guidance 


P63LM  Perform  "R02B0TH"  (assure  that  IMU  is  operating) 

WHICH  = "P63TABLE" 

DVTHRUSH  = KrDPSTHRSH 
DVCNTR  = 4 
WCHPHASE  = - 1 
FLPASSO  = 0 

Switch  bit  14  of  channel  12  to  0 (disable  RR  tracker) 

Switch  FLAGWRD5  bit  12  (NOTHROTL)  to  0 
Switch  FLAGWRD6  bit  6 (REDFLAG)  to  0 
Switch  FLGWRD11  bit  15  (LRBYPASS)  to  0 
Switch  FLAGWRD6  bit  8 (MUNFLAG)  to  1 
Switch  FLAGWRDO  bit  9 (P25FLAG)  to  0 
Switch  FLAGWRDO  bit  7 (RNDVZFLG)  to  0 
TPIP  = TLAND 
TSt  = TLAND 
Perform  "MOONMX" 

LAND  = [refsmma:^  [moonma:^  ^ (^S  + m504  * ^S) 

TSt  = TIMENOW 
Perform  "MOONMX" 

W1  = KiMOONRATE  j^FSMMA^  j^OONMA'^  ^ (K:UNITZ  + LM504  * KrUNITZ) 

LANDMAG  = |RLSj 

TDEC1  = TLAND  - K:GUIDDURN 

Perform  "LEMPREC" 

NIGNLOOP  = 40 


DESC  - 1 


IGNALOOP 


EXGSUB 


1 0 
0 1 
0 0 

BELT AH  = K:99999C0N 

UNFC  = 0 

TTF  = 0 

PIPTIMEI  = TAT 

R = [refsmmat]  MTT 


Qx:mat]  = 


0 

0 

1 


Perform  "MUNGRAV"  with  TSr  - R 


GDT  = GDT1 


NGUIDSUB  = 2 


(continues  at  "EXGSUB" 

Proceed  to  the  second  step  of  "GUILDRET"  after  one  Iteration 

of  guidance  computations) 

MFC  = KiTRIMACCL  ZOOMTIME  unitUNFC  (argument  of  vinit  operation 

adjusted  to  prevent  overflow) 

If  NGUIDSUB  > 0: 


NGUIDSUB  = NGUIDSUB 


Proceed  to  "CALCRGVG" 


If  NIGNLOOP  =0: 

Perform  "ALARM"  with  TS  = 01412g 

TS  = 3326g  ( S-register  portion  of  adHress  of  cell 

containing  alarm  pattern) 

If  NIGNLOOP  > 0: 

TS  = NIGNLOOP  - 1 
NIGNLOOP  = TS 


TSden  = VGU  - DESKIGNX  VGU 

z X 

TSnum  = (DESIGNRZ  - RGU  ) + DESKIGNY  RGU  ^ + DESKIGNX  (RGU  - DESIGNRX) 

z y X 

TSv  = DESKIGNV  (|vGIt|  - DESIGNV) 

TSt  = (TSv  TSnum)  / TSden 


TDEC1  = PIPTIMEI  + TSt 
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ASTNRET 


If  j TSt j ^ K: DDUMCRIT:  (reiterate) 

Perform  "TNTSTALT." 

Switch  FLAGWRD3  bit  4 (INTYPFLG)  to  1 

Switch  FLAGWRDO  bit  12  (MOONFLAG)  to  1 

TET  = PIPTIME1 

RCV  = RATT 

VCV  = VATT 

Perform  "INTEGRVS" 

Proceed  .to  "IGNALOOP" 

TIG  = TDEC1  - ZOOMTIME 
OUTOFPLN  = unit(V  # R)  • LAND 
RoOSAVE  = UNFC 

DISPDEX  = - 21  (enable  astronaut  brsinch  to  "ASTNRET") 

Perform  "STCL0K3" 

End  job 

Proceed  to  "GOPERF1"  with  TS  = 0001 4g 

(if  terminate,  proceed  to  "GOTO  POOH";  if  proceed,  continue 
at  next  step;  if  other  response,  skip  next  step.) 

Perform  "R5I" 

POINTVSM  = unitR60SAVE 

SCAXIS  = K:UNITX 

Perform  "PFLITEDB"  with  interrupts  inhibited 
Perform  "R60LEM" 

If  bit  6 of  channel  33  = 1 : (LR  not  in  position  #1 ) 

Proceed  to  "G0PERF1"  with  TS  = 00500g 

(If  terminate,  proceed  to  "GOTO  POOH";  if  proceed,  continue 
at  previous  step;  if  other  response,  continue  at  next  step 

Perform  "SETP0S1"  (Initialize  landing  radar  control) 
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LUNLAND 


I 


RESTART? 


GUILDRET 


STARTP6A 


Proceed  to  "BURNBABY" 

(Standard  pre-ignition  sequence;  initializes  average-g 
navigation  at  TIG-30  seconds;  calls  "P63IGN”  at  time  of 
ignition  which  sets  AVEGEXIT  to  "LUNLAND”  establishing  the 
two-second  guidance  loop;  calls  "P63ZOQM"  at  throttle-up 
time. ) 

If  FLAGWRD5  bit  8 (ZOOMFLAG)  = 0;  (RI3) 

Proceed  to  "DISPEXIT”  (do  display  only;  no  throttle-up  yet) 
If  bit  5 of  channel  30  = 1 : (auto  throttle  disabled) 

Proceed  to  "STARTP67" 

If  MODREG  = 67,  proceed  to  "STARTP66" 

If  MODREG  =66,  proceed  to  "RESTART?" 

If  bit  13  of  channel  31  = 0: 

If  MODREG  = 66,  proceed  to  "RESTART?" 

If  RODCOUNT  i-  0,  proceed  to  "STARTP66" 

Proceed  to  "GUILDRET" 

If  FUGWRD1  bit  12  (RODFLAG)  = 0: 

Proceed  to  "STRTP66A" 

Proceed  to  "VERTGUID" 

RODCOUNT  = 0 
TPIPOLD  = TPIP 
TPIP  = PIPTIME1 
TIFTM?  = TTF 

If  FLPASSO  > 0,  proceed  to  "TTFINCR" 

Proceed  to  K:NEWPHASEy^j^pj^g 
(TTFINCR,  TTFINCR,  STARTP64,  P65START) 

MODREG  = 64 

Establish  "DSPMMJOB"  (pr30) 

TTFTMP  = TTFTMP  + DELTTFAP 


DESC  - 4 


Inhibit  interrupts 


TTFINCR 


REDESIG 


Perform  "C13STALL" 

Switch  bit  12  of  channel  13  to  1 (enable  RHC  interrupt  #10) 

DB  = K:P64DB 

Switch  FLAGWRD6  bit  6 (REDFLAG)  to  0 
Release  interrupt  inhibit 

TSt  = TPIP  - TPIPOLD  (rescaled  to  B17  centiseconds) 

LANDTEMP  = LANDMAG  unit(LAND  — TSt  LAND  * WM)  (argument  of  unit 

operation  adjusted 

TTFTMP  = TTFTMP  + TSt  to  prevent  overflow) 

TTF  = TTFTMP 
Perform  "TDISPSET" 

Change  job  priority  to  31  (pr31 ) 

LAND  = I^DTEMP  + DLAND 
LANDMAG  = |i^d| 

DLAND  = 0 

Change  job  priority  to  20  (pr20) 

Proceed  to  K : PREGUIDEy^j^pj^^g 
(CALCRGVG,  RGVGCALC,  REDESIG,  RGVGCALC) 


If  FLAGWRD6  bit  6 (REDFLAG)  = 0 or  if  TREDES  = 0: 
Proceed  to  "RGVGCALC" 


Inhibit  interrupts 

ELINCR^  = (ELINCR1,  O) 
dp 

AZINCR^  = (AZINCR1.  O) 
dp 

ELINCR1  = 0 
AZINCR1  = 0 


(AZDJCRI  and  ELINCR1  are 
updated  in  routines 
"PITFALL"  and  "REDESMON" 
which  are  called  by 
program  interrupt  #10) 


Release  interrupt  inhibit 
TS  = unit (LAND  - R) 

TS  = TS  + AZINCR  pBPIP  - ELINCR  TS  * YNBPIP 


CALCRGVG 

RGVGCALC 


TTF/8CL 


If  TS  > K:DEPRCRIT,  TS  = K:DEPRCRIT 

X ^ 

^DTEMP  = LANDMAG  unit(R  + TS  (LAND^  - R^)  / TS^) 
I^D  = ^DTEMP 


(VATT  used  here  is  VATT1  scaled 
B5;  see  VATT  of  the  ORBI  section.) 


Proceed  to  "RGVGCALC” 

V = [REFSMMA:^  VATT  + UNFC 

ANGTERM  = R * + V 

VGU  = [GCM:^  ANGTERM 

VHORIZ  = V VGU  ^ + VGU  ^ 
z y 

TS  = R - LAND 
RGU  = [gcma:^  TS 
RANGEDSP  = I RGU  I 

LOOKANGL  = K:180degs  (arcsln^pCunit  TS  • MBPIP)  + K:1d2DEG) 

Proceed  to  K:WHATGUID^I^jjpjj^gg 
(TTF/8CL,  TTF/8CL,  TTF/8GL,  VERTGUID) 


LUNDEX  = K:TARGTDEX^^^j^3g 


A3  ^^^'^^^^LUNDEX 


A^  TTFADGZ^yj^jjg^ 


(0,  0,  28) 
^^DZG) 


A^  = K:ttf6b3  VGU^  + TTFVDGZ^y^^j^g^ 


®DZG^ 


(6  VGU^  ^ 18  Vj32g) 


TS  = TARGRDG. 


LUNDEX 


A„  = K:ttf24b6  (TS  - RGU  ) 
u z z 

PREC  = 2“'^ 


ROOTPS  = TTF 
n = 3 

Perform  "ROOTPSRS" 
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If  ROOTGOOD  = 0,  proceed  to 

(I4O6POO,  I4O6ALM,  I4O6ALM) 

TTF  = ROOTPS 
Perform  "TDISPSET" 

QUADGUID  TSt  = - TTF  + LEADTIME 


If  TSt  < 0,  TSt  = 0 

RA  = TSt  / TTF 

ms 

( - r) 

TS1  = 2 RA^  + RA 

(2  r^  - r) 

TS2  = 3 RA^  + 2 RA 

(3  - 2 r) 

TS3  = 4 +'3  RA 

(4  - 3 r) 

TS4  = 6 (RA^  + RA)  + Krposmaxsp 

(6r^-6r  + l) 

LUNDEX  = K:TARGTDEX^^PPP^3g 

(0,  0,  28) 

TSb  = TS1  VGU 


TSc  = TS3  TARGVDG^^^gX 

TSd  = 2 TS2  (TARGRDG^^jjj,^  - RGU)  / TTF 

TSe  = K:ttf6b3  (TSb  + TSc  + TSd)  / TTF 

TSa  = TS4  TARGADG^^j^gjj.  + TSe  (desired  acceleration) 

AFCCALC1  yWFC  = [^MA:^'^  TSa  - GDT  / K:GSCALE 
AFCMAG  = I pFC  | 

TS  = (KzHIGHESTF  / MASS)^  - UNFC  ^ - UNFC  ^ 

y X 

If  TS  <0,  TS  = 0 

If  UNFC  < --\/tS  , UNFC  = -Vts” 
z z 

WCHPHOLD  = WCHPHASE 

FLPASSO  = FLPASSO  + 1 

Proceed  to  KiAFTRCUID^^j^p^jj^^^ 

(CGCALC,  EXTLOGIC,  EXTLOGIC,  STEER?) 
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EXTLOGIC 


TSt  = TMD„cHPHASE 
If  TSt  > 0: 


CGCALC 


WCHPHASE  = WCHPHOLD  + 1 
FLPASSO  = 0 


i = K:TARGTDEX„^j^p^^^  (0,0,28) 

If  TTF  < - TCGI,  or  TTF  > - TCGF.: 
ms  i ms'  i 

Proceed  to  KiWHATEXIT^I^j^P^qjj^ 

(EXGSTJB,  EXBRAK,  EXNORM, ) 


LUNDEX  = K:TARGTDEX^^p^pp^g  (O,  0,  28) 


TSa  = unltl^D 


TSb  = unit(unit(GAINj^yjjpgj^  TTF  MGTERM  + 4 I^D  - 4 R)  * LAND) 


TSc  = Ka  * 

TSb 

TSa 

TSa 

TSa 

[gcmat]  = 

X 

TSb 

X 

y 

TSb 

y 

TSb, 

TSc 

TSc 

TSc, 

L X 

y 

Proceed  to 

K:WHATEXIT„^^PPq^ 

(EXGSUB,  EXBRAK,  EXNORM,  ) 


EXBRAK  pWC  = piTR 

Proceed  to  "STEER?" 

EXNORM  U^NWC  = unlt(MND  - R) 

TS  = second  row  of  rGCMAT~]  (YDGC  ) 

PROJ  = pWC  * pBPIP  . TS 

PROJ1  = K-.PROJmX  - PROJ 

If  PR0J1  < 0,  PR0J1  = 0 

PR0J2  = PROJ  - K:PR0JMIN 
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If  PR0J2  < 0,  PR0J2  = 0 


UNWC  = PR0J1  GCMAT^^  + PR0J2  UNWC 
z 33  z 

UNWC  = PR0J1  GCMT^o  + PR0J2  UNWC 
y 32  y 

UNWC  = PR0J1  CCMA.T^^  + PR0J2  UNWC 

X 31  X 

STEER?  If  FLACWRD2  bit  11  (STEERSW)  = 0: 

If  bit  13  of  channel  31  = 1 : 


Perform  "STOPRATE" 


Proceed  to  "DISPEXIT" 


EXVERT  If  overflow  occured  anywhere  above: 

Perform  "ALARM"  with  TS  = 01 410, 


If  bit  13  of  channel  31  = 1 


Perform  "STOPRATE" 


Proceed  to  "DISPEXIT" 


Perform  "THROTTLE" 


Perform  "FINDCDUW" 


DISPEXIT  If  FLAGWRD8  bit  10  (FLUNDISP)  =1,  end  job 

Proceed  to  KrWHATDISP^I^j^pjjQ^ 

( , P63DISPS,  P64DISPS,  VERTDISP) 


F6 3D ISPS  Proceed  to  "REGODSP"  with  TS  = K;V06N63  (ABVEL,  HDOTDISP,  HCALCi) 


If  TREDES  = 0: 


Switch  FLAGWRD6  bit  6 (REDFLAC)  to  0 
Proceed  to  "REGODSP"  with  TS  = K;V06N64 
If  FLAGWRD6  bit  6 (REDFLAC ) = 1: 


Proceed  to  "RECODSP"  with  TS  = K;V06N64 

Proceed  to  "REFLASH"  with  TS  = K:V06N64  (FUNNYDSP,  HDOTDISP,  HCALC) 
(If  terminate,  proceed  to  "GOTOPOOH";  if  proceed  , 
continue  at  next  step;  if  other  response,  proceed  to 
"P64DISPS".) 
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ELINCR1  = 0 


AZINCR1  = 0 

Switch  FLAGWRD6  bit  6 (REDFLAG)  to  1 
End  job 

VERTDISF  Proceed  to  "REFLASH"  with  TS  = K:V06N60  (VHORIZ,  HDOTDISP,  HCALCI ) 
(if  terminate,  proceed  to  "GOTOPOOH";  if  proceed, 
continue  at  next  step;  if  other  response,  continue 
at  next  step, ) 

Perform  "ZATTEROR"  with  interrupts  inhibited 
End  job 


TDISPSET  TTFDISP  = K:TSCALINV  TTF 
ms 

TSt  = K:TREDESCL  (TCGF„-  + TTF  ) - 103 

28  ms 

If  TSt  > 0: 

TREDES  = 99 
Retiirn 

TSt  = TSt  + 99 
If  TSt  < 0: 

TREDES  = 0 
Return 
TREDES  = TSt 
Return 

P65START  MODREG  = 65 

Establish  "DSPMMJOB"  (pr30) 

WCHVERT  = -2 

Switch  DAPBOOLS  bit  9 (XOVINHIB)  to  0 (permit  X-axis  override) 
Proceed  to  "TTFINGR" 


DESC  - 10 


STARTF66  MODKEG  = 66 


STRTP66A 


START? 67 


VRTSTART 


Establish  "DSPMMJOB" 

VDGVERT  = HDOTDISP 

TS  = (PIPABIAS  , PIPABIAS  , PIPABIAS  ) 
- x’  j’  z 

piAS  = K:BIASFACT  TS 

Switch  FLAGWRD1  bit  12  (RODFLAG)  to  1 

OLDPIPA  = -TEM 

DELVROD  = 0 

RODSCAL1  = ROPSCALE 

LASTTPIP  = PIPTIME 

FCOLD  = 0 
sp 

FWEIGHT,  = 0 
dp 

WCHVERT  = 0 
Proceed  to  "VRTSTART" 

MODREG  = 67 
Establish  "DSPMMJOB" 

RODCOUNT  = 0 
WCHVERT  = 10 
WCHPHOLD  = 2 
WCHPHASE  2 
Perform  "STOPRATE" 

Switch  DAPBOOLS  bit  9 (XOVINHIB)  to  0 
Switch  FLAGWRD6  bit  6 (REDFLAG)  to  0 
Proceed  to  "VERTGUID" 


(pr30) 


(pr30) 


DESC  - 11 


VERTGUID 


P66VERT 


RODTASK 


RODCOMP 


If  WGHVERT  < 0:  (P65) 

TSa  = (V2FG  - VGU)  / TAUVERT  (desired  acceleration) 

Proceed  to  "AFCGALC1" 

If  WCHVERT  = 0:  (P66) 

Proceed  to  ’'P66VERT" 

If  WCHVERT  > 0:  (P67) 

VHORIZ  = I V + nELVS  - HDOTDISP  unltR  | 

Proceed  to  "DISPEXIT" 


Call  "RODTASK"  In  1 .0  second 
Proceed  to  "RODCOMP" 
Establish  "RODCOMP" 


(note  that  "RODCOMP"  will  be 
performed  now  and  again  In 
1 .0  second) 

(pr22) 


End  task 


Inhibit  Interrupts 


VDGVERT  = VDGVERT  + RODCOUNT  R0DSCAL1 
RODCOUNT  = 0 
POLDPIPA  = OLDPIPA 


(activation  of  the  R.O.D. 
switch  causes  routine 
"DESCBITS"  to  be  entered 
which  updates  RODCOUNT) 


OLDPIPA  = PIPA 


THISTPIP  = TIMENOW 


TS  = OLDPIPA  + PIPATMP 
- sp  - 

PLVROD  = TOM  - OLDPIPA  + POLDPIPA 


TEM  = 0 


(least  significant  components  set  to  O) 


Release  interrupt  inhibit 

TS  = K;KPIP1  TS, 

- dp 

TSdelt  = THISTPIP  - PIPTIME 


DESC  - 12 


TSv  = (TSdelt  / K:4SECb28)  (i  GOT  - ^ VBIAS)  + V + TS 

HDOTDISP  = TSv  • unltR 

HCALC1  = TSdelt  HDOTDISP  + |R|  - lANDMAG 

TS1  = (VDGVERT  - HDOTDISP)  / TAUROD 

TS2  = |gDT  I / KrGSCALE 

TS3  = TS2  + TS1 

Perform  "CDUTRIG" 

Perform  "NBTOSM" 

TS  = [nBSMMA'3  K;UNITX 
TS4  = TS  . unitR 
AFCMAG  = TS3  / TS4 
TS1  = I K:KPIP1  DELVROD  + ^ TOIAS  j 
TSt3  = THISTPIP  - LASTTPIP 
LASTTPIP  = THISTPIP 
TSacc  = TS1  / (TSt3  / K:SHFTFACT) 


(updated 
velocity 
stored  in 
PDL24-29  at 
B7  m/cs) 

(PDLO-1;  B-2  m/cs^) 
(PDL20-21;  B-2) 
(PDLO-1;  B-2) 


(PDL22-23;  B2) 

(PDLO-1 ; B7) 
(PDL2-3;  B28) 


(measured  acceleration  in  PDLO-1 
nt  B-4  m/cs  ) 

TS5  = (PVEIGHT  K:BIT1H)  / (MASS  KtSCALEFAC)  + TSacc  (PDL2-3;  B-4) 


(PDL2-3;  B-4) 
(PDU-5;  B-4) 
(PDL6-7;  B-4) 


AFCMAG  = AFCMAG  + LAGdTAU  ( ( TS2  / TS4)  - TS5) 

TSafcmax  = MAXFORCE  / MASS 
TSafcmin  = MINFORCE  / MASS 
If  AFCMAG  < TSafcmin  , AFCMAG  = TSafcmin 
If  AFCMAG  > TSafcmax  , AFCMAG  = TSafcmax 
TSthrot  = TSacc 

Perform  "THROTTLE"  (starting  at  second  step;  return  will  be 

to  the  next  step.) 

VHORIZ  = j TSv  + DELVS  - HDOTDISP  iinitR  j 
Proceed  to  "DISPEXIT" 
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THROTTLE  TSthrot  = KiAMFCNST  ABDELV 


RTNHOLD  - return  address 

FP,  = K;SCALEFAC  MASS  TSthrot 
dp 

If  FP^p-^  Ktfmax,  FP^^  = K:posmaxsp 

FCODD,  = K;SCALEFAC  MASS  AFCMAG 
dp 

If  FC0DD^p>  K;fmax,  FCODD^p  = K;posinaxsp 
FC  = FCODD 

TSt  = (less  significant  half  of  TIMENOW)  - TTHROT 

If  TSt  < 0,  TSt  = 1 6384  + TSt 

If  TSt  -il  K;3SECS: 

FP^  = FP  + FWEIGHT 
dp 

PIFPSET  = 0 

If  FCOLD  > HIGHCRIT: 

If  FCODD  < LOWCRIT: 
sp  — 

PIFPSET  = FP  - K:FMAXODD 
sp 

If  FCODD  > LOWCRIT: 
sp 

FCODD  = FP 

PIFPSET  = K:FEXTRA 

If  FCOLD  < HIGHCRIT: 

If  FCODD  > HIGHCRIT: 
sp 

FCODD  = K:FMAXPOS 
PIFPSET  = K:FEXTRA 
FCOLD  = FCODD 
PIF  = FCODD  - FP 

Proceed  to  "DOIT” 
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FUTOUT  PIFPSET  = K:FEXTRA 


DOIT 


FCOLD  =0  (-0) 

PIF  =0  (-0) 

RTNHOLD  = return  address  (to  caller  of  "FIATOUT") 

PSEUD055  = PIF  + PIFPSET 
sp 

THRUST  = PSEUD055 

Switch  bit  4 of  channel  14  to  1 (send  throttle  command  from 

THRUST) 

TTHROT  = less  significant  half  of  TIMENOW 

TS1  = THISTPIP, 

-Is 

TS2  = K;2SECS 

If  MODREG  ^ 66: 

TS1  = PIPTIME, 

Is 

TS2  = K:4SECS 
TS3  = TS2  K:BIT6 
TS4  = TS3^g 

TSt  = KiTHROTIAG  -f  TIMENOW,  - TS1 

Is 

If  TSt  <0,  TSt  = I TSt  I 

g g 

IfgTSt  ~ 2 centiseconds,  truncate  bits  ^2  (i.e.  subtract 

2 -until  TSt  is  less  than  2 centiseconds) 

FWEIGHT  = 2 PIF  TSt  / TS2 

FWEIGHT  = FWEIGHT  + |pIf|  PIF  / TS4 

Return  via  RTNHOLD 
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PITFALL 


REDESMON 


(Entered  on  program  interrupt  #10) 
If  MODREG  7^  64 > resume 


ELVIRA  —bits  6,  5>  2 and  1 of  -channel  31 


ZERLINA  = 2 

Call  "REDESMON”  in  0,05  second 

Resume 

TS  = ELVIRA 

ELVIRA  = bits  6,  5,  2 and  1 of  -channel  31 
If  ELVIRA  f OOOOOg:  (LPD  still 


(bits 

on 

channel  31 
logically 
inverted) 
out  of  detent) 


Delay  0.07  second 


Proceed  to  "REDESMON" 

If  TS  = OOOOOg; 

If  ZERLINA  > 0: 

ZERLINA  = ZERLINA  - 1 


Delay  0.07  second 


Proceed  to  "REDESMON" 

Perform  "C13STALL" 

Switch  bit  12  of  channel  13  to  1 (re-enable  RHC  interrupt  j^^lO) 
End  task 


If  bit  13  of  channel  31  = 0: 


Perform  "C13STALL" 

Switch  bit  12  of  channel  13  to  1 and  end  task 


If  bit  6 of  TS  = 1,  AZINCR1  = AZINCR1  - KrAZEACH  (-AZ  LPD) 
If  bit  5 of  TS  = 1,  AZINCR1  = AZINCR1  + K;AZEACH  (+AZ  LPD) 
If  bit  1 of  TS  = 1 , ELINCR1  = ELINCR1  - KtELEACH  (+EL  LPD) 
If  bit  2 of  TS  = 1,  ELINCR1  = ELINCR1  + KtELEACH  (-EL  LPD) 


Switch  bit  12  of  channel  13  to  1 
End  task 


(re-enable 


RHC  interrupt  #1 
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DESCBITS  (Entered  from  "RARKRUPT"  with  contents  of  channel  16  in  TS ) 


If  bit  7 of  TS  = 1, 
If  bit  7 of  TS  = 0, 


RODCOUNT  = RODCOUNT  - 1 
RODCOUNT  = RODCOUNT  + 1 


(assume  bit  6 - l) 


Resume 

ROOTPSRS  DXSRIT  = j PREC  ROOTPS  j 
p = n - 1 

DERG LOOP  DAp  = (p  + 1)  A^^^ 

If  p > 0: 

p = p - 1 

Proceed  to  "DERG LOOP” 

ROOT  LOOP  TSderiv  = DAq  + DA^  ROOTPS  + ...+  DA^_-,  ROOTPS"^"^ 

TSfunct  = A^  + A,  ROOTPS  +...+  A , ROOTPS'^"”'  + A ROOTPS’^ 
0 1 n- 1 n 

TSdelt  = - TSfunct  / TSderiv 


ROOTPS  = ROOTPS  + TSdelt 


ROOTGOOD  = 0 
Return 


p = p + 1 

If  jlSdelt  I > DXCRIT,  proceed  to  "ROOTLOOP" 

ROOTGOOD  = 2 

Return 

1406P00  Proceed  to  "POODOO"  with  TS  = 2l4D6g 
U06ALM  Perform  "ALARM"  with  TS  = 014D6g 
If  bit  13  of  channel  31  =1: 

Perform  "STOPRATE" 

Proceed  to  "DISPEXIT" 
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LANDJUNK  Inhibit  interrupts  (program  68) 

Perform  "ZATTEROR" 

Release  Interrupt  inhibit 

Switch  DAPBOOLS  bit  15  (PUISES)  to  1 
Switch  FLAGWRD8  bit  8 (SURFFLAG)  to  1 
Switch  FLAGWRD9  bit  9 (LETABORT)  to  0 
Switch  FLGWRD10  bit  13  (APSFLAG)  to  1 
ALPHAV  = M 
TSt  = PIPTIME 

Switch  FLAGWRI)3  bit  12  (LUNAFLAG)  to  1 
Perform  "LAT-LONG" 

TSt  = PIPTIME 
Perform  "MOONMX" 

MiS  = [moonma:^  (P  - ([moonma:^^  LM504)  * p) 

Proceed  to  "GOFLASH"  with  TS  = K:V06N43  (LAT,  LONG,  ALT) 

(If  terminate,  proceed  to  "GOTOPOOH";  if  proceed,  continue 
at  next  step}  if  other  response,  repeat  this  step.) 

GSAV  = K:UNITX 

Perform  ’’REFMF" 

Proceed  to  "GOTOPOOH" 
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Quantities  in  Computations 


A.  (i  = 0,1,2,...):  Double  precision  coefficients  of  the  polynomial 
input  to  "ROOTPSRS" , unitless  and  scaled  B30,  B13,  B-4  and  B-21 
when  generated  in  "TTF/8CL" . 

ABDELV,  AB1/EL:  See  SERV  section. 

AFCMAG:  Double  precision  magnitude  of  desired  thrust  acceleration, 
program  notation  /AFC/,  scaled  B-4  in  units  of  meters  per  centi- 
second  squared. 

ALPI-IAV:  See  COOR  section. 

Al'.GTERl-I:  Double  precision  velocity  of  the  vehicle  relative  to 
the  rotating  moon,  scaled  B9  in  units  of  meters  per  centisecond 
and  expressed  in  the  Platform  coordinate  system. 

AZINCR,  AZIMCRI:  Double  precision  and  single  precision  storage  for 
the  desired  addition  to  the  landing  site  azimuth,  scaled  BO  in 
units  of  radians. 

DA^  (i  = 0,1...);  Double  precision  coefficients  of  the  polyiiomial 
deri-ative  of  the  polynomial  input  to  "ROOTPSRS";  unitless  and 
scaled  B13,  B-4,  and  B-21  when  generated  in  response  to  the 
polynomial  input  from  "TTF/SCL". 

DAPBOOLS:  see  DAPA  section. 

DB:  see  DAPB  section. 

DELTAH;  see  SERV  section. 

DELTTFAP;  Single  precision  time  constant  added  to  TTF  at  the  start  of 
P64,  scaled  B17  in  units  of  centiseconds . DELTTFAP  is  a negative 
number  and  is  part  of  the  erasable  load. 

DELVROD:  Double  precision  sensed-change-in-velocity  vector  for  P66  (R.O.D.) 
computations,  scale  dB14  in  units  of  centimeters  per  second. 

DELVS:  See  SERV  section. 

DESIGITDC,  DESIGNRZ:  Double  precision  components  of  desired  position 
relative  to  the  landing  site  (desired  crossrange  position  component 
is  zero),  scaled  B24  in  units  of  meters  and  expressed  in  the 
Descent  Guidance  coordinate  system;  program  notations  RIGImX  and 
RIGNZ  respectively;  pari  of  the  erasable  load. 

DESIGIvV ; Double  precision  speed  desired  at  ignition,  relative  bo 
the  rotating  moon,  scaled  BIO  in  luiits  of  meters  per  centisecond; 
program  notation  VIGN,  part  of  the  erasable  load. 

DESKIGWV : Double  precision  speed  error  scale  factor  used  in  tlie 

ignition-time  test  quantity,  scaled  BIG  in  units  of  centiseconds; 
program  notation  KIGNV/B4;  part  of  the  erasable  load. 
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DESKIGNX:  Double  precision  landing  site  vertical  error  scale  factor 
used  in  the  ignition-time  test  quantity,  scaled  B/4.  and  unitless; 
program  notation  KIGNX/B4;  part  of  the  erasable  load. 

DESKIGNY:  Double  precision  crossrange  error  scale  factor  used  in  the 
ignition-time  test  quantity,  scaled  B-I6  in  units  of  meters  to  the 
minus  one  power;  program  notation  KIGNY/BB;  part  of  the  erasable 
load. 

DISPDEX;  see  BURN  section. 

DLAND:  Double  precision  vector  expressed  in  the  Platform  coordinate 

system  representing  the  correction  to  the  Landing  site  vector  LAND, 

scaled  B24  in  units  of  meters.  DLAND  is  padloaded  to  zero  and  may 

be  loaded  by  the  crew  in  Noun  69  in  the  order  DLAND  , DLAND  , DLAND  . 

z y X 

DVCNTR,  DVTHRU3H:  see  SERV  section. 

DXCRIT;  Double  precision  criterion  for  the  convergence  of  the 
Iterative  calculation  in  "ROOTPSRS",  with  scaling  and  units 
identical  to  those  of  ROOTPS. 

ELINOR,  ELINGR1 : Double  precision  and  single  precision  storage  for 
the  complement  of  the  desired  addition  to  landing  site  elevation, 
scaled  BO  in  units  of  radians.  (Sign  changed  to  compensate  for  the 
inversion  of  the  cross  product  in  "REDESIG" . ) 

ELVIRA:  Single  precision  storage  for  the  status  of  the  landing  site 
redesignation  discretes  from  channel  31  . 

EG:  Single  precision  storage  for  the  magnitude  of  desired  thrust, 
scaled  BI4  in  units  of  DPS  throttle  pulses. 

FGODD:  Double  precision  magnitude  of  desired  thrust,  scaled  BI4  in 
units  of  DPS  throttle  pulses.  (The  less  significant  half  is  not 
always  maintained.) 

FGOLD:  Single  precision  magnitude  of  previous  value  of  desired 
thrust,  scaled  BI4  in  units  of  DPS  throttle  pulses. 

FLPASSO:  Single  precision  flag  set  to  zero  at  the  beginning  of  a 

new  guidance  phase  (except  at  the  beginning  of  P66  or  P67)  to 
initialize  guidance  quantities  for  the  new  guidance  phase. 

FP:  Double  precision  estimate  of  the  magnitude  of  the  present 
thrust,  scaled  BI4  in  units  of  DPS  throttle  pulses.  (The  less 
significant  half  is  not  always  maintained.) 

FUNNYDSP:  Special  display  of  LOOKANGL  and  TREDES  in  the  same  display 
register,  both  displayed  in  two  digits  only. 

FWEIGHT:  Double  precision  change  in  sensed  thrust  expected  to  have 
occurred  since  the  sampling  of  the  accelerometers,  scaled  BI4  in 
units  of  DPS  throttle  pulses. 
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GAINqI  Double  precision  gain  constant  used  in  the  computation  of  the 
orientation  of  the  Descent  Guidance  Coordinate  System  for  the 
braking  phase,  scaled  BO  and  unitless.  Program  notation;  GAINBRA.K; 
part  of  the  erasable  load. 


GAIN2g!  Double  precision  gain  constant  used  in  the  computation  of  the 
orientation  of  the  Descent  Guidance  Coordinate  System  for  the 
approach  phase,  scaled  BO  and  unitless.  Program  notation:  GAINAPPR; 
part  of  the  erasable  load. 


[gCI-IA'^  : Double  precision,  3X3  transformation  matrix  defined  such  that 
Adgc  = [GCMA'Q  Asmc,  where  A is  a vector  expressed  in  the  Descent 
Guidance  and  Platform  (sm)  coordinate  systems  respectively;  scaled 
B1  and  unitless j program  notation  CG+0  through  CG+17. 

The  Descent  Guidance  coordinate  system  is  an  orthogonal, 
cartesian  system  where  the  X axis  is  along  the  radius  from  the 
center  of  the  moon  .through  the  present  landing  site,  the  Y axis 
is  defined  such  that  the  velocity,  acceleration  and  jerk  vectors 
at  the  landing  site  lie  entirely  in  the  X-Z  plane,  and  the  Z axis  is 
defined  such  as  to  complete  the  right  handed  system. 

GDT,  ^T1:  See  SERV  section. 

^AV : See  ALIN  section 

HCALC,  HDOTDISP:  See  SERV  section. 


HCAIX31:  Double  precision  calculated  altitude 
radius  for  display  in  Noun  63  and  Notui  60, 
HCALC 1 is  set  to  HCALC  in  the  SERV  section 
per  second  in  "RODCOMP", 


above  the  landing  site 
scaled  B24  in  vinits  of  meters, 
and  is  calculated  once 


HIGHCRIT:  Single  precision  upper  limit  on  the  variable  throttle 
region  in  a situation  of  increasing  thrust  commands,  scaled  B14 
in  units  of  DPS  throttle  pulses.  If  the  throttle  setting  is 
in  the  variable  region,  the  throttle  setting  commanded  by  the 
program  ’a’ill  correspond  directly  with  the  desired  thrust  until 
the  desired  thrust  exceeds  HIGHCRIT.  Then  the  program  will 
coiianand  full  tlirottle.  HIGHCRIT  is  part  of  the  erasable  load. 


KrlSODEGS:  Single  precision  constant  stored  as  180  x 2 scaled 
B15  in  units  of  degrees  per  revolution.  Equation  value:  3d0. 

K:ld2DEG:  Single  precision  constant  stored  as  0.00278,  scaled  B-1 
in  units  of  revolutions.  Equation  value:  0.00139.  (Equivalent 
to  one-half  of  one  degree.) 

K:2SECS!  Single  precision  constant  stored  as  200  x 2”^^,  scaled  B14 
in  units  of  centiseconds . Equation  value:  200. 
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K:3SECS:  Single  precision  constant  stored  as  300  x 2 scaled  B14 
in  units  of  centiseconds.  Equation  value;  300. 

—28 

K;4SECb28;  Double  precision  constant  stored  as  400  x 2~  , scaled 

B26  in  units  of  centiseconds.  Equation  value;  100. 

K:4SECS:  Single  precision  constant  stored  as  400  x 2 , scaled  B14 

in  units  of  centiseconds.  Equation  value:  400. 

K:99999C0N:  Double  precision  constant  stored  as  30479«7  x 2 
scaled  B24  in  units  of  meters.  Equation  value:  30479.7- 
(Equivalent  to  99999  feet . ) 

K:ABAFCNST:  Single  precision  constant  stored  as  0.13107,  program 
notation  /AF/CNST,  scaled  B-13  in  units  of  meters  per  centisecond 
squared  / centimeters  per  second  per  guidance  cycle.  Equation 
value:  5 E-7.  (Equivalent  to  g x 0.01  cubed.) 

K:AFTRGUID.  (i  = -1  thru  2);  Table  of  single  precision  addresses  for 
branching.  Indexed  in  the  order  -1  thru  2,  they  are  the  addresses 
of:  CGCALC,  EXTLOGIC,  EXTLOGIC,  STEER?. 

K:AZEACH:  Single  precision  constant  stored  as  0.03491,  scaled  BO 
in  units  of  radians.  Equation  value:  0.03491.  (Equivalent  to 
2 degrees. ) 

K;BTAvSFACT;  Double  precision  constant  stored  as  655.36  x 2~  , scaled 

B11  in  units  of  seconds  meters  per  centimeter.  Equation  value;  0.02. 
(Stored  value  corresponds  to  2 sec  x 0.01  m/cm  x 

—1 L 

K;BIT1H;  Single  precision  constant  stored  as  1 x 2 , scaled  B14  and 

unitless.  Equation  value;  1.0 

K;BIT6;  Single  precision  constant  stored  as  00040g,  scaled  B14  in  units 
of  DPS  throttle  pulses  per  centisecond.  Equation  value;  32. 

-28 

K;DDUMCRIT;  Double  precision  constant  stored  as  8 x 2 , scaled 

B28  in  units  of  centiseconds.  Equation  value;  8. 

-"I 

K;DEPRCRIT;  Double  precision  constant  stored  as  -0.02  x 2 , scaled 

B1  and  unitless.  Equation  value;  -0.02.  (Depression  angle  criterion.) 

—1 4 

K;DPSTHRSH;  Single  precision  constant  stored  as  36  x 2~  ^ , scaled 
BI4  in  units  of  centimeters  per  second.  Equation  value;  36. 
(Equivalent  to  K; THRESH 1 + K;THRESH2  of  the  BURN  section.) 

K;ELEAGH;  Single  precision  constant  stored  as  0.00873,  scaled  BO  in 
units  of  radians.  Equation  value;  0.00873.  (Equivalent  to 
one-half  of  one  degree.) 
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KiFEXTRA:  Single  precision  constant  stored  as  lOOOO^j  program 

notation  also  BIT13,  scaled  B14  in  units  of  DPS  tnrottle  pulses. 

Equation  value:  4096,  (Equivalent  to  51,331  newtons  or  11,540 
pounds  force  based  on  the  value  of  KiSCALEFAC.) 

Krfmax:  Value  of  overflow  bit  on  a quantity  scaled  B14  in  units  of 
DPS  throttle  pulses.  Equation  value:  I6384. 

K:FMAX0DD:  Single  precision  constant  stored  as  38Z.1  x 2 , scaled 

BI4  in  units  of  DPS  throttle  pulses.  Equation  value:  3841. 

(Equivalent  to  48,135  newtons  or  10,821  pounds  force  based  on  the 
value  of  K:SCAIP;FAC.  ) 

K:FMAXP0S:  Single  precision  constant  stored  as  3467  x 2 , scaled 

BI4  in  imits  of  DPS  throttle  pulses.  Equation  value:  3467. 

(Equivalent  to  43, /^8  newtons  or  9,767  pounds  force  based  on  the 
value  of  K:SCALEFAC.) 

K:GSCALE:  Double  precision  constant  stored  as  100  x 2 scaled  B12 
in  units  of  centiseconds  per  navigation  cycle.  Equation  value:  200. 

K:GUIDDURN:  Double  precision  constant  stored  as  66V^0  x 2 , scaled 

B28  in  units  of  centiseconds.  Equation  value:  66440. 

-1 2 

K;HIGHESTF:  Double  precision  constant  stored  as  4.34546769  x 2 ; 

scaled  B12  in  units  of  kilogram  meters  per  centisecond  squared. 

Equation  value;  4.34546769.  (Equivalent  to  9,769  pounds  force.) 

K:KPIP1:  See  SERV  section. 

K;M00NRATE:  Double  precision  constant  stored  as  0.2661699489  E-7  x 2^^, 
scaled  B-19  in  units  of  radians  per  centisecond.  Equation  value: 
0.2661699489  E-7. 

K:NEWPHASEj^  (i  = -1  thru  2):  Table  of  single  precision  addresses  for 
branching.  Indexed  in  the  order  -1  through  2,  they  are  the  addresses 
of:  TTFINCR,  TTFINCR,  STARTP64,  P65START. 

K:P64DB:  Single  precision  constant  stored  as  00155g,  scaled  B-3  in  luriits 

of  revolutions.  Equation  value:  0.00083.  (Equivalent  to  0.2994  degrees.) 

K:PREGUIDE  (i  = -1  thru  2):  Table  of  single  precision  addresses  for 

branching.  Indexed  in  the  order  - 1 through  2,  they  are  the  addresses 
of:  CALCRGVG,  RGVGCALC,  REDES IG,  RGVGCALC . 

_3 

K:PR0JMAX;  Single  precision  constant  stored  as  0.42262  X 2 , scaled 

B3  and  unitless.  Equation  value:  0.42262.  (Equivalent  to  the 
sine  of  25  degrees.) 

_3 

K:PR0JMIN:  Single  precision  constant  stored  as  0.25882  X 2 , scaled 

B3  nriH  unitless.  Equation  value:  0.25882.  (Equivalent  to  the 
sine  of  15  degrees.) 
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K:SGALEFAC:  Double  precision  constant  stored  as  797.959872  x 2 , 

scaled  B16  in  units  of  DPS  throttle  pulses  / kilogram  meter  per 
centisecond  squared.  Equation  value;  797.959872.  (Equivalent 
to  12.532  newtons  or  2.8173  pounds  force  per  pulse.) 

-17 

KiSHFTFAGT:  Double  precision  constant  stored  as  1 x 2 , scaled  B17 

and  iinltless.  Equation  value;  1.0. 

K;TARGTDEX.  (l  = -1  thru  I);  Table  of  single  precision  indexes,  scaled 
BI4  and  unitless.  Equation  value  indexed  in  the  order  -1  through  1; 
0,  0,  28. 

K:THR0TLAG;  Single  precision  constant  stored  as  20.  x 2 scaled  BI4 
in  \inits  of  centiseconds . Equation  value;  20. 

K;TREDESGL;  Single  precision  constant  stored  as  -0.08,  scaled  B-3  in 
units  of  seconds  per  centiseconds.  Equation  value;  -0.01. 

g 

K;TRIMAGGL;  Double  precision  constant  stored  as  3.50132708  E-5  x 2 , 
scaled  B-8  in  units  of  meters  per  centisecond  squared.  Equation 
value;  3-50132708  E-5. 

K;TSGALINV;  Single  precision  constant  stored  as  0001 Og,  scaled  B1 1 
and  unitless.  Equation  value;  1 . 

K;ttf6b3;  Double  precision  constant  stored  as  0.75,  program  notation 
3/4DP,  scaled  B3  and  unitless.  Equation  value;  6. 

K;ttf24b6:  Double  precision  constant  stored  as  0.375,  program  notation 
3/8DP,  scaled  B6  and  unitless.  Equation  value;  24. 

K;UNITX,  K;UNITZ;  Double  precision  vector  constants,  stored  as 

(0.5,  0,  0)  and  (0,  0,  0.5)  respectively,  scaled  B1  and  unitless. 
Equation  values;  (1,  0,  O)  and  (0,  0,  1). 

K;WHATALM,  (i  = -1  thru  1):  Table  of  single  precision  addresses  for 
branching.  Indexed  in  the  order  -1  through  1 they  are  the  addresses 
of:  I4O6POO,  I4O6ALM,  I406ALM. 

K;WHATDISP^  (i  = 0 thru  2);  Table  of  single  precision  addresses  for 
branching.  Indexed  in  the  order  0 through  2 they  are  the  addresses 
of;  P63DISPS,  P64DISPS,  VERTDISP. 

K;WHATEXIT^  (i  = -1  thru  I):  Table  of  single  precision  addresses  for 
branching.  Indexed  in  the  order  -1  through  1,  they  are  the  addresses 
of;  EXGSUB,  EXBRAK,  EXNORM. 

K;WHATGUID  (i  = -1  thru  2);  Table  of  single  precision  addresses  for 

branching.  Indexed  in  the  order  -1  through  2,  they  are  the  addresses 
of;  TTF/8GL,  TTF/8GL,  TTF/8GL,  VERTGUID. 
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lAGdTAU;  Double  precision  lag  time  divided  by  TAUROD,  scaled  BO  and 
unitless.  Program  notation  LAG/TAU;  part  of  the  erasable  load. 

MND,  lANDTEMP;  Double  precision  position  vector  of  the  landing  site, 
scaled  B24  in  units  of  meters,  measured  from  the  center  of  the  moon 
and  expressed  in  the  Platform  coordinate  system. 


LANDMAG;  Double  precision  radius  magnitude  of  the  landing  site,  scaled 
B24  in  units  of  meters;  program  notation  /LAND/. 

LASTTPIP:  Double  precision  storage  for  the  time  of  the  previous  PIPA 
reading  during  P66  (R.O.D.)  computations,  scaled  B28  in  units  of 
centiseconds . 

lEADTIME:  Single  precision  negative  of  the  time  Increment  specifying 
how  far  the  guidance  computations  are  to  be  projected  forward  in  P63 
and  P64»  scaled  BlV.ln  units  of  centiseconds;  part  of  the  erasable 
load. 

U^504:  see  COOR  section. 

LOOKANGL:  Single  precision  ''anding  site  elevation  angle,  scaled 

B14  in  um'ts  of  degree'-.  LOOKANGL  is  calculated  as  the  comp''ement 
of  the  angle  between  the  LM  +X  axis  and  the  negative  LOS,  which 
is  equivalent  to  the  angle  between  the  LM  YZ  plane  and  the 
positive  LOS. 

LOWCRIT;  Single  precision  upper  limit  on  the  variable  throttle  region 
in  a situation  of  decreasing  thrust  commands,  scaled  BI4  in  units 
of  DPS  throttle  pulses.  If  the  throttle  is  set  at  maximum  thrust, 
the  desired  thrust  must  fall  below  this  limit  before  the  program 
will  command  a throttle  setting  below  maximum.  LOWCRIT  is  part 
of  the  erasable  load. 

LUNDEX:  Single  precision  index  scaled  BI4  and  unitless. 


MASS:  See  SERV  section. 

MAXFORCE:  Double  precision  maximum  thrust  that  P66  will  command,  scaled 
B12  in  units  of  kilogram  meter  per  centisecond  squared;  part  of  the 
erasable  load. 

MINFORCE:  Double  precision  minimum  thrust  that  P66  will  command,  scaled 

B12  in  units  of  kilogram  meter  per  centisecond  squared;  part  of  the 
erasable  load. 


MODREG:  See  DATA  section. 


[mOONMA'^  : 


See  COOR  section. 
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[nBSMMA.t];  See  COOR  section. 

NGUIDSUB;  Single  precision  counter  scaled  B14  and  unitless. 

NIGNLOOP;  Single  precision  counter  scaled  B14  and  unitless. 

OLDPIPA:  Single  precision  storage  for  the  accelerometer  readings  (PIPA) 
performed  at  time  THISTPIP  for  P66  computations,  scaled  B14  in  units 
of  centimeters  per  second.  Note  that  this  is  different  from  the 
normal  two  second  cycle  PIPA  reading  which  is  made  at  PIPTIME. 

OUTOFPLN:  Double  precision  distance  of  the  landing  site  from  the  LM 
orbital  plane  at  the  projected  time  of  ignition,  scaled  B24  in  units 
of  meters.  (Positive  if  the  orbital  plane  is  to  the  right  of  the 
landing  site,  looking  in  the  direction  of  travel.) 

PIF:  Double  precision  change  in  the  desired  thrust  level,  scaled  B14 
in  units  of  DPS  throttle  pulses. 

PIFPSET;  Single  precision  bias  on  the  throttle  command,  scaled  B14 
in  units  of  DPS  throttle  pulses. 

PIPA,  PIPATMP:  See  SERV  section. 

PIPABIAS  , PIPABIAS  , PIPABIAS  : See  IMBC  section, 
x’  y’  z 

PIPTIME,  PrPTIMEI:  See  SERV  section. 

POINTVSM:  See  ATTM  section. 

P^OLDPIPA:  Single  precision  storage  for  the  previous  cycle  value  of 
OLDPIPA,  scaled  B14  in  units  of  centimeters  per  second;  program 
notation  RUPTREG. 

PREC:  Single  precision  specification  of  the  precision  to  which 
"ROOTPSRS”  is  to  converge,  scaled  BO  and  unitless. 

PROJ,  PR0J1 , PR0J2:  Single  precision  projection  of  the  Y Descent 
Guidance  coordinate  system  axis  onto  the  unit  normal  to  the  plane 
defined  by  the  X body  axis  and  the  line -of -sight  vector,  and  the 
difference  between  that  projection  and  its  upper  and  lower  bounds; 
scaled  B3  and  unitless. 

PSEUD055:  Single  precision  storage  for  telemetry  of  the  throttle 

command  sent  to  the  descent  engine,  scaled  BI4  in  units  of  throttle 
pulses.  (See  definition  of  THRUST.) 

R60SAVE:  Double  precision  temporary  storage  for  the  UNFC  vector, 

Fcaled  B7  in  unite  of  meters  per  centisecond. 

R:  Double  precision  navigated  present  position  vector  of  the  LM, 
scaled  B24  in  units  of  meters,  measured  from  the  center  of  the 
moon  and  expressed  in  the  Platform  coordinate  system. 
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RA:  Single  precision  ratio  of  the  lag-diminished  TTF  to  TTF,  scaled 
BO  and  unitless. 

RANGEDSP:  Double  precision  distance  from  the  LM  to  the  estimated  landing 
site,  scaled  B24  in  units  of  meters  (displayed  by  noun  68). 

^TT,  VATT,  TAT;  see  ORBI  section. 

RCV,  VCV:  see  ORBI  section. 

I^^FSMIIA'^  : see  COOR  section. 

RGU;  Double  precision  position  vector  of  the  LM,  scaled  B24  in  units 
of  meters,  measured  from  the  landing  site  on  the  moon's  surface 
and  expressed  in  the  Descent  Guidance  coordinate  system. 

^S:  Double  precision  vector  position  of  the  landing  site  relative 
to  the  center  of  the  moon,  scaled  B27  in  units  of  meters  and 
expressed  in  the  Selenographic  (moon-fixed)  coordinate  system; 
part  of  the  erasable  load. 

M,  TO;  see  SERV  section. 

RODCOUNT;  Single  precision  count  of  the  number  and  direction  of 
astronaut  deflections  of  the  rate -of-de scent  switch,  scaled 
BI4  and  unitless. 

R0DSCAL1 : Single  precision  working  storage  for  RODSCALE,  scaled  B-7 
in  units  of  meters  per  centisecond. 

RODSCALE:  Single  precision  erasable  memory  quantity  representing 

the  velocity  increment  to  be  added  or  subtracted  per  each  deflection 
of  the  R.O.D.  switch  during  P66,  scaled  B-7  in  units  of  meters  per 
centisecond;  part  of  the  erasable  load. 

ROOTGOOD:  Variable  introduced  as  a substitute  for  a variable  return 
address;  Set  to  2 or  0 to  indicate  a successful  or  non-success- 
ful  convergence  on  the  root  of  the  "ROOTPSRS"  polynomial. 

ROOTPS:  Double  precision  root  extracted  from  an  arbitrary  polynomial 
by  the  Newton  iteration  method,  scaling  and  units  variable. 

RTNHOLD:  Single  precision  octal  retiorn  address  storage. 

S^CAXIS:  see  ATTM  section. 

TARGADGq;  Double  precision  Hi -gate  acceleration  aimpoint  vector, 
scaled  B-4  in  units  of  meters  per  centisecond  squared  and 
expressed  in  the  Descent  Guidance  coordinate  system;  program 
notation  ADG  or  ABRFG;  part  of  the  erasable  load. 
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TARGADG  • Double  precision  Lo-gate  acceleration  aimpoint  vector, 
scaled  B-4  in  units  of  meters  per  centisecond  squared  and 
expressed  in  the  Descent  Guidance  coordinate  system;  program 
notation  AAPFG;  part  of  the  erasable  load. 

TARGRDG-;  Double  precision  Hi -gate  position  aimpoint  vector,  scaled 
B24  in  units  of  meters  and  expressed  in  the  Descent  Guidance 
coordinate  system;  program  notation  RDG  or  RBRFG;  part  of  the 
erasable  load. 


TARGRDG„rt:  Double  precision  Lo-gate  position  aimpoint  vector,  scaled 

B24  in  units  of  meters  and  expressed  in  the  Descent  Guidance  coordinate 
system;  program  notation  RAPFG;  part  of  the  erasable  load. 

TARGVDGq:  Double  precision  Hi -gate  velocity  aimpoint  vector,  scaled 
BIO  in  units  of  meters  per  centisecond  and  expressed  in  the  Descent 
Guidance  coordinate  system;  program  notation  VDG  or  VBRFG;  part 
of  the  erasable  load. 


TARGVDC^g!  Double  precision  Lo-gate  velocity  aimpoint  vector,  scaled 
BIO  in  units  of  meters  per  centisecond  and  expressed  in  the  Descent 
Guidance  coordinate  system;  program  notation  VAPFG;  part  of  the 
erasable  load. 


TAT:  See  ORBI  section. 


TAUROD:  Double  precision  time  constant  for  P66  (R.O.D.),  scaled  B9  in 
units  of  centiseconds;  part  of  the  erasable  load. 

TAUVERT:  Double  precision  time  constant  for  P65  (Auto  landing),  scaled 
BI4  in  units  of  centiseconds;  part  of  the  erasable  load. 

TCGF_:  Single  precision  quantity  representing  the  latest  time  at  which 
the  Descent  Guidance  coordinate  system  is  erected  in  the  braking  phase 
(P63,  WCHPHASE  =0),  scaled  B17  in  units  of  centiseconds;  program 
notation  TCGFBRAK;  part  of  the  erasable  load. 


TCGF„g:  Single  precision  quantity  representing  the  latest  time  at  which 
the  Descent  Guidance  coordinate  system  is  erected  in  the  approach 
phase  (P64,  WCHPHASE  = I),  scaled  B17  in  units  of  centiseconds; 
program  notation  TCGFAPPR;  part  of  the  erasable  load. 

TCGI^:  Single  precision  quantity  representing  the  earliest  time  at  which 
the  Descent  Guidance  coordinate  system  is  erected  in  the  Braking  phase 
(P63,  WCHPHASE  =0),  scaled  B17  in  units  of  centiseconds;  program 
notation  TGGIBRAK;  part  of  the  erasable  load. 

TCGIjg:  Single  precision  quantity  representing  the  earliest  time  at  which 
the  Descent  Guidance  coordinate  system  is  erected  in  the  approach  phase 
(P64,  WCHPHASE  =1),  scaled  B17  in  units  of  centiseconds;  program 
notation  TCGIAPPR;  part  of  the  erasable  load. 
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TDEC1 : See  ORBI  section. 


lEM:  See  SERV  section. 


TEND„:  Single  precision  quantity  representing  the  time  at  which  the 
approach  phase  (P64)  is  selected  (i.e.  WCHPHASE  goes  from  0 to  1 
thus  selecting  P64),  scaled  B17  in  iinits  of  centiseconds;  program 
notation  TENDBRA.K;  part  of  the  erasable  load. 

TEND. : Single  precision  quantity  representing  the  time  at  which  the 
vertical  phase  (P65)  is  selected  (i.e.  WCHPHASE  goes  from  1 to  2 
thus  selecting  P65  provided  the  Auto  throttle  and  Auto  DAP  switches 
are  in  the  AUTO  position;  otherwise  P66  or  P67  is  selected),  scaled 
B17  in  units  of  centiseconds;  program  notation  TENDAPPR;  part  of 
the  erasable  load. 

TET;  See  ORBI  section. 

THISTPIP:  Double  precision  time  of  PIPA  readings  for  P66  (R.O.D.) 
computations,  scaled  B28  in  units  of  centiseconds.  Note  that  this 
is  a different  reading  than  that  which  is  taken  at  PIPTIME. 

THRUST:  Cell  used  to  provide  DPS  throttle  commands  by  setting  bit  4 
of  channel  14;  scaled  BI4  in  units  of  DPS  throttle  pulses.  One 
pulse  corresponds  to  about  12.532  newtons  or  2.8173  pounds  force 
(depending  on  erosion  of  the  DPS  nozzle),  and  the  maximum  command 
recognized  by  the  throttle  is  3428  pulses  or  about  42,960  newtons 
or  9658  pounds  force. 

TIG:  see  BURN  section. 

TIMENOW:  see  EXVB  section. 

TLAND:  Double  precision  nominal  time  of  lunar  landing,  scaled  B28 
in  units  of  centiseconds;  part  of  the  erasable  load. 

TRIP,  TPIPOLD:  Double  precision  storage  for  consecutive  times  of  entry 
in  the  TTF  incrementing  routine,  scaled  B28  in  units  of  centiseconds 
and  used  to  increment  TTF. 

TREDES:  Single  precision  time  remaining  to  redesignate  the  landing 
site,  scaled  BI4  in  units  of  seconds  (limited  to  99) . 
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TRKMKCNT;  See  RNAV  section. 


TTF,  TTFTMP:  Double  precision  negative  time  from  the  end  of  the  present 
descent  guidance  phase,  scaled  B17  in  units  of  centiseconds. 

TTFADGZq:  Double  precision  Z component  of  TARGADGq  multiplied  by  6; 
scaled  B-4  in  units  of  meters  per  centisecond  squared;  program 
notation  ABRFG*  or  ADG2TTFq;  part  of  the  erasable  load. 

TTFADGZ^g:  Double  precision  Z component  of  T^ARGADG^g  multiplied  by  6; 
scaled  B-4  in  units  of  meters  per  centisecond  squared;  program 
notation  AAPFG*  or  ADG2TTF2g;  part  of  the  erasable  load. 

TTFDISP;  Double  precision  storage  for  TTF  for  display  purposes, 
scaled  B28  in  units  of  centiseconds. 

TTFJDGZq:  Double  precision  Hi -gate  jerk  aimpoint,  Z component  only, 
scaled  B-21  in  units  of  meters  per  centisecond  cubed;  program 
notation  JBRFG*  or  JDG2TTF  ^ ; part  of  the  erasable  load. 

TTFJDGZ^g:  Double  precision  Lo-gate  jerk  aimpoint,  Z component  only, 
scaled  B-21  in  units  of  meters  per  centisecond  cubed;  program 
notation  JAPFG*  or  JDG2TTF2g;  part  of  the  erasable  load. 

TTFVDGZ^:  Double  precision  Z component  of  TARGVDGq  multiplied  by  18; 
scaled  B13  in  units  of  meters  per  centisecond;  program  notation 
VBRFG*  or  VDG2TTFq;  part  of  the  erasable  load. 

TTFVDGZ2g!  Double  precision  Z component  of  TARGVDGpg  multiplied  by 
18;  scaled  B13  in  units  of  meters  per  centisecond;  program  notation 
VAPFG*  or  VDG2TTF2g;  part  of  the  erasable  load. 

TTHROT:  Single  precision  time  of  the  last  throttle  command,  scaled 
B14  in  units  of  centiseconds. 

UNITR:  See  SERV  section. 

UNFC;  See  BURN  section.  During  the  pre-ignition  phase  computations 
for  the  powered  descent  maneuver  (P63),  UNFC  represents  the  Delta-V 
vector  for  the  pre-full  throttle  thrust,  scaled  B7  in  units  of  meters 
per  centisecond. 

UNWG:  See  BURN  section. 

V2FG:  Double  precision  vector  constant  representing  the  velocity  aim 

conditions  for  P65  velocity  nulling  computations,  scaled  BIO  in 
\inits  of  meters  per  centisecond;  part  of  the  erasable  load. 

V:  Double  precision  present  navigated  velocity  vector  of  the  LM, 
scaled  B7  in  units  of  meters  per  centisecond  and  expressed  in 
the  Platform  coordinate  system. 
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VBIAS:  Double  precision  velocity  bias  factor  based  on  PIPA  bias  values 
for  P66  (R.O.D.)  computations,  scaled  B8  in  units  of  meters  per 
centisecond. 

VDGVERT;  Double  precision  vertical  component  of  velocity  desired 
in  the  final  (vertical)  phase  of  descent,  scaled  B7  in  units 
of  meters  per  centisecond;  altered  in  response  to  astronaut  commands 
during  manual  descent  control. 

VGU:  Double  precision  velocity  vector  of  the  LM  relative  to  the 
rotating  moon,  scaled  BIO  in  units  of  meters  per  centisecond 
and  expressed  in  the  Descent  Guidance  coordinate  system. 

VHORIZ;  Double  precision  horizontal  velocity  computed  for  display 
during  the  vertical  descent  phase,  scaled  B7  in  units  of  meters 
per  centisecond. 

WCHPHASE;  Single  precision  index  scaled  B14  and  unitless.  Set  to  -1 
in  the  pre-ignition  phase  ("P63LM")>  0 at  ignition  ("P63IGN")»  1 
when  TTF  (negative)  is  greater  than  minus  TENDq  ("EXTLOGIC" ) , and 
2 when  TTF  is  greater  than  minus  TEND^  or  when  the  astronaut 
switches  out  of  automatic  control  selecting  P66  or  P67  ("EXTLOGIC" 
or  "LUNLAND"). 

WCHPHOLD:  Single  precision  storage  for  WCHPHASE  to  preserve  the  present 
guidance  mode  through  the  present  guidance  cycle  when  WCHPHASE 
changes . 

WCHVERT:  Single  precision  flag  to  indicate  whether  the  final  (vertical) 
phase  of  guidance  is  under  control  of  P65  (WCHVERT  = -2),  P66 
(WCHVERT  = 0)  or  P67  (WCHVERT  = 10),  scaled  B14  and  unitless. 

WHICH:  See  BURN  section. 

Double  precision  mean  angular  velocity  vector  of  the  moon, 
scaled  B-17  in  units  of  radians  per  centisecond  and  expressed  in 
the  Platform  coordinate  system. 

PBPIP,  ^BPIP,  ZNBPIP:  See  SERV  section. 

ZERLINA:  Single  precision  counter  scaled  B14  and  unitless. 

ZOOMTIME:  See  BURN  section. 
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Display  Interface  Routines 


GODSP 


GODSPR 


GODSPRET 


GOFLASH 


GOFLASHR 


GOPERFl 


TSaddr  = address  of  step  that  proceeded  to  "GODSP" 
MPAC^  = TS 
MPAC^  = OOOOOg 
Proceed  to  "GOFLASH2" 

TSaddr  = address  of  step  that  performed  "GODSPR" 
MPAC^  = TS 
MPAC^  = OOOOOg 
Proceed  to  "GODSPRSl" 

TSaddr  = address  of  step  that  performed  "GODSPRET" 
MPAC^  = TS 

MPAC,  = 00040^  (DOTHNRET) 

4 o 

Proceed  to  "G0FLASH2" 

TSaddr  = address  of  step  that  proceeded  to  "GOFLASH" 
MPAC^  = TS 

MPAC^  = OOOlOg  (FLREQ) 

Proceed  to  "G0FLASH2" 

TSaddr  = address  of  step  that  performed  "GOFLASHR" 
MPAC^  = TS 

MPAC^  = OOOlOg  (FLREQ) 

Proceed  to  "GODSPRSl" 

TSaddr  = address  of  step  that  proceeded  to  "GOPERFl" 
DSPTEMl  = TS 

MPAC^  = K:V01N25  (octal  display  of  DSPTEMl  in  Rl) 
MPAC^  = 00036g  (PERFREQ,  FLREQ,  R3BLNK,  R2BLNK) 

Proceed  to  "G0FLASH2" 


DINT  - 1 


GOPERFIR 


GOPERF2 


GOPERF2R 


G0PERF4 


GOPERF4.R 


REGODSP 


TSaddr  = address  of  step  that  performed  mgoPERFIR" 

DSPTEMl  = TS 

MPAC^  = K:V01N25  (octal  display  of  DSPTEMl  in  Rl) 

MPAC^  = 00036g  (PERFREQ,  FLREQ,  R3BLNK,  R2BLNK) 

Proceed  to  "GODSPRSl" 

TSaddr  = address  of  step  that  proceeded  to  "G0PERF2" 

MPAC^  = TS 

MPAC^  = 00030g  (PERFREQ,  FLREQ) 

Proceed  to  "G0FLASH2" 

TSaddr  = address  of  step  that  performed  "GOPERF2R" 

MPAC^  = TS 

MPAC^  = 00030g  (PERFREQ,  FLREQ) 

Proceed  to  "GODSPRSl" 

TSaddr  = address  of  step  that  proceeded  to  "GOPERF4" 

MPAC^  = K:V04N06  (octal  display  of  OPTIONl  and  0PTI0N2) 
MPAC^  = OOOlAg  (FLREQ,  R3BLNK) 

Proceed  to  "G0iFLASH2" 

TSaddr  = address  of  step  that  performed  "GOPERF4R" 

MPAC^  = K:V04N06  (octal  display  of  OPTIONl  and  0PTI0N2) 
MPAC^  = 00014g  (FLREQ,  R3BLNK) 

Proceed  to  "GODSPRSl" 

TSaddr  = address  of  step  that  proceeded  to  "REGODSP" 

MPAC^  = TS 

MPAC^  = 20000g  (RESETREQ) 

Proceed  to  "G0FLASH2" 


DINT  - 2 


REGODSPR 


TSaddr  = address  of  step  that  performed  "REGODSPR" 
MPAC^  = TS 

MPAC^  = 20000g  (RESETREQ) 

Proceed  to  "GODSPRSl" 


REFLASH  TSaddr  = address  of  step  that  proceeded  to  "REFLASH" 
MPAC^  = TS 

MPAC^  = 20010g  (RESETREQ,  FLREQ) 

Proceed  to  "GOFLASH2" 

REFLASHR  TSaddr  = address  of  step  that  performed  "REFLASHR" 
MPACj^  = TS 

MPAC^  = 20010g  (RESETREQ,  FLREQ) 

Proceed  to  "GODSPRSl" 


CLEANDSP  TSaddr  = address  of  step  that  proceeded  to  "CLEANDSP" 
MPAC.  = 00000. 

A 8 

MPAC^  = 20010g  (RESETREQ,  FLREQ) 

Proceed  to  "GOFLASH2" 

GOXDSP  TSaddr  = address  of  step  that  proceeded  to  "GOXDSP" 
MPAC^  = TS 

MPAC,  = 40000^  (MKEKREQ) 

4 o 

Proceed  to  "G0FLASH2" 

GOXDSPR  TSaddr  = address  of  step  that  performed  "QOXDSPR" 
MPACj^  = TS 

MPAC^  = 40000g  (MKEXREQ) 

Proceed  to  "GODSPRSl" 


(GOMARK) 


(GOMARKR) 


DINT  - 3 


EXDSPRET 


GOXDSPF 


GOXDSPFR 


GOMARK2 


G0MARK2R 


GOMARK3 


GOMARK3R 


TSaddr  = address  of  step  that  performed  "EXDSPRET" 
MPAC^  = TS 

MPAC,  =40040^  (MKEKREQ,  DOTHNRET) 

4 8 

Proceed  to  "GOFLASH2" 

TSaddr  = address  of  step  that  proceeded  to  "GOXDSPF" 
MPAC^  = TS 

MPAC^  = AOOlOg  (MKEKREQ,  FLREQ) 

Proceed  to  "G0FLASH2" 

TSaddr  = address  of  step  that  performed  "GOXDSPFR" 
MPAC^  = TS 

MPAC^  = AOOlOg  (MKEXREQ,  FLREQ) 

Proceed  to  "GODSPRSl" 

TSaddr  = address  of  step  that  proceeded  to  "GOMARK2" 
MPAC^  = TS 

MPAC^  = 40030g  (MKEXREQ,  PERFREQ,  FLREQ) 

Proceed  to  "G0FLASH2" 

TSaddr  = address  of  step  that  performed  "GOMARK2R" 
MPAC^  = TS 

MPAC^  = 40030g  (MKEXREQ,  PERFREQ,  FLREQ) 

Proceed  to  "GODSPRSl" 

TSaddr  = address  of  step  that  proceeded  to  "GOMARK3" 
MPAC^  = TS 

MPAC^  = 40230g  (MKEXREQ,  DECVERB,  PERFREQ,  FLREQ) 
Proceed  to  "GOFLASH2" 

Analogous  to  "G0MARK2R"  except  MPAC,  = 40230- 
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(GOMARKF) 


(GOMARKFR) 
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G0MARK4 


TSaddr  = address  of  step  that  proceeded  to  "GOMARK4" 


KT.KENEX 


PRIODSP 


PRIODSPR 


GOFLASH2 


GODSPRSl 


MPAC^  = TS 

MPAC^  = 40036g  (MKEXREQ,  PERFREQ,  FLREQ,  R3BLNK,  R2BLNK) 
Proceed  to  "GOFLASH2" 

TSaddr  = address  of  step  that  proceeded  to  "KLEENEX" 

MPAC,  = OOOOQ, 

1 8 

MPAC^  = AOOlOg  (mKEXREQ,  FLREQ ) 

Proceed  to  "GOFLASH2" 

TSaddr  = address  of  step  that  proceeded  to  "PRIODSP" 

MPAC^  = TS 

MPAC^  = OOllOg  (PRIOREQ,  FLREQ) 

Proceed  to  "GOFLASH2" 

TSaddr  = address  of  step  that  performed  "PRIODSPR"  or  "PRIOLARM" 
MPAC^  = TS 

MPAC^  = OOllOg  (PRIORBQ,  FLREQ) 

Proceed  to  "GODSPRSl" 

Inhibit  interrupts 

Set  bits  11-9  of  MPAC,  = EBANK 

4 

MPAC^  = TSaddr 

Release  interrupt  inhibit 

Proceed  to  "MAKEPLAY" 

Inhibit  interrupts 

Establish  "MAKEPLAY"  (if  a flashing  register  display  use 

VAC,  if  not  no  VAC) 

Set  bits  11-9  of  MPAC,  = EBANK 

4 

MPAC^  = TSaddr 


DINT  - 5 


Set  MPACj_  of  "MAKEPLAY"  job  = MPAC^^  of  present  job  for  i = 1-4 
Release  interrupt  inhibit 

Return  (in  listing  return  is  to  calling  address  + 4) 

BLANKET  Svdtch  MPAC,  bits  indicated  by  a binary  1 in  TS  to  1 

4 

Set  MPAC,  of  "MAKEPLAY"  job  = MPAC,  of  present  job 
4 4 

Return 

MAKEPLAY  USERPRIO  = priority  of  present  job 

Change  priority  to  33  (higher  than  "CHARIN") 

If  bit  15  of  MPAC^  (MKEXREQ)  = 1,  proceed  to  "MAKEMARK" 

If  bit  7 of  MPAC^  (PRIOREQ)  = 1,  proceed  to  "MAKEPRIO" 

COPINDEK  = 2 

If  bit  14  of  MPAC,  (RESETREQ)  = 1:  (REGODSP,  REFLASH,  CLEANDSP) 

k 

If  CADRFLSHg  ^ MPAC^,  proceed  to  "OKTOPLAY" 

If  DSPLOCK  = 0,  proceed  to  "OKTOPLAY" 

End  job  (display  is  already  set  andDSKY  is  busyj  see 

"CLOKJOB"  for  example) 

If  DSPFLG2  bit  4 (FLREQ)  = 0,  proceed  to  "OKTOPLAY" 

(Normal  displays  not  regiiiring  astronaut  action  can  be 
replaced  by  other  normal  displays) 

If  FLAGWRD4  bits  13  (NRMIDFLG),  10  (NWAITFLG),  8 (NRMNVFLG) 
and  4 (NRUPTFLG)  are  all  zero,  proceed  to  "OKTOPLAY" 

(not  replacing  a display  that  has  not  yet  been  displayed) 

Proceed  to  "BAILOUT"  with  TS  = 31502g 

Ctwo  simultaneous  requests  for  normal  display) 

OKTOPLAY  Inhibit  interrupts 

DSPFLG^  = MPAC^ 

If  DSPFLG2  bit  6 (DOTHNRET)  or  4 (FLREQ)  = 1: 

CADRFLSH^  = MPAC^ 
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NVWORD^  = MPAC^ 


PLAYJUMl 


MAKEMARK 


Release  interrupt  inhibit 

If  FLAGWRD4  bit  15  (MRKIDFLG),  U (PRIODFLG),  12  (PDSPFLAG), 

11  (MWAITFLG),  9 (MRKNVFLG),  7 (PRONVFLG),  5 (MRUPTFLG)  or 
1 (XDSPFLAG)  = 1: 

Switch  FLAGWRD4  bit  10  (NWAITFLG)  to  1 
MPACq  = COPINDEX  - 1 

If  a job  with  LOG  = "PLAYJUMl"  is  asleep: 

Awaken  it  and  set  its  LOG  = "ENDOFJOB"  (kill  it) 

Put  this  job  to  sleep  with  a LOG  = "PLAYJUMl"  (MPACq  ^ 
maintained  in  sleep) 

When  awakened  , proceed  to  address  specified  in  its  LOG 

(Otherwise,  this  job  is  free  to  proceed  to  use  the  DSKY) 

Perform  "WITCHONE" 

If  a job  with  LOG  = TS  is  asleep: 

Awaken  it  and  set  its  LOG  = "ENDOFJOB"  (kill  it) 

GOPINDEX  = 2 (GOPINDEX  not  maintained  by  sleeping  job) 

Proceed  to  "NVDSP" 

GOPINDEX  = 1 

Inhibit  interrupts 

DSPFLG^  = MPAG, 
i 4 

If  DSPFLG^  bit  6 (DOTHNRET)  or  4 (FLREQ)  = 1: 

GADRFLSH^  = MPAG^ 

NVWORD^  = MPAC^ 

Release  interrupt  inhibit 

If  FLAGWRD4  bit  14  (PRIODFLG),  13  (NRMIDFLG),  12  (PDSPFLAG), 

8 (NRMNVFLG)  and  7 (PRONVFLG)  are  all  0:  (no  normal  or 

priority  display  waiting  for  a response  or  a key  release) 


DINT  - 7 


MARKPLAY 


MAKEPRIO 


If  FLAGWRD4  bit  9 (MRKNVFLG)  = 1,  end  job 
Proceed  to  "MARKPLAY" 

If  FLAGWRD4  bit  U (PRIODFLG),  12  (PDSPFLAG)  and  7 (PRONVFLG) 
are  all  0:  (interrupt  if  a normal  display) 

Switch  FLAGWRD4  bit  3 (MKOVFLAG)  to  1 

MPACq  = 1 

Proceed  to  "JOBXCHS"  (substitute  mark  for  normal  display) 

If  FLAGWRD4  bit  11  (MWAITFLG)  or  5 (MRUPTFLG)  = 1,  end  job 
(otherwise,  put  mark  to  sleep  until  prio  display  is  over) 

Switch  FLAGWRD4  bit  11  (MWAITFLG)  to  1 
MPACq  = COP INDEX  - 1 

If  a job  with  LOG  = "MARKPLAY"  is  asleep: 

Awaken  it  and  set  its  LOG  = "ENDOFJOB"  (kill  it) 

Put  this  job  to  sleep  with  a LOG  = "MARKPLAY" 

When  awakened,  proceed  to  address  specified  in  its  LOG 
Inhibit  interrupts 

Switch  FLAGWRD4  bit  3 (MKOVFLAG)  to  0 and  bit  1 (XDSPFLAG)  to  1 
Release  interrupt  inhibit 

If  DSPFLG^  bit  5 (PERFREQ)  = 1,  NVWORD^  = -NVWORD^ 

OOPINDEX  = 1 
Proceed  to  "NVDSP" 

COPINDEX  = 0 

If  bit  14  (RESETREQ)  of  MPAC,  = 0: 

4 

If  FLAGWRD4  bit  14  (PRIODFLG)  or  7 (PRONVFLG)  = 1,  proceed 
to  "BAILOUT"  with  TS  = 31502g  (too  many  priority  displays) 
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OKTOCOPY 


REDOPRIO 


JOBXCHS 


If  bit  14  of  MPAC^  (RESETREQ)  = 1:  (not  expected) 

If  CADRFLSHq  = MPAC^  and  DSPLOCK  > 0,  end  job 
If  FLAGWRD4  bit  15  (MRKIDFLG)  or  9 (MRKNVFLG)  = 1: 

MPACq  = 0 

Proceed  to  "JOHXCHS"  (replace  mark  vn.th  prio  display) 
If  FLAGWRD4  bit  13  (NRMIDFLG)  or  8 (NRMNVFLG)  = 1: 

MPACq  = 1 

Proceed  to  "JOBXCHS"  (replace  norm  with  prio  display) 
COPINDEX  = 0. 

Inhibit  interrupts 
DSPFLGq  = MPAC^ 

If  DSPFLGq  bit  6 (DOTHNRET)  or  4 (FLREQ)  = 1: 

CADRFLSHq  = MPAC^ 

NVWORDq  = MPAC^ 

Release  interrupt  inhibit 

Perform  "WITCHONE" 

If  a job  with  LOG  = TS  is  asleep: 

Awaken  it  and  set  its  LOG  = “KNDOFJOB" 

PRIOTIME  = less  significant  half  of  TIMENOW 

GOPINDEX  = 0 

Proceed  to  "NVDSP" 

Perform  "WITGHONE" 

If  a job  with  LOG  = TS  is  asleep: 

Awaken  it  and  set  its  LOG  = "XGHSLEEP"  (to  cause  it 
to  continue  at  "XGHSLEEP"  when  this  job  is  finished) 
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(If  a job  vrith  LOG  = TS  is  asleep) 

Set  MPACq  of  awakened  job  = MPACq  of  this  job 
If  MPACq  = 0:  (mark  display  replaced  by  a priority  display) 

Switch  FLAGWRD4  bits  15  (MRKIDFLG)  and  9 (MRKNVFLG)  to  0 
Switch  FLAGVM)4  bit  5 (MRUPTFLG)  to  1 
If  MPACq  = 1:  (normal  display  replaced  by  mark  or  prio) 

Switch  FLAGWRD4  bits  13  (NRMIDFLG)  and  8 (NRMNVFLG)  to  0 
Switch  FLAGWRD4  bit  4 (NRUPTFLG)  to  1 
If  FLAGWRD4  bit  3 (MKOVFLAG)  = 1,  proceed  to  "MARKPLAY" 

Proceed  to  "OKTOCOPY"  (priority) 

XCHSLEEP  If  MPACq  =0,  TS  = "MARKPLAY" 

If  MPACq  =1,  TS  = "PLAYJUMl" 

If  a job  with  LOC  = TS  is  asleep: 

Awaken  it  and  set  its  LOC  = "MDOFJOB"  (kill  it) 

Put  this  job  to  sleep  and  set  its  LOC  = TS 


When  awakened,  proceed  to  the  address  specified  in  its  LOC 
WITCHONE  Switch  bit  5 of  channel  11  to  0 (key  release  lamp  off) 

If  FLAGWRD4  bit  9 (MRKNVFLG),  8 (NRMNVFLG)  or  7 (PRONVFLG)  = 1: 


TS  = DSPLIST 
DSPLIST  = -HD 
Return 


(job  active  in  the  display 
interface  routines  is  one 
that  is  awaiting'  astronaut 
release  of  the  DSKY) 


TS  = CADRSTOR 
CADRSTOR  = -HD 
Return 


(job  active  in  the  display 
interface  routines  is  one 
that  is  awaiting  an  astro- 
naut response) 
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NVDSP 


i = COPINDEX 


GENMASK  = K:dspoctab^ 

MPAC,  = DSPFLG. 
k 1 

EBANK  = bits  11-9  of  DSPFLG^ 

TSmonopt  = bits  3-1  of  DSPFLG^^ 

Switch  DSPFLG^  bit  13  (2NDPERF)  to  0 

TSdec  = bit  8 of  DSPFLG^  (DECVERB) 

MPAC2SAV  = MPAC2 

MARK2PAC  = fdPAC^ 

If  NVWORD.  = 0: 

1 

Establish  "JAMTERM"  (force  return  to  calling  (pr32) 

address  + l) 

Proceed  to  second  step  of  "FLASHSUB" 

If  NVWORD.  0: 

1 

TSvn  = NVWORD. 

1 

If  NVWORD^  0:  (expected  only  with  marks) 

NVWORD^  = - NVWORD^ 

TS  = K:V05N00 

If  TSdec  = 00200g  (bit  8 = l),  TS  = K:V06N00 
TSvn  = TS  + low  7 bits  of  NVWORD^  (verb  5 or  6 with  noun) 
NV50DSP  Perform  "NVSUB" 

If  FREEDSKY  = 0;  (display  system  in  use  externally) 

If  CADRSTOR  ^ 0,  end  job 
If  COPINDEX  = 0 (GENMASK  = 201A4q)  : 

Switch  FLAGWRD4  bit  7 (PRONVFLG)  to  1 
TSadr  = "REDOPRIO" 
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(If  FREEDSKY  = 0) 


If  COPINDEK  = 1 (GENMSK  = 42424g) : 

Switch  FLASWHD4  bit  9 (MRKNVFLG)  to  1 
TSadr  = "MARKPLAY" 

If  COPINDEK  = 2 (GENMASK  = 11254g) : 

Switch  FLAGWRD4  bit  8 (NRMNVFLG)  to  1 
TSadr  = "PLAYJUMl" 

(CADRSTOR  = 0 from  above) 

If  DSPLIST  / 0,  proceed  to  "BAILOUT"  with  TS  = 31206g 
Switch  bit  5 of  channel  11  to  1 (light  key  release  lamp) 
DSPLIST  = TSadr 

Put  this  job  to  sleep  with  a I4)C  = TSadr 

When  awakened,  proceed  to  address  specified  in  its  LOG 

Switch  bit  6 of  channel  11  to  0 (verb-noun  flash  off) 

MPAC^  = MPAC2SAV 

i = COPINDEK 

GENMASK  = Kidspoctab^ 

MPAC,  = DSPFLG. 

4 1 

EBANK  = bits  11-9  of  MPAC, 

4 

Switch  FLAGWRD4  bits  9 (MRKNVFLG),  8 (NRMNVFLG)  and  7 (PRONVFLG)  to  0 

Perform  "BIANKSUB"  with  TSblank  = MPAC^  (blank  extraneous  Registers) 

If  FREEDSKY  = 0,  proceed  to  "NVDSP" 

If  MPAC,  bit  5 (PERFReQ)  = 1 and  bit  13  (2NDPERF)  = 0: 

4 

Switch  DSPFLG^  bit  13  (2NDPERF)  to  1 

TS-vn  = bits  14-7  of  NVWORD^  (mark  verb  code) 

TSmonopt  = OOOOOg 

If  DSPFLG^  bit  15  (MKREQ)  = 1,  proceed  to  "NV50DSP" 
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(If  PERFIiEQ=  1 and  2NDPERF  = 0) 


RFIDSP 


RELDSPl 


FLASHSUB 


If  DSPFLGj^  bit  12  (BURNREQ)  = 1,  TSvn  = K:V97N00-NVW0RD1 
If  DSPFLG^  bit  12  (BURNREQ)  = 0,  TSvn  = K:V50N00 
Proceed  to  "NV50DSP" 

If  MPAC,  bit  4 (FLREQ)  = 1,  proceed  to  "FLASHSUB" 

4 

If  MPAC,  bit  6 (DOTHNRET)  = 1: 

4 

Change  priority  of  this  job  to  that  stored  in  USERPRIO 


Proceed  to  step  following  that  whose  address  is  stored 


in  CADRFLSH 


COPINDEX 


If  low  7 bits  of  NVW0RDj_  = 0,  proceed  to  "FLASHSUB" 
End  job 


Switch  bit  14  of  MDNSAVEl  to  0 (t\arn  off  external  monitor 

priority  indicator) 

If  DSPLIST  > 0:  (display  job  waiting  for  key  release) 


Awaken  job  with  LOC  = DSPLIST 
DSPLIST  = 0 


Switch  bit  5 of  channel  11  to  0 (key  release  lamp  off) 
DSPLOCK  = 0 


Return 

If  DSPLIST  = 0,  switch  bit  5 of  channel  11  to  0 (key  rel  off) 
DSPLOCK  = 0 


Return 

Switch  bit  6 of  channel  11  to  1 (start  verb-noun  flash) 
MPAC^  = COPINDEX 

If  GENMASK  = 20144g,  switch  FLAGWRD4  bit  14  (PRIODFLG)  to  1 
If  GENMASK  = 42424q,  switch  FLAGWRD4  bit  15  (MRKIDFLG)  to  1 
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If  GENMASK  = 11254g,  svdtch  FLAGWRD4  bit  13  (NRMIDFLG)  to  1 
If  COPINDEK  = 1 and  RISAVE  = 2: 

RISAVE  = 0 


Return  to  step  following  that  whose  address  is  in  CADRFLSH^ 
If  CADRSTOR  / 0: 

If  FLAGWRD4  bits  15  (MRKIDFLG)  and  6 (PINBRFLG)  both  = 0: 

I Proceed  to  "BAILOUT"  with  TS  = 31502g 

End  job 

( If  DSPLIST  ^ 0,  proceed  to  "BAILOUT"  with  TS  = 31206^ 

8 

CADRSTOR  = KrTUTERETI 


Put  this  job  to  sleep  with  a LOG  = CADRSTOR 
When  awakened,  proceed  to  address  specified  in  its  LOG 
VBTERM  LOADSTAT  = -1  (verb  34) 


Skip  next  3 steps 


VBPROC  LOADSTAT  = 1 


(verb  33) 


Skip  next  step 

VBRESEQ.  LOADSTAT  = -0  (verb  32) 

MONSAVEl  = 40000g  (kill  monitor) 

Perform  "RELDSP" 

Switch  bit  6 of  channel  11  to  0 (verb-no\m  flash  off) 


Proceed  to  "RECALTST" 

LOADLV  DECBRNCH  = OOOOOg  (data  entry,  mark  verb  etc.) 

LOADSTAT  = -0 
Perform  "RELDSP" 

DSPCOUUT  = -19 
Proceed  to  "RECALTST" 
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RECALTST  If  CADRSTOR  =0,  end  job 
TSadr  = CADRSTOR 
CADRSTOR  = 0 
Inhibit  interrupts 
Awaken  job  with  LOC  = TSadr 

If  LOADSTAT  = -1,  set  LOC  of  awakened  job  to  "TERMATE" 

If  LOADSTAT  = 1,  set  LOC  of  awakened  job  to  "PROCEED" 

If  LOADSTAT  = -0,  set  LOC  of  awakened  job  to  "IDLERBr3" 
TSnoun  = NOUNREG  (MPAC^  of  awakened  job) 

TSverb  = VERBREG  (MPACq  of  awakened  job) 

Release  interrupt  inhibit 
Perform  "RELDSP" 

End  job 

IDLERET3  If  TSverb  = 21,  22  or  23:  (data  load) 

i = MPAC^  (COPINDEX) 

If  TSnoun  ^ low  7 bits  of  NVWORD^,  proceed  to  "PINBRNCH" 
(load  is  not  in  response  to  request) 

OUTHERE  = 2 

Skip  next  3 steps 

PROCEED  OUTHERE  = 1 

Skip  next  step 

TERMATE  OUTHERE  = 0 

If  FLAGWRD4  bit  15  (MRKIDFLG)  = 1,  proceed  to  "MARKRET" 

If  FLAGWRD4  bit  14  (PRIODFLG)  = 0,  proceed  to  "NORMRET" 

TS  = (less  significant  half  of  TIMENOW)  - PRIOTIME 
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If  TS  < 0,  TS  = 16384  + TS 


If  TS  < K:23e_cB14;  (Priority  display  not  up  for  2 seconds) 
COPINDEK  = 0 
Proceed  to  "NVDSP" 

NORMRET  If  FLAGWRD4  bit  11  (MWAITFLG)  or  5 (MRUPTFLG)  = 1: 

Proceed  to  "MARKWAKE" 

If  FLAGWRD4  bit  10  (NWAITFLG)  or  4 (NRUPTFLG)  = 1: 

Proceed  to  "NORMWAKE" 

If  DSPFLG^  bits  4 (FLREQ)  and  6 (DOTHENRET)  both  = 0 and  NVWORD^  ^ 0 
Establish  "PLAYJUMl"  (prl5) 

Skip  next  step 

MARKRET  Switch  FLAGWRD4  bit  3 (MKOVFLAG)  to  0 (also  bit  2 - meaningless) 

ENDRET  If  OUTHERE  < 0,  end  job 

If  GENMASK  = 20144rt,  switch  FLAGWRD4  bits  14  (PRIODFLG)  and 
6 (PINBRFLG)  to  0 

If  GENMASK  = 42424g,  switch  FLAGWRD4  bit  15  (MRKIDFLG)  to  0 

If  GENMASK  = 11254rt,  switch  FLAGWRD4  bits  13  (NRMIDFLG)  and 
6 (PINBRFLG)  to  0 “ 

TSvn  = -3 

TSmonopt  = 0 

Perform  "NVSUB"  (Blank  display  excepting  MM  number) 

Change  priority  of  this  job  to  that  specified  in  USERPRIO 
i = MPAC^  (COPINDEK) 

MPAC^  = CADRFLSH^ 

If  OUTHERE  = 0,  proceed  as  specified  in  the  "if  terminate" 
option  at  the  step  whose  address  is  stored  in  MPAG, 
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NORI^AKE 


MARKWAKE 


FINBRNCH 


ENDEXT 


If  OUTHERE  - 1,  proceed  as  specified  in  the  "if  proceed" 
option  at  the  step  whose  address  is  stored  in  liPAC^ 

If  OUTRERE  = 2,  proceed  as  specified  in  the  "other  response" 
option  at  the  step  whose  address  is  stored  in  MPAC^ 

Switch  FLAGWRD4  bit  4 (NRUPTFLG)  and  10  (NWAITFLG)  to  0 

Awaken  job  with  LOG  = "PLAYJUMl" 

Proceed  to  "ENDRET" 

Switch  FLAGWRD4  bit  5 (MRUPTFLG)  and  11  (MWAITFLG)  to  0 
Awaken  job  with  LOG  = "MARKPLAY"  , 

Proceed  to  "ENDRET" 

Release  interrupt  inhibit  (if  any) 

MPAG^  = MARK2PAG 

If  FLAGWRD4  bits  15  (MRKIDFLG) , 14  (PRIODFLG) , and  13  (NRIGDFLG) 
all  = 0: 

TSvn  = -3 

TSmonopt  = OOOOOg 

Perform  "NVSUB" 

End  j ob 

If  FLAGWRD4  bit  15  (MRKIDFLG)  = 1,  proceed  to  "MARKPLAY" 

Proceed  to  "NORMBNGH" 

EXTVBAGT  = OOOOOg 
Inhibit  interrupts 

Switch  FLAGWRD4  bit  1 (XDSPFLAG)  to  0 
Release  Interrupt  inhibit 
OUTHERE  = -1 

If  FLAGWRD4  bit  14  (PRIODFLG)  and  13  (NRMIDFLG)  are  both  zero: 
Proceed  to  "NORMRET" 
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NORMBNCH 


JAI'CTERM 


PRIOLARM 


C LOOP LAY 


Switch  FLAGWRD4  bit  6 (PINBRFLG)  to  1 
If  FLAGWRD4  bit  14  (PRIODFLG)  = 1: 

COPINDEX  = 0 
Proceed  to  "NVDSP" 

Proceed  to  "PLAYJUMl" 

REQRET  = 34 
DSPCOUNT  = -19 
Proceed  to  "VBTERM" 

Perform  "ALARM" 

Proceed  to  "PRIODSPR"  with  TS  = K:V05N09 

TSaddr  = address  of  step  that  proceeded  to  "GLOCPLAY" 

MPAC^  = TS 

MPAC^  = 24030g  (RESETREQ,  BURNREQ,  PERFREQ,  FLREQ) 
Proceed  to  "G0FLASH2" 
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Quantities  in  Computations 


CADRKLSH.  (i  = 0,1,2):  Three  single  precision  cells  for  storage  of  return 
address  information  required  by  priority,  mark  and  normal  display 
requests.  In  the  program  itself,  CADRKLSH  is  used  for  storage  of  the 
address  of  the  step  after  that  at  which  the  display  interface  routine  is 
called;  in  this  writeup,  CADHFliSH  refers  to  the  address  of  the  step  that 
called  a display  interface  routine. 

CADRSTOR:  Single  precision  storage  for  the  address  of  the  job  that  is 
asleep  while  awaiting  an  astronaut  response. 

COPINDEX:  Single  precision  index  used  to  determine  which  display  control 
parameters  are  relevant  (priority,  mark/extended  verb,  or  normal  =■  0, 

1,  or  2),  scaled  B14  and  unitless. 


DECBRNCH:  See  DSKY  section. 

DSPCOUNT:  See  DSKY  section. 

DSPFLG^  (i  •=  0,1,2):  Three  single  precision  flagwords  containing  control 
discretes  for  one  priority  (i=0) , one  mark  (i=1 ) and  one  normal  display 
(i^'-2)  simultaneously.  The  individual  bits  have  the  same  significance  in 
each  of  the  three  flagwords  (one  would  not  expect  bit  15  to  be  set  in 
DSPFLGq  or  DSPFI.G2,  etc.).  The  following  is  a list  of  the  significance 
of  each  when  it  is  set  (1). 


Bit  Mnemonic 


Significance 


15  MKEXREQ 

14  RESETREQ 

13  2NnPEEP 

12  BURNREQ 


Mark  or  extended  verb  display.  (Higher  priority 
than  a normal  display. ) 

Reset  request;  replaces  active  display  of  same 
priority. 

Second  loop  through  a "please  perform"  type 
display;  the  first  loop  displays  the  noun  using 
a display  verb.  The  second  loop  replaces  the 
display  verb  with  the  appropriate  "please  perform" 
verb . 

The  "please  perform"  verb  is  to  be  97/99  rather 
than  50. 


Bits  11-9  are  used  to  store  the  setting  of  EBAEK  from  the  program  using 
a display  interface  routine. 


8 

7 

6 

5 

4 


DEC  VERB 

PRIOREQ 

DOTHNEET 

PERFREQ 

ELREQ 


The  noun  to  be  displayed  with  a "please  perform" 
verb  requires  a decimal  display  verb  in  the  first 
loop. 

Priority  display.  (Higher  priority  than  a mark  or 
a normal  display.) 

Return  only  after  display  is  executed.  (Used  only 
with  displays  that  do  not  require  astronaut  action.) 
A "please  perform"  type  display  request. 

This  display  requires  astronaut  response;  set  the 
verb  and  noun  registers  flashing. 
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Bit 


Mnemonic 


Significance 


3 R3BLNK  Blank  register  3. 

2 R2HLNK  Blank  register  2. 

1 RIELNK  Blank  register  1. 

Program  notations  EBANKSAV,  MARKEBAN  and  EBANKTEM  or  DSPELG,  MARKELAG 
and  SAVEFLAG,  respectively.  DSPFLG2  is  set  to  OOOOOg  in  "BOFSTRTl" . 

DSPLIST:  Singile  precision  storage  for  the  address  of  the  job  that  is 
asleep  while  waiting  for  the  astronaut  to  release  control  of  the  DSKY. 

DSPLOCK:  Single  precision  flagword  set  positive  when  the  astronaut  has 
control  of  the  DSKY,  and  reset  to  zero  when  the  DSKY  is  free  for  use 
by  internal  programs. 

DSPTEM1:  See  DATA  section. 

DSPTEM2:  See  DATA  section. 


EBANK:  See  MATX  section. 

EXTVBACT:  See  EXVB  section. 

FREEDSKY:  See  DATA  section. 

GENMASK:  Single  precision  flagword  indicating  which  bits  of  the  DSPFLG. 
are  to  be  set. 

K:23ecB14:  Single  precision  constant  stored  as  -200  x 2 , program  notation 

-2SEC,  scaled  BIA  in  units  of  centiseconds.  Equation  value:  200. 

K:dspoctab.  (i  = 0,1,2):  Three  single  precision  octal  constants,  program 
notation  PRIOOCT+0,  +1,  +2,  stored  as  20144g,  42424g,  and  11254g* 

K : IDLEIRETI : Single  precision  octal  address  changed  in  "RECALTST"  to  cause 
a flashing  display  interface  routine  to  branch  to  "TERMATE",  "PROCEED"  or 
"IDLERET3". 

K:VxxNxx:  Single  precision  constant  containing  a seven-bit  verb  code  (0-99) 
in  bit  positions  14-8  and  a seven-bit  nom  code  (0-99)  in  bit  positions  7-1. 


LOADSTAT:  Single  precision  flag  indicating  whether  an  astronaut  response  is 
verb  34,  verb  33,  or  verb  32  or  a data  entry  or  entry  of  a "please  perform" 
verb. 

LOG:  See  MATX  section. 
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MARK2PAC:  Single  precision  storage  for  MPAC^. 

MONSAVEl:  See  DATA  sec?" ion. 

MPAC.  (i  = 0-7):  A set  of  eight  single  precision  cells  associated  with 
a^particular  job  and  used  exclusively  by  that  job.  When  a job  is 
put  to  sleep  or  is  interrupted  by  a job  of  higher  priority,  MPACq_^ 
are  saved  to  be  reset  exactly  as  they  were  when  the  interrupted 
job  is  reestablished.  See  MATX  section. 

MPACq:  Used  as  a flag  to  determine  if  a job  being  put  to  sleep  is  one 
handling  a normal  display  or  one  handling  a mark  display. 

MPAC^:  Used  to  store  the  verb-noun  code  at  entry  to  the  display  inter- 
face logic. 

MPAC^:  Used  to  store  the  address  for  an  "address  to  be  specified"  novm 
when  that  noun  is  used  by  a program  (^as  opposed  to  use  of  that  novin 
by  the  astronaut,  in  which  case  he  would  enter  the  address  via  the 
DSKY). 


MPAC^:  Used  as  temporary  storage  for  CADRFLSH^  or  COPINDEX. 

MPAC,:  Used  as  temporary  storage  for  DSPFLG. . 

MPAC2SAV:  Storage  for  MPAC^  while  it  is  being  used  as  working  storage. 

NOUNREG:  See  DATA  section. 

NVWORD.  (i  = 0,1,2):  Set  of  three  single  precision  erasable  memory  cells 
used  to  retain  values  of  the  verb-noun  pattern  (verb  code  in  bits  14-8, 
novin  code  in  bits  7-l)  for  priority,  mark/extended  verb,  and  normal 
displays,  respectively.  Program  notations  NVWORD,  MARXNV  and  NVSAVE, 
respectively.  NVWORD^  is  initialized  as  0 in  "DOFSTRTl". 

NVWORDl:  See  BURN  section. 

OPTIONl,  0PTI0N2:  See  DATA  section. 

OUTHERE:  Single  precision  index  used  to  determine  the  retiirn  from  the 
display  interface  routines  based  on  the  type  of  p,stronaut  response. 

PRIOTIME:  Single  precision  time  when  a priority  display  is  activiated, 

scaled  B14  in  units  of  centiseconds.  Used  to  assure  that  a reply 
to  an  Interrupted  normal  or  mark/extended  verb  display  is  not  inter- 
preted as  a response  to  the  interrupting  priority  display. 

RISAVE:  Single  precision  call,  initialized  to  0 in  "STARTS32",  used  in 
"FLASHSUB"  to  control  a special  retiim  to  the  calling  routine. 
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REQRET:  See  DSKY  section. 

TIMENOW:  See  EIYB  section. 

USERPRIO:  Single  precision  storage  for  the  priority  of  the  job  using 
the  display  interface  routines.  (Actually  equal  to  MPAC_  and  there- 
fore maintained  while  the  job  is  asleep.) 

VERBREG:  See  DATA  section. 


DINT 


22 


i 


DSKY 


Display  and  Keyboard  Interface  Logic 


KEYRUFTl 


CHARIN 


(Entered  on  program  interrupt  #5) 

SAMPTIME  = TIMENOW  (for  noun  65) 

TS  = low  5 bits  of  channel  15  (five  bit  key  code) 

Switch  FLAGWRD5  bit  15  (DSKYFLAG)  to  1 

Establish  "CPiARIN"  (pr30) 

Set  MPACq  of  "CHARIN"  job  = TS 

Resimie 


21d22REG  = DSPLOCK 
DSPLOCK  = 1 

If  CADRSTOR  ^ +0  and  MPACq  ^ 22g:  (flashing  display;  not  error  reset) 

Switch  bit  5 of  channel  11  to  1 (key  release  lamp) 


CHAR  = MPACq 

If  CHAR  = 1,2,3,4j5,6  or  7:  (numbers  1 through  7) 

Proceed  to  "NUM" 

If  CHAR  = lOg  or  llg:  (numbers  8 and  9) 

If  DSPCOUNT  < -0,  end  job 

If  bit  2 or  1 of  DECBRNCH  = 1,  proceed  to  "NUM" 

Proceed  to  "CHARALRM"  (decimal  mmibers  not  allowed) 
If  CHAR  = 20g:  (the  number  zero) 

CHAR  = 0 


Proceed  to  "NUM" 

If  CHAR  = 21g,  proceed  to  "VERB" 

If  CHAR  = 22g,  proceed  to  "ERROR" 

If  CHAR  = 31g,  proceed  to  "VBRELDSP" 
If  CHAR  = 32g,  proceed  to  "POSGN" 


(verb) 

(error  reset) 
(key  release) 
(+  sign) 
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CHARALRM 


VERB 


NOUN 


NUM 


(19) 


If  CHAR  = 33g,  proceed  to  "NEGSGN" 
If  CHAR  = 34g,  proceed  to  "ENTER" 
If  CHAR  = 36g,  proceed  to  "CLEAR" 
If  CHAR  = 37g,  proceed  to  "NOUN" 
Svatch  bit  7 of  channel  11  to  1 
End  job 
VERBREG  = 0 
DSPCOUNT  = K:VD1 
Skip  next  two  steps 
NOUNREG  = 0 
DSPCOUNT  = K:ND1 
Perform  "2BLANK" 

DECBRNCH  = OOOOlg 
REQRET  = +0 
ENTRET  = "ENDOFJOB" 

End  job 

If  DSPCOUNT  < -0,  end  job 
Perform  "GETINREL" 


(-  sign) 
(enter) 

(clear) 

(noun) 

(operator  error  lamp) 


(17) 

(blank  verb  or  noun  register) 
(to  indicate  + decimal) 


(numbers  not  called  for) 


If  CLPASS  > 0,  CLPASS  = 0 
CODE  = low  5 bits  of  K:RELTAB^ 


(indicate  that  number  inserted  since 
last  clear) 


CHAR 

Perform  "DSPIN"  with  COUNT  = DSPCOUNT 
If  bits  1 and  2 of  DECBRNCH  both  = 0: 


(insert  number  on  DSKY) 
(octal) 


TS  = XREG,  YREG  or  ZREG  according  to  whether  INREL  =2,  3 or  4 
(INREL  not  expected  to  equal  0 or  1 if  number  is  octal) 


TS  = 8 TS  + CHAR 


(TS  cycled  left  three  places) 
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If  bit  1 or  bit  2 of  DECBRNCH  =1:  (+  or  - decimal) 

TS  = VERBREv.'"-,  NOUNREG,  XREG,  YREG  or  ZRBG  according  to 
whether  INREL  = 0,  1,  2,  3 or  4 

TS  = 10  TS  + CHAR 

If  TS  ^ 16384,  proceed  to  "DECEND"  (must  be  5th  character) 
If  INREL  = 0,  set  VERBREG  = TS  and  i = 18 

If  INREL  = 1,  set  NOUNREG  = TS  and  i = 16 

If  INREL  = 2,  set  XREG  = TS  and  i = 10 

If  INREL  = 3,  set  YREG  = TS  and  i = 5 

If  INREL  = 4,  set  ZREG  = TS  and  i = 0 

If  i ^ DSPCOUNT:  (more  characters  may  be  inserted) 

DSPCOUNT  = DSPCOUNT  - 1 
End  job 

If  bit  1 or  bit  2 of  DECBRNCH  = 1,  proceed  to  "DECEND" 

DSPCOUNT  = - DSPCOUNT  (block  further  niomerical  characters) 

End  job 

DECEND  If  INREL  = 0 or  1 : (verb  or  noun  registers) 

DSPCOUNT  = - DSPCOUNT  (scaling  already  BI4) 

End  job 

If  bit  1 of  DECBRNCH  = 1,  TS,  = lO"^  TS 

dp 

If  bit  2 of  DECBRNCH  = 1,  TS,  = - lO"^  TS 

dp 

If  INREL  = 2,  store  TS , in  XREG  and  XREGLP  (LP  = lower  half) 

ap 

If  INREL  = 3,  store  TS,  in  YREG  and  YREGLP 

dp 

If  INREL  = 4,  store  TS^^  in  ZRBG  and  ZREGLP 
DSPCOUNT  = - DSPCOUNT 
End  job 
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GETINREL  Set  INREL  in  accordance  with  DSPCOUNT  and  the  following  table: 


POSGN 


NEGSGN 


SGNCOM 


DSPCOUNT 


INREL  Significance 


0 thru  4 
5 thru  9 
10  thru  14 
16  or  17 
18  or  19 
15,  20  or  over 


4 Register  #3,  digits  5 (lowest)  thru  1 

3 Register  #2,  digits  5 thru  1 

2 Register  #1,  digits  5 thru  1 

1 Noun  register,  digits  2 or  1 

0 Verb  register,  digits  2 or  1 

meaningless 


Return 

Perform  "SIGNTEST" 
Perform  "GETINREL" 


SGNOFF  = 5,  3 or  0 according  to  whether  INREL  = 2,  3 or  4 
SGNON  = SGNOFF  + 1 
Perform  "SGNCOM" 

Switch  bit  1 of  DECBRNCH  to  1 (to  indicate  + decimal) 

Proceed  to  "BOTHSGN" 


Perform  "SIGNTEST" 

Perform  "GETINREL" 

SGNON  = 5,  3 or  0 according  to  whether  INREL  =2,  3 or  4 

SGNOFF  = SGNON  + 1 
Perform  "SGNCOM" 

Switch  bit  2 of  DECBRNCH  to  1 (to  indicate  — decimal) 

Proceed  to  "BOTHSGN" 

CODE  = 0 

Perform  "IIDSPIN"  with  TS  = SGNOFF 
Switch  bit  11  of  CODE  to  1 
Perform  "IIDSPIN"  with  TS  = SGNON 
Retiirn 


DSKY  - 4 


SIGNTEST  If  bit  1 or  bit  2 of  DECBRNCH  = 1,  end  job  (sign  already  set) 

If  DSPCOUNT  / l'+  (RlDl),  9 (R2D1)  or  4 (R3D1),  end  job 
Return 

BOTHSGN  If  BIREL  = 2,  svdtch  bit  5 of  DECBRNCH  to  1 

If  INREL  = 3,  switch  bit  4 of  DECBRNCH  to  1 

If  INREL  = 4,  switch  bit  3 of  DECBRNCH  to  1 

If  CLPASS  > 0,  CLPASS  = 0 

End  job 

REQDATX  DSPCOUNT  = K:R1D1  (14) 

Skip  next  3 steps 

REQDATY  DSPCOUNT  = K:R2D1  (9) 

Skip  next  step 

REQDATZ  DSPCOUNT  = K:R3D1  (4) 

REQRET  = - retiim  address 

Perform  "5BLANK" 

Switch  bit  6 of  channel  11  to  1 (verb-noun  flash) 

Proceed  to  address  specified  by  ENTRET 


(to  cause  "ENTER"  to  branch  to  caller 
of  "REQDATX"  etc . when  requested  data 
is  entered) 


REQMM  REQRET  = - return  address 
DSPCOUNT  = K:ND1  (l?) 
NOUNREG  = 0 


Perform  "2BLANK" 

Switch  bit  6 of  channel  11  to  1 (verb-noun  flash) 
DECBRNCH  = OOOOlg  (bit  1 = 1 to  indicate  + decimal) 
Proceed  to  address  specified  by  ENTRET 
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ENTER 


CLPASS  = 0 


ENTRET  = "ENDOFJOB" 

If  REQRET  ^ +0,  proceed  to  "ENTPASO"  (normal  data  entry) 

If  ) REQRET  I = "MMCHANG"  + 1:  (data  requested  by  "MMCHANG") 

REQRET  = I REQRET I 

Svd-tch  bit  6 of  channel  11  to  0 (verb-noun  flash  off) 

Return  via  REQRET  (to  second  step  of  "MMCHANG") 

If  bit  1 or  bit  2 of  DECBRNCH  = 1 and  DSPCOUNT  is  positive: 

Proceed  to  "DSPALARM"  (decimal  data  requires  all  five 

characters  before  an  enter) 

REQRET  = I REQRET  I 

Switch  bit  6 of  channel  11  to  0 (verb-noun  flash  off) 

Return  via  REQRET  (to  program  that  performed  "REQDATK"  etc.) 

CLEAR  TS  = DSPCOUNT 

Perform  "GETINREL"  with  DSPCOUNT  = j DSPCOUNT  | 

DSPCOUNT  = TS 

If  CLPASS  < 0:  (first  "clear"  since  the  last  enter) 

If  INREL  < 1,  end  job  (the  verb  and  noun  registers  are 

not  cleared,  they  are  changed) 

Perform  "5BLANK"  skipping  the  first  step  (have  INREL  already) 
CLPASS  = CLPASS  + 1 (enable  multiple  clears  if  needed) 

End  job 

(otherwise,  it's  a miiltiple  component  clear) 

INREL  = INREL  - 1 (Register  #n  has  already  been  cleared; 
decrement  INREL  to  indicate  that  register  #n-l  is  to  be 
cleared  as  well.) 

If  INREL  < 1,  end  job  (Registers  1,  2 and  3 are  already 

cleared;  "CLEAR"  can  do  no  more.) 
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REQRET  = REQRET  + 3 (Change  return  address  to  loading  program 
to  force  it  to  back  up  to  a previous  step  in  the  loading 
process;  fran  "perform  'REODATY'"  to  "perform  'REQDATX'"  etc.) 

VERBREG  = VERBRBG  - 1 (INREL  saved;  equals  WDCNT) 

Perform  "UPDATVB"  (Change  verb  display  to  reflect  the  change 

in  the  component  to  be  loaded.) 

Perform  "5BLANK"  skipping  the  first  step 

CLP ASS  = CLP ASS  + 1 (Enable  clear  of  register  #1  after  #3  and  #2) 
End  job 

ERROR  DSPLOCK  = 21d22REG  (error  reset  leaves  DSPLOCK  unchanged) 

Inhibit  interrupts 

Svdtch  bit  10  of  channel  11  to  1 (reset  "Restart"  lamp) 

Switch  DSPTAB^2  '*^0 

(Reset  "Program  Check  Fail"  and  "Tracker  fail"  lamps,  bits 
9 and  8.  Leave  bits  6 and  4 alone;  "Gimbal  lock"  and 
"No  attitude"  lamps.) 

Switch  bits  13,  12  and  11  of  IMODES33  to  1 

(Set  PIPA  good.  Downlink  good  and  Uplink  good  bits) 

Switch  bit  10  of  IM0DES30  to  1 
(Set  PIPA  good  bit) 

Switch  RADMODES  bits  8 (LRVELFLG),  5 (LRALTFLG)  and  4 (RRDATAFL)  to  0 
Switch  RADMODES  bit  7 (RCDUFAIL)  to  1 
Perform  "C13STALL" 

Switch  bit  10  of  channel  13  to  0 (Reset  "test  alarms"  discrete) 

Switch  bits  7 and  3 of  channel  11  to  0 

(Reset  "Operator  Error"  and  "Uplink  Activity"  lamps) 

DSPTAB^  = (IDSPTAB^I  with  bit  12  set  = l)  signDSPTAB^  for  all  values 
of  i from  10  through  0 

Release  interrupt  inhibit 

FAILREG^  = 0 for  i = 0,  1 
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SFAIL  = 0 


TOPKT.nSP 


End  job 

Switch  bit  3 of  channel  11  to  0 (Reset  Uplink  Activity  lamp) 
If  21d22REG  > 0 and  bit  14  of  MDNSAVEl  = 1:  (monitor  going) 

DSPLOCK  = 0 

If  CADRSTOR  = +0,  perform  "RELDSPl" 

End  job 

Perform  "REIDSP" 

If  CADRSTOR  ^ -HD,  proceed  to  "PINBRNCH" 

End  job 
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DSPOCTWD  WDRET  = return  address 


WD AGAIN 


DSPDECWD 


DSPDCWDl 


SvrLtch  bit  14  of  DSPCOUNT  to  1 (to  blank  sign  in  "DSPIN") 

IsiDCNT  = 4 

TSwd  = TSwd  cycled  left  3 places  (bit  15  shifted  into  bit  3 

position,  14  into  2,  etc.) 

i = low  3 bits  of  TSwd 

CODE  = low  5 bits  of  K:RELTAB^ 

COUNT  = DSPCOUNT 

If  DSPCOUNT  > 0,  DSPCOUNT  = DSPCOUNT  - 1 

Perform  "DSPIN"  (display  digit  in  position  specified  by  COUNT) 

If  WDCNT  > 0: 

WDCNT  = WDCNT  - 1 
Proceed  to  "WDAGAIN" 

DSPCOUNT  ==  -19 
Retiim  via  WDRET 
WDRET  = return  address 

Perform  "DSPSIGN"  (returns  with  MPAC^p  = jMPAC^pj) 

MPAC^  = MPAC,  + K:DECROUND 
dp  dp 

If  overflow  (MPAC^p  > l),  MPAC^p  = Krposmaxdp 
WDCNT  = 4 

i = integral  part  of  (10  MPAC^p)  (highest  digit  first) 

CODE  = low  five  bits  of  KrRELTAB^  (character  code) 

MPAC^p  = fractional  part  of  (10  MPAC^p) 

COUNT  = DSPCOUNT 

If  DSPCOUNT  > 0,  DSPCOUNT  = DSPCOUNT  - 1 
Perform  "DSPIN" 
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If  WDCNT  > 0: 


DSPSIGN 


+0N 


-ON 


WDCNT  = WDCNT  - 1 
Proceed  to  "DSPDCWDl" 

DSPCOUNT  = -19 

Return  via  WDRET 

If  MPAC^p  > -HD,  perform  "+0N" 

If  MPAC^p  < -0,  perform  "-ON"’ 

MPAC,  = ImPAC^  I 
dp  I dp' 

Return 

Perform  "GETINREL" 

SGNOFF  = 5,  3 or  0 according  to  whether  INREL  = 2,  3 or  4 

SGNON  = SGNOFF  + 1 

CODE  = OOOOOg  (bit  11  = 0) 

Perform  "IIDSPIN"  with  TS  = SGNOFF 
Switch  bit  11  of  CODE  to  1 
Perform  "IIDSPIN"  with  TS  = SGNON 
Return 

Perform  "GETINREL" 

SGNON  = 5,  3 or  0 according  to  whether  INREL  = 2,  3 or  4 

SGNOFF  = SGNON  + 1 

CODE  = OOOOOg  (bit  11  = 0) 

Perform  "IIDSPIN"  with  TS  = SOIOFF^ 

Switch  bit  11  of  CODE  to  1 
Perform  "IIDSPIN"  with  TS  = SGNON 
Return 
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DSPDC2NR  WDRET  = retiirn  address 


DSFDECVN 


DSP2DEC 


BLAMSUB 


Perform  "DSF3IGN" 

WDCNT  = 1 

Proceed  to  "DSPDCWDl" 

WDRET  = retiirn  address 

MPAC,  = KiVNDSPCON  TS 
dp 

WDCNT  = 1 

Proceed  to  "DSPDCWDl" 

WDRET  = return  address 

CODE  = OOOOOg  (bit  11  =0) 

Perform  "IIDSPIN"  with  TS  = 3 (-R2S  off) 

Perform  "IIDSPIN"  with  TS  = 4 (-+1123  off) 

Perform  "DSPSIGN" 

WDCNT  = 9 

Proceed  to  "DSPDCWDl" 

FREEDSKY  = 0 
If  DSPLOCK  > 0,  return 

If  bit  14  of  MDNSAVEl  = 1,  return  (no  blank  for  externally 

initiated  monitor) 

If  bits  3-1  of  TSblank  all  .=  0,  return 
TScnt  = DSPCOUNT 

If  bit  1 of  TSblank  = 1,  perform  "5BLANK"  with  DSPCOUNT  = K:R1D1 

If  bit  2 of  TSblank  = 1,  perform  "5BLANK"  with  DSPCOUNT  = K:R2D1 

If  bit  3 of  TSblank  = 1,  perform  "5BLANK"  with  DSPCOUNT  = K:R3D1 

DSPCOUNT  = TScnt 
FREEDSKY  = 1 
Return 
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SBLANK  Perform  "GETINREL" 


CODE  = 0 
If  INREL  = 2 : 

XREG  = 0 
XREGLP  = 0 

Set  bits  5,  2 and  1 of  DECBRNCH  = 0 
Perform  "DSPIN"  with  COUNT  = 14  (RlUl) 

Perform  "2BLANK"  twice,  with  DSPCOUNT  = 13,  then  11 
DSPCOUNT  = K:R1D1 
If  INREL  = 3; 

YREG  = 0 
YREGLP  =0 

Set  bits  4,  2 and  1 of  DECBRNCH  = 0 
Perform  "DSPIN"  with  COUNT  = 5 (R2D5) 

Perform  "2BLANK"  twice,  with  DSPCOUNT  = 9>  then  7 
DSPCOUNT  = K:R2D1 
If  INREL  = 4: 

ZREG  = 0 
ZREGLP  = 0 

Set  bits  3j  2 and  1 of  DECBRNCH  = 0 
Perform  "DSPIN"  with  COUNT  = 4 (R3D1) 

Perform  "2BLANK"  twice,  with  DSPCOUNT  = 3,  then  1 
DSPCOUNT  = K:R3D1 
Return 
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2BLANK 


i = integral  part  of  ^ DSPCOUNT 


If  the  sign  of  DSPTAB^  is  positive,  NOUT.  = NOUT  + 1 
DSPTAB^  = - 04000g  (minus  to  flag  for  output) 

Retiim 
IIDSPIN  i = TS 

COUNT  = 2 

Proceed  to  "DSPINl" 

DSPIN  i = integral  part  of  5 (low  5 bits  of  COUNT) 

If  bit  1 of  .COUNT  = 0:  (COUNT  is  even) 

COUNT  = 0 

Proceed  to  "DSPINl" 

CODE  = CODE  shifted  left  five  places  (to  positions  6-10) 

If  bit  14  of  COUNT  = 0: 

COUNT  - 1 

Proceed  to  "DSPINl" 

COUNT  = 3 (sign  to  be  changed  as  well  as  digit) 

DSPINl  Inhibit  interrupts 

TS  = |dsptab^| 

If  COUNT  = 0,  set  bits  1-5  of  TS  = bits  1-5  of  CODE 
If  COUNT  =1,  set  bits  6-10  of  TS  = bits  6-10  of  CODE 
If  COUNT  = 2,  set  bit  .11  of  TS  = bit  11  of  CODE  (sign) 
If  COUNT  = 3,  set  bits  6-11  of  TS  = bits  6-11  of  CODE 
If  TS  = I DSPTAB^  I , skip  next  two  steps 

If  DSPTAB^  not  already  flagged  for  output,  NOUT  = NOUT  + 1 
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DSPTAB^  = - TS  (complemented  to  flag  for  output) 

Release  interrupt  inhibit 

Return 
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Quantities  in  Computations 


21d22REG:  Single  precision  storage  for  the  DSPLOCK  indication  so  that 
an  "error  reset"  may  leave  DSPLOCK  unchanged. 

CADRSTOR:  See  DINT  section, 

CHAR:  The  five  bit  octal  keycode  extracted  from  bits  5 through  1 of 
channel  15  when  a keyboard  interrupt  is  triggered  by  the  depression 
of  any  of  the  DSKY  keyboard  buttons.  The  DSKY  buttons  and  the  binary 
codes  gated  into  channel  15  by  their  respective  depressions  are: 


10001 

VERB 

00010 

2 

01000 

8 

11111 

NOUN 

00011 

3 

01001 

9 

11010 

+ 

00100 

4 

11110 

CLR 

11011 

- 

00101 

5 

11001 

KEY  REL 

10000 

0 

00110 

6 

11100 

ENTR 

00001 

1 

00111 

7 

10010 

RSET 

CLPASS:  A single  precision  register  used  to  direct  the  logic  enabling 
multiple-clearing  of  the  three  five-digit  display  registers.  Set 
to  zero  whenever  a valid  numerical  character  or  a sign  is  processed 
unless  it  has  been  previously  set  to  a large  negative  number  to 
disable  multiple  clears.  See  routine  "CLEAR". 

CODE:  A five-bit,  binary  relay  code  to  select  the  configuration  of 
the  DSKY  illumination  relays  to  form  the  proper  character.  The 
character  codes  are: 


10101 

0 

01111 

4 

11101 

8 

00011 

1 

11110 

5 

11111 

9 

11001 

2 

11100 

6 

00000 

blank 

11011 

3 

10011 

7 

COUNT:  Single  precision  register  used  as  working  storage  in  the  "DSPIN" 

routine,  first  to  designate  the  DSPTAB  word  to  be  changed,  and 
second  to  indicate  which  of  the  two  digits  controlled  by  one 
DSPTAB  word  is  to  be  changed  and  whether  a sign  is  to  be  changed 
or  blanked. 


DECBRNCH:  A single  precision  flagword  whose  bits  have  the  following 

significance: 


(not  octal) 


Bit  1 Plus  decimal 

2 Minus  decimal 

3 Register  #3  contains  a decimal  number 

4 Register  #2  contains  a decimal  number 

5 Register  #1  contains  a decimal  number 

6-15  spare 

Bits  3-5  are  used  in  multiple  component  loads  to  assure 
all  components  are  decimal  or  octal. 
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DSPCOUNT:  A single  precision  quantity  which  indicates  the  register 
and  digit  position  on  the  DSKY  into  which  a number  is  to  be 
placed.  See  description  of  DSPTAB  registers.  DSPCOUNT  is  set 
negative  to  indicate  that  further  depressions  of  numerical  keys 
are  to  be  ignored  by  the  program  until  another  "command"  key  is 
depressed  (VERB,  NOUN,  ENTR,  etc.). 

DSPLOCK:  Single  precision  flag  set  to  some  non-zero  value  to  indicate 

when  the  display  and  keyboard  are  being  used  by  the  astronaut  (or 
uplink) . 

DSPTAB.  (i=0-10):  Computer  storage  of  the  DSKY  illumination  relay 

settings.  Bits  15  thru  13  are  zero  and  bit  12  is  1 except  when  the 
DSPTAB  register  is  complemented  to  direct  the  "T4RUPT"  routine  to 
change  the  displays. 

R1 , R2  and  R3  are  the  three  digital  display  registers,  with 
D5  the  least  significant  digit  and  D1  the  most  significant.  Each 
of  these  registers  has  an  associated  sign  bit,  indicated  below  by 
-RIS  or  +RiS . If  no  sign  is  to  be  indicated,  neither  sign  bit  is 
set . 

The  two-digit  (decimal)  "noun",  "verb"  and  "mode"  or  "program" 
registers  are  indicated  below  by  N,  V and  M respectively  and  again, 
D1  is  the  more  significant  of  the  two  digits. 

The  portion  of  the  display  that  is  controlled  by  each  DSPTAB 
register  is  indicated  below. 


Register 

Bit  11 

Bits  6-10 

Bits  1 

DSPTABj^q 

MDl 

MD2 

DSPTABg 

VDl 

VD2 

DSPTABg 

NDl 

ND2 

DSP TAB 7 

RlDl 

DSPTAB6 

+R1S 

R1D2 

R1D3 

DSPTAB5 

-RIS 

R1D4 

R1D5 

DSPTAB4 

+R2S 

R2D1 

R2D2 

DSPTAB3 

-R2S 

R2D3 

R2D4 

DSPTAB2 

R2D5 

R3D1 

DSPTAB^ 

+R3S 

R3D2 

R3D3 

DSPTABq 

-R3S 

R3D4 

R3D5 

DSPTAB^ 

See  INTR 

section. 

ENTRET: 

See  DATA  section. 

FAILREG. 

1 

(i=0,l,2): 

See  PGSR 

FREEDSKY: 

See  DATA 

section . 

IMODES30: 

See  IMUC 

section . 

ion. 
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IMODES33:  See  INTR  section. 


INREL:  Single  precision  index  to  indicate  whether  numerical  characters 

are  to  be  placed  into  the  verb  register,  the  noun  register  or  one  of 
the  five-digit  registers  R1 , R2  or  R3. 

K:DECROUND:  Double  precision  constant  stored  as  OOOOC^  0247^.  Equation 

value:  0.000005  at  a scaling  of  BO.  Used  to  round  a double  pre- 

cision AGO  quantity  to  five  decimal  digits  for  display. 

K:MD1:  Single  precision  constant  stored  as  21,  scaled  B14.  Used  to 
set  DSPCOUNT  to  indicate  that  the  next  numerical  character  received 
is  to  be  placed  into  the  most  significant  digit  position  of  the  mode 
register.  See  description  of  DSPTABq-DSPTAB^q. 

K:ND1:  Single  precision  constant  stored  as  17,  scaled  B14.  Used 

to  set  DSPCOUNT  to  indicate  that  the  next  numerical  character  re- 
ceived is  to  be  placed  into  the  most  significant  digit  position  of 
the  noun  register.  See  description  of  DSPTABq-DSPTAB . 

K:R1D1,  K:R2D1,  K:R3D1;  Single  precision  constants  stored  as  14,  9 
and  4.  Used  to  set  DSPCOUNT  to  indicate  that  the  next  numerical 
character  received  is  to  be  placed  into  the  most  significant  digit 
position  of  R1 , R2  or  R3 . See  description  of  DSPTABq-DSPTAB^q . 

K:RELTAB.  (i=0-10):  Set  of  twelve  single  precision  octal  constants 
stored  as  follows: 


i i 


0 

0402  5 

6 

34034 

1 

10003 

7 

40023 

2 

14031 

8 

44035 

3 

20033 

9 

50037 

4 

24017 

10 

54000 

5 

30036 

11 

60000 

K:VD1:  Single  precision  constant  stored  as  19,  scaled  B14.  Used  to 
set  DSPCOUNT  to  indicate  that  the  next  numerical  character  received 
is  to  be  placed  into  the  most  significant  digit  position  of  the  verb 
register.  See  description  of  DSPTABq-DSPTAB^q . 

K:VNDSPC0N:  Single  precision  constant  stored  as  00244g.  Equation 
value:  0.01.  Used  to  convert  decimal  verb,  noun  and  mode  numbers 

(stored  as  whole  numbers  scaled  B14)  into  fractions  in  preparation 
for  the  decimal  display  routine. 

MONSAVEl:  See  DATA  section. 

MPACq:  Multiple  precision  accumulator  associated  with  a particular 
job.  Used  in  "KEYRUPTl"  to  store  the  keycode  in  the  accumulator  of 
the  "CHARIN"  job. 
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NOITNREG:  See  DATA  section. 


NOUT:  See  INTR  section. 

RADMODES : See  RADR  section. 

REQRET:  Single  precision  storage  for  the  return  address  to  an  internal 
routine  that  has  requested  an  astronaut  input.  Used  also  as  a 
flag  to  avoid  the  processing  of  verb/noun  information  normally 
initiated  by  the  "enter"  keycode.  Set  equal  to  +0  to  indicate  that 
data  is  not  a response  to  an  internal  request  and  that  verb/noun 
information  should  be  processed.  Incremented  by  +3  to  step  backwards 
in  the  process  of  a multiple  register  load  (from  "REQDATY"  to 
"REQDATX"  for  example).  A "return  address"  is  always  a positive 
arithmetic  quantity. 

SAMPTIME : Double  precision  value  of  TIMENOW  at  the  time  of  astronaut 

entry  of  most  recent  keycode,  scaled  B28  in  units  of  centiseconds . 

SFAIL:  See  TEST  section. 

SGNOFF : Single  precision  index  designating  the  DSPTAB  register  whose 

bit  11  is  to  be  cleared  to  prevent  illumination  of  both  signs  together. 

SGNON : Single  precision  index  designating  the  DSPTAB  register  whose 
bit  11  is  to  be  set  to  illuminate  a plus  or  minus  sign  in  R1 , R2 
or  R3 . See  description  of  DSPTABq-DSPTABj^q. 

TIMENOW:  See  EXVB  section. 

VERBREG:  See  DATA  section. 

WDCNT:  Single  precision  index  scaled  B14  and  unitless. 

WDRET:  Single  precision  octal  return  address  storage. 


XREG,  XREGLP,  YREG,  YREGLP , ZREG,  ZREGLP : See  DATA  section 


Extended  Verbs 


GOEXTVB 


Proceed  to  routine  specified  by  the  contents  of  TSextfan 


TSextfan  Starting  address  of  routine  F\inction 


( verb ) 

0 

40 

VBZERO 

zero  IMU  CDU  or  Rendezvous  Radar  CDU 

1 

41 

VBCOARK 

coarse  align  (ICDU  or  RRCDU) 

2 

42 

IMUFINEK 

fine  align  iMU 

3 

43 

IMUATTCK 

load  IMU  attitude  error  needles 

4 

44 

RRDESEND 

terminate  continuous  designate 

5 

ALM/END 

not  defined 

6 

ALM/END 

not  defined 

7 

47 

V47TXACT 

AGS  initialization 

8 

48 

DAPDISP 

load  autopilot  data 

9 

49 

CREWMANU 

start  automatic  attitude  maneuver 

10 

50 

GOLOADLV 

please  perform 

11 

ALM/END 

not  defined 

12 

52 

GOLOADLV 

please  mark  X 

13 

53 

GOLOADLV 

please  mark  Y 

14 

54 

GOLOADLV 

please  mark  X or  Y 

15 

55 

ALINTIME 

align  time 

16 

56 

TRMTRACK 

terminate  tracking 

17 

57 

LRON 

permit  landing  radar  updates 

18 

58 

LROFF 

inhibit  landing  radar  updates 

19 

59 

LRP0S2K 

LR  to  position  2 

20 

60 

RATED ISP 

display  DAP  estimated  rates 

21 

61 

DAPATTER 

display  DAP  attitude  error 

22 

62 

TOTATTER 

display  total  attitude  error 

23 

63 

R04 

sample  radar  once/second 

24 

64 

VB64 

calculate  and  display  S-band  ant.  angles 

25 

65 

SNUFFOUT 

docked  U-V  control  disable 

26 

66 

ATTACHED 

attached 

27 

67 

V67 

W matrix  monitor 

28 

68 

ALM/END 

not  defined 

29 

69 

VERB69 

cause  restart 

30 

70 

V70UPDAT 

update  liftoff  time 

31 

71 

V71UPDAT 

universal  update  - block  address 

32 

72 

V72UPDAT 

universal  update  - single  address 

33 

73 

V73UPDAT 

update  AGO  time  (octal) 

34 

74 

DNEDUMP 

Initialize  downlink  for  erasable  d\imp 

35 

75 

OUTSNUFF 

remove  U-V  control  disable 

36 

76 

MIN IMP 

minimum  impulse  mode 

37 

77 

NOMINIMP 

rate  command  mode 

38 

78 

R77 

start  LR  spurious  return  test 

39 

79 

R77END 

terminate  LR  spurious  ret\irn  test 
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ALM/END 


TESTXACT 


TSextfan  Starting  address  of  routine  Function 
(verb) 


40 

80 

LEMVEC 

update  state  vector 

41 

81 

CSMVEC 

update  CSM  state  vector 

42 

82 

V82PERF 

request  orbit  param  display  (R30) 

43 

83 

V83PERF 

request  rend  param  display  (R3l) 

44 

ALM/END 

not  defined 

45 

85 

VERB85 

display  RR  LOS  azimuth  and  elevation 

46 

ALM/END 

not  defined 

47 

ALM/END 

not  defined 

48 

ALM/END 

not  defined 

49 

89 

V89PERF 

align  X or  Z IM  axis  along  LOS  (R63) 

50 

90 

V90PERF 

out  of  plane  rend  display 

51 

91 

GOSHOSUM 

display  bank  sum 

52 

92 

SYSTEST 

operate  IMU  performance  test 

53 

93 

WMATRXNG 

clear  RENDWFLG 

54 

AM/END 

not  defined 

55 

95 

UPDATOFF 

no  state  vector  update  allowed 

56 

96 

VERB96 

interrupt  integration  and  go  to  POOH 

57 

97 

GOLOADLV 

please  verify  engine  failure 

58 

ALM/END 

not  defined 

59 

99 

GOLOADLV 

please  enable  engine 

Switch  bit  7 of  channel  11  to  1 (operator  error) 


Proceed  to  "PINBRNCH" 

If  EXTVBACT>0,  proceed  to  "ALM/END" 

If  FLAGWRD4  bit  U (PRIODFLG),  12  (PDSPFLAG)  or  7 (PRONVFLG)  = 1: 
Proceed  to  "ALM/END" 

EXTVBACT  = 00025rt  (set  bits  1,  3,  and  5) 

O 

TSvn  = -2 

Perform  "NVSUB"  with  TSmonopt  = 00000- 

O 

Return 


EXVB 


2 


VBZERO 


If  NOUNREG  = 20  and  IMUCADR  = 0: 


(ICDU) 


( vb40 ) 


Perform  "IMUZERO" 

Perform  "IMUSTALL" 

Proceed  to  "PINBRNCH” 

If  NOUNREG  = 72:  (RRCDU) 

Perform  "RDRUSECK" 

Perform  ”RRZER0" 

Perform  "RADSTALL" 

Proceed  .to  "PINBRNCH" 

Proceed  to  "ALM/END"  (if  NOUNREG  20  or  72) 

VBCOARK  If  NOUNREG  = 20  and  IMUCADR  = 0:  (vb4l) 

Perform  "TESTXACT" 

Proceed  to  "GOXDSPF"  with  TS  = K:V25N22  (load  THETAD) 

(If  terminate,  proceed  to  "ENDEXT";  if  proceed,  continue 
at  next  step;  if  other  response,  continue  at  next  step.) 

Perform  "EXDSPRET"  with  TS  = K:V41N00  (coarse  align  verb) 

Perform  "IMUCOARS" 

Perform  "IMUSTALL" 

Proceed  to  "ENDEXT" 

If  NOUNREG  = 72: 

Perform  "RDRUSECK" 

Perform  "TESTXACT" 


Switch  RADMODES  bits  15  (CDESFLAG)  and  10  (DESIGFLG)  to  0 
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IMUFINEK 


Proceed  to  "GOXDSPF"  with  TS  = K:V2/!,1173  (load  TMGq 

(If  terminate,  proceed  to  "ENDEXT";  if  proceed,  repeat 
this  step;  If  other  response,  continue  at  next  step.) 

Ol’TIONX^  = 2 

OPTIONXq  = 6 

Perform  "GOXDSPFR"  with  TS  = K:V04N12  (OPTIONXq 

(if  terminate,  proceed  to  "ENDEXT";  if  proceed,  ’skip 
next  two  steps;  if  other  response,  repeat  this  step.) 

Perform  "BLANKET"  with  TS  = 00004g 

End  job 

If  bit  2 of  OPTIONX^  = 0:  (OPTIONX^  = 0,1, 4, 5,...) 

Switch  FLAGWRDO  bit  5 (LOKONSW)  to  1 
If  bit  2 of  OPTIONX^  = 1;  (OPTIONX^  = 2, 3,6, 7,...) 
Switch  FLAGWRDO  bit  5 ( LOKONSW ) to  0 
Switch  RADMODES  bit  15  (CONTDESG)  to  1 
Switch  FLAGWRD5  bit  4 (NORRMON)  to  1 
Release  interrupt  inhibit 
Perform  "EXDSPRET"  with  TS  = K:V41N00 

Establish  "RRDESK2"  (pr20) 

Proceed  to  "ENDEXT" 

Proceed  to  "ALM/END"  (NOUNREG  i-  20  or  72) 

If  IMUCADR  ^ 0,  proceed  to  "ALM/END"  (vb42) 

Perform  "TEXTXACT" 

Proceed  to  "GOXDSPF"  with  TS  = K:V25N93  (OGC,  IGC,  MGC) 

(if  terminate,  proceed  to  "ENDEXT";  if  proceed,  continue 
at  next  step;  if  other  response,  continue  at  next  step.) 

Perform  "EXDSPRET"  with  TS  = K:V42N00 

Perform  "IMDFINE" 

Perform  "IMUSTALL" 
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IMUATTCK 


RRDESK2 


RRDESEND 


If  ISSGOOD  = 0,  proceed  to  "ENDEXT" 

Perform  "IMUPULSE"  with  TS  address  of  (OGC,  IGC,  MGC)  . 

Perform  "IMUSTALL" 

Proceed  to  "ENDEXT" 

If  MODREG  i-  0,  proceed  to  "ALM/END"  (vb43) 

If  bit  4 or  5 of  channel  12  is  1,  proceed  to  "ALM/END" 

(not  allowed  if  in  coarse  align  or  zeroing  mode) 

If  bit  13  or  bit  14  of  channel  31  0,  proceed  to  "ALM/END" 

(DAP  is  on) 

Perform  "TESTXACT" 

Proved  to  "GOXDSPF"  with  TS  = K:V25N22  (load  THETAD) 

(If  terminate,  proceed  to  "ENDEXT";  if  proceed,  continue 
at  next  step;  if  other  response,  continue  at  next  step.) 

Perform  "EXDSPRET"  with  TS  = K:V43N00 

Switch  bit  6 of  channel  12  to  1 (Enable  ICDU  error  counters) 

Call  "ATTCK2"  in  0.02  second  (See  IMUC  section) 

Proceed  to  "ENDEXT" 

Perform  "RRDESNB"  (established  by  verb  41  routine) 

Perform  "RADSTALL" 

If  RADGOOD  = 0,  perform  "ALARM"  with  TS  = 00503g 
End  job 

If  RADMODES  bit  15  (CDESFLAG)  = 1:  (vb44) 

Inhibit  interrupts 

Switch  bits  15  (CDESFLAG)  and  10  (DESIGFLG)  of  RADMODES  to  0 
Switch  bit  2 of  channel  12  to  0 (disable  RR  error  counter) 
Delay  1 second 

Switch  FLAGWRD5  bit  4 (NORRMON ) to  0 
Proceed  to  "PINBRNCH" 
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V47TXACT 


DAPDISP 


CREWMAMU 


GOLOADLV 


ALINTIME 


TRMTRACK 


Perform  "TESTXACT"  (vb47) 
Establish  "AGSINIT"  (this  section)  (pr04) 
End  job 

Perform  "TESTXACT"  (vb48) 
Proceed  to  "DAPDATAl"  (DAPB  section)  (prOV) 
If  MODREG  i-  0,  proceed  to  "ALM/END"  (vb49) 
Perform  "TESTXACT" 

Establish  "R62DISP"  (ATTM  section)  (prlO) 


End  job 

Switch  bit  6 of  channel  11  to  0 (verb/noiin  flash)  (vb50,52, 

53,54. 

Proceed  to  "LOADLV"  (DINT  section)  97,99) 

Perform  "TESTXACT"  (vb55) 

(change  to  prOV) 

Proceed  to  "GOXDSPF"  with  TS  = K:V25N24  (DSPTEMX^  ) 

(If  terminate,  proceed  to  "ENDEXT";  if  proceed,  pFoceed 
to  "ENDEXT";  if  other  response,  continue  at  next  step.) 

If  TSverb  (MPAC^)  4 23,  proceed  to  "ENDEXT" 

Inhibit  interrupts 


MPAC^  = TIMENOW 
dp 


TIMENOW  = 0 


( exchange ) 


MPAC^  = MPAC^  + DSPTEMX^ 
dp  dp  dp 

Force  sign  agreement  in  the  two  halves  of  MPAC 


dp 


TIMENOW  = TIMENOW  + MPAC 


dp 


Release  interrupt  inhibit 
Proceed  to  "ENDEXT" 


If  FLAGWRDO  bits  7 (RNDVZFLG)  and  9 (P25FLAG)  both  = 0:  (vb56) 

Proceed  to  "PINBRNCH" 

Switch  FLAGWRDO  bits  7 (RNDVZFLG)  and  9 (P25FLAG)  to  0 
Switch  FLAGWRD2  bit  14  (SRCHOPTN)  to  0 
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LRON 


LROFF 


LRP0S2K 


RATED ISP 


DAPATTER 


TOTATTER 


R04 


If  FLAGWRDl  bit  5 (TRACKFLG)  = 0,  proceed  to  "PINBRNCH" 

Switch  FLAGWRDl  bits  5 (TRACKFLG)  and  7 (UPDATFLG)  to  0 
Switch  FUGWRDO  bit  8 (IMUSE)  to  0 
Perform  "INTSTALL" 

Clear  P20,  P25  restart  logic  and  inhibit  interrupts 
Perform  "STOPRATE" 

Perform  "RESTORDB" 

Switch  RADMODES  bits  10  (DESIGFLG)  and  15  (CDESFLAG)  to  0 

Switch  bits  14  and  2 of  channel  12  to  0 (disable  tracker  and 

RR  error  counter) 

Proceed  to  "G0PR0G2” 

Perform  "TESTXACT"  (vb57) 

Proceed  to  "DSP68"  (this  section) 

Switch  FLGWRDll  bit  8 (LRINH)  to  0 (vb58) 

Proceed  to  "PINBRNCH" 

Perform  "RDRUSECK"  (vb59) 

Perform  "LRP0S2"  (RADR  section) 

Perform  "RADSTALL" 

If  RADGOOD  = 0,  perform  "ALARM"  with  TS  = 005 23g 
Proceed  to  "PINBRNCH" 

Switch  FLAGWRDO  bit  15  (NEED2FLG)  to  1 (vb60) 

Proceed  to  "PINBRNCH" 

Switch  FLAGWRDO  bits  4 (NEEDLFLG)  and  15  (NEED2FLG)  to  0 (vb6l) 
Proceed  to  "PINBRNCH" 

Switch  FLAGWRDO  bits  4 (NEEDLFLG ) and  15  (NEED2FLG)  to  1 (vb62) 

Proceed  to  "PINBRNCH" 

Perform  "RDRUSECK"  (this  section)  (vb63) 

Perform  "TESTXACT" 
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Switch  FLAGWm)3  bit  9 (R04FLAG)  to  1 


Proceed  to  "R04Z" 

(RADR  section) 

YB6A 

Perform  "TESTIACT" 

(vb64) 

Establish  "SBANDANT" 

(this  section) 

(pr04) 

End  job 

SNUFFOUT 

Switch  FLAGWRD5  bit  13  (SNUFFER)  to  1 

(vb65) 

Proceed  to  "PINBRNCH'' 

ATTACHED 

If  FLAGWRD8  bit  8 (SURFFLAG)  = 1: 

(vb66) 

Proceed  to  "ALM/END" 

(this  section) 

Establish  "ATTACHIT" 

(this  section) 

(prlO) 

End  job 

V67 

Perform  ''TESTXACT" 

(vb67) 

Establish  "V67CALL" 

(RNAV  section) 

(pr05) 

End  job 

VERB69 

Cause  a hardware  restart 

( •‘.GOPROG" ) 

(vb69) 

V70UPDAT 

UPVERBSV  = 0 

(vb70) 

Skip  next  five  steps 

V71UPDAT 

UPVERBSV  = 1 

(vb7l) 

Skip  next  three  steps 

V72UPDAT 

UPVERBSV  = 2 

(vb72) 

Skip  next  step 

V73UPDAT 

UPVEBBSV  = 3 

(vb73) 

Perform  "TESTXACT" 
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If  MODREG  ^ 0: 


DNEDUMP 


OUTSNUFF 


MIN IMP 


NOMINIMP 


R77 


R77END 


LEMVEC 


Switch  bit  7 of  channel  11  to  1 (operator  error) 

Switch  bit  3 of  channel  11  to  0 (uplink  activity) 

Proceed  to  "ENDEXT" 

Proceed  to  "UPUPDATE"  (this  section) 

DNTMGOTO  = "DNDUMPI"  (vb74) 

Proceed  to  "PINBRNCH" 

Switch  FLAGWRD5  bit  13  (SNUFFER)  to  0 (vb75) 

Proceed  to  "PINBRNCH" 


Switch  DAPBOOLS  bit  15  (PULSES)  to  1 
Proceed  to  "PINBRNCH" 

Switch  DAPBOOLS  bit  15  (PULSES)  to  0 
Inhibit  interrupts 

Perform  "ZATTEROR"  (DAPA  section) 

Proceed  to  "PINBRNCH"  (releases  interrupt  inhibit) 

Perform  "RDRUSECK" 

If  FLAGWRD3  bit  9 (R04FLAG)  = 1,  proceed  to  "ALM/END" 
Switch  FLAGWRD5  bit  11  (R77FLAG)  to  1 
Proceed  to  "RO4Z"  (RADR  section) 

RSAMPDT  = 0 
Delay  0.32  second 

Switch  FLAGWRD5  bit  11  (R77FLAG)  to  0 
Proceed  to  "PINBRNCH" 

Switch  FLAGWRDl  bit  8 (VEHUPFLG)  to  0 
Skip  next  step 


(vb76) 

(vb77) 


(vb78) 


(vb79) 


( vb80 ) 
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CSMVEC 

Switch  FLAGWRDl  bit  8 (VEHUPFLG)  to  1 

Switch  FLAGWRDl  bit  6 (NOUPFLAG)  to  0 

Proceed  to  "PINBRNCH" 

(vb8l) 

V82PERF 

Perform  "TESTXACT" 

(vb82) 

Proceed  to  "V82CALL" 

(this  section) 

(pr07) 

V83PERF 

Perform  "TESTXACT" 

Call  "R31CALL"  in  0.02  seconds  (this  section) 

End  job 

(vb83) 

VERB85 

Perform  "TESTXACT" 

Proceed  to  "DSPRRLOS" 

(RNAV  section) 

(vb85) 

V89PERF 

If  MODREG  7^  0,  proceed  to 

Perform  "TESTXACT" 

"ALM/END" 

(vb89) 

Establish  "V89CALL" 

End  job 

(ATTM  section) 

(prlO) 

V90PERF 

Perform  "TEXTXACT" 

( vb90 ) 

Establish  "R36" 

End  job 

(this  section) 

( pr07 ) 

GOSHOSUM 

If  MODREG  ^ 0,  proceed  to 

Perform  "TESTXACT" 

Proceed  to  "SH0WSUM2" 

"ALM/END" 

(TEST  section) 

(vb9l) 

SYSTEST 

If  MODREG  ^ 0,  proceed  to 

Perform  "TEXTXACT" 

"ALM/END" 

(vb92) 

Establish  "REDO" 

End  job 

(TEST  section) 

(pr22) 

WMATRXNG 

Inhibit  interrupts 

Switch  FLAGWRD5  bit  1 (RENDWFLG)  to  0 

(vb93) 
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UPDATOFF 


VERB96 


Proceed  to  "PINBRNCH"  (releases  interrupt  inhibit) 

Switch  FLAGWRDl  bit  6 (NOUPFLAG)  to  1 
Proceed  to  "PINBRNCH" 

Switch  FLAGWRD9  bit  5 (QUITFLAG)  to  1 
MMNUMBER  = 0 

Proceed  to  "V37"  (PGSR  section) 


(vb95) 

( vb96 ) 
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AGSINIT  If  FLAGWRD3  bit  13  (REFSMFLG)  = 0: 


(vb47) 


AGSDISPK 


AGSVGALC 


Perform  "ALAM"  with  TS  = 00220g 
Proceed  to  "ENDEXT" 

DSPTEMX  = AGSK 

Proceed  to  "GOXDSPF"  with  TS  = K:V06Nl6  (DSPTEMX) 

(If  terminate,  proceed  to  "ENDEXT";  if  proceed,  proceed 
to  "AGSVGALC";  if  other  response,  continue  at  next  step.) 

If  TSverb  (MPACq)  = 32:  (recycle) 

AGSK  = SAMPTIME  (time  when  enter  button  pushed) 

If  TSverb  i 32,  AGSK  = DSPTEMX^ 

DSPTEMX  = AGSK 

Proceed  to  "AGSDISPK" 

Switch  FLAGWRD2  bit  1 (NODOFLAG)  to  1 

Switch  FLAGWRDA  bit  1 (XDSPFLAG)  to  1 

Perform  "EXDSPRET"  with  TS  = K:V06N16 

TDECl  = TIMENOW 

Perform  "LEMPREC" 

TSv  = [REFSMMA!0  VATT  K:VSCALE  rescaled  to  B15  or  B13  feet  per 
second  rounded  off  to  single  precision  and  converted  to  2's  complement 

TSr  = [REFSMMATI  MTT  K:RSCALE  rescaled  to  B25  or  B23  feet,  rounded 
off  to  single  precision  and  converted  to  2's  complement  form 

AGSBUFF„  = TSr 

0 X 

AGSBUFF,  = TSv 

1 X 

AGSBUFF^  = TSr 

2 y 

AGSBUFF,  = TSv 

3 y 

AGSBUFF,  = TSr 

4 z 

AGSBUFF^  = TSv 

5 z 
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TDECl  = TAT 


Perform  "CSMPREC" 

TSv  = {REFSMMAT]  VATT  K:VSCALE  rescaled  to  B15  or  B13  feet  per 
second,  rounded  off  to  single  precision  and  converted  to  2's 
complement 

TSr  = ^FSMMA'Q  MTT  K:RSCALE  rescaled  to  B25  or  B23  feet,  rounded 
off  to  single  precision  and  converted  to  2's  complement  form 

AGSBUFF.  = TSr 

6 X 

AGSBUFF^  = TSv 

7 X 

AGSBUFF^  = TSr 

8 7 

AGSBUFF^  = TSv 

9 7 

AGSBUFF,  = TSr 

10  2 

AGSBUFF^  = TSv 
11  2 

TSt  = (TAT  - AGSK)/K;TSCALE 


AGSBUFF^2  ~ most  significant  half  of  TSt 
AGSBUFF^^  “ least  significant  half  of  TSt 
DNLSTCOD  = 1 


Delay  20  seconds  (for  downlink  of  AGS  downlist) 

DNLSTCOD  = AGSWORD  (restore  downlist) 

If  FLAGWRDO  bit  8 (IMUSE)  = 0: 

If  IMUCADR  +0,  delay  0.1  second,  then  repeat  this  step 
Perform  "IMUZERO" 


Perform  "IMUSTALL" 

Switch  FLAGWRD2  bit  1 (NODOFLAG)  to  0 

Proceed  to  "G0MARK3"  with  TS  = K:V50N16  (DSPTEMX) 

(If  terminate,  proceed  to  "ENDEXT"}  if  proceed,  proceed 
to  "ENDEXT";  if  other  response,  proceed  to  "ENDEXT".) 
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UFUPDATE  UPOLDMOD  = MODREG 


(verbs  70-73) 


OHWELLl 


0HMELL2 


UPVERB  = UPVERBSV 
UPCOUNT  = 1 
DNLSTCOD  = 1 
MODREG  = 27 

Establish  "DSPMMJOB"  (pr30) 

If  UPVERB  = 1 or  2,  proceed  to  "OHWELLl"  . (get  # of  components) 
COMPNUMB  = 2 

Proceed  to  "0HWELL2"  (verbs  70  and  73  have  only  2 components) 

MPAC^  = "UPBUFFq"  (address  of  UPBUFF^) 

Proceed  to  "GOXDSPF"  with  TS  = K:V21N01 

(if  terminate,  proceed  to  "UP0UT4";  if  proceed,  repeat  this 
step;  if  other  response,  continue  at  next  step.) 

If  TSverb  (MPACq)  = 32,  repeat  previous  step  (recycle) 

If  UPBUFFq  < 3,  proceed  to  second  line  of  "OHWELLl" 

If  UPBUFFq  > 20,  proceed  to  second  line  of  "OHWELLl" 

COMPNUMB  = UPBUFFq 

UPCOUNT  = UPCOUNT  + 1 

i = UPCOUNT  - 1 

MPAC^  = "UPBUFF^"  (address  of) 

Proceed  to  "GOXDSPF"  with  TS  = K;V21N01 

(If  terminate,  proceed  to  "UP0UT4";  if  proceed,  repeat  this 
step;  if  other  response,  continue  at  next  step.) 

If  TSverb  (MPACq)  = 32,  repeat  previous  step  (recycle) 

If  UPCOUNT  ^ COMPNUMB,  proceed  to  "UPVERIFY" 

UPCOUNT  = UPCOUNT  + 1 

Proceed  to  "0HWELL2" 
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UPVERIFI 


UPSTORE 


UPEND73 


TIMEDIDL 


MPAC^  = "UPTEMP" 

Proceed  to  "GOXDSPF"  with  TS  = K:V21N02 

(if  terminate,  proceed  to  "IIP0UT4";  if  proceed,  proceed 
to  "UPSTORE”;  if  other  response,  continue  at  next  step.) 

If  TSverb  (MPACq)  = 32,  repeat  previous  step  (recycle) 

If  UPTEMP  ^0,  proceed  to  "UPVERIFY" 

If  UPTEMP  > CQMPNUMB,  proceed  to  "UPVERIFY" 

i = UPTEMP  - 1 

Proceed  to  second  step  of  "0HWEIiL2" 

Inhibit  interrupts 

Invert  bit  3 of  FLAGWRD7  (VERIFLAG) 

If  UFVERB  > 2,  proceed  to  "UPEND73" 

Establish  "UP JOB"  (pr30) 

End  job 

UPBUFFg  g = UPBUFFq  ^ 

Perform  "TIMEDIDL" 

Switch  bit  7 of  channel  11  to  1 (operator  error) 

Proceed  to  "UP0UT4" 

UPBUFF  . = TIMENOW 

’ (exchange) 

TIMENOW  = 0 

MPAC^  = UPBUFF.  _ 

dp  8,9 

UPBUFFg  0=0 

o,y 

MPAC,  = MPAC,  + UPBUFFg- 

dp  dp  18 , 19 

If  overflow  (ImPAC  1^2^): 

dp 

TIMENOW  = TIMENOW  + UPBUFF^g 
^^"^^18, 19  = ° 
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(If  overflow) 


UPJOB 


Return  to  caller  + one  line  (indicating  an  error  return) 
Force  sign  agreement  between  components  of  MPAC^p 


TIMENOW  = TIMENOW  + MPAC^ 

dp 

Return  to  caller  + two  lines  (indicating  a non-error  return) 


Perform  "TNTSTALL" 

Switch  FLGWRDIO  bit  7 (REINTFLG)  to  1 


UPEND70 


If  UPVERB  — 0,  proceed  to  ”UPEND70" 
If  UPVERB  = 1,  proceed  to  "UPEND71’' 
If  UPVERB  = 2,  proceed  to  "UPEND72" 
UPBUFF^  ^ = -UPBUFF^  , 


Perform  "TIKEDIDL" 

Switch  bit  7 of  channel  11  to  1 and  skip  next  fouf  lines  (error 

retui'n ) 


TETCSM  = TETCSM  - UPBUFF„ 

U , 1 

TETLEM  = TETLEM  - UPBUFF 

u,± 

UPBUFF^  = 0 for  i = 10  through  13 

TEPHEM  = TEPHEM  + UPBUFFq  ^ (UPBUFF^  ^ zeroed  in  process) 


Perform  "INTWAKEU" 
Proceed  to  ’'UP0UT4" 


UPSND71  E3ANK  = bits  11-9  of  UPBUFF^ 

UPTEMP  = low  8 bits  of  UPBUFF^ 
i = COMPNUMB  - 3 

If  UPTEMP  + i ^ 00400g,  proceed  to  "UPERROUT"  (block  of  addresses 

extends  'y'eyond  end 

^j+UPTKMP  “ J = 0 through  i of  EBANK) 

Perform  "INTWAKEU" 
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Proceed  to  "TJP0UT4" 


UPEND72 


UPOUTA 


UPERROUT 


V82CALL 


V82G0FLP 


If  COMPNUMB  is  an  even  nimiber,  proceed  to  "UPERROUT" 

Perform  indented  steps  for  i = 1,3,5,..-  through  COMPNUMB  - 2 

EBANK  = bits  11-9  of  UPBUEF^ 

TSadr  = low  8 bits  of  UPBUFF. 

1 

^Sadr  ~ UPBUFF^^^  (load  specified  address  with  given  data) 
(end  of  "indented  steps") 

Perform  "INTWAKEU" 

MODREG  = UPOLDMOD 

Establish  "DSPMMJOB"  (pr30) 

DNLSTCOD  = 0 

Switch  bit  3 of  channel  11  to  0 (uplink  activity  lamp) 

Proceed  to  "ENDEXT" 

Switch  bit  7 of  channel  11  to  1 (operator  error) 

Perform  "INTWAKEU" 

Proceed  to  "UP0UT4" 

If  FLAGWRD7  bit  5 (AVEGFLAG)  = 1,  proceed  to  "V82G0N" 

OPTIONXq  = 2 
OPTIONX^  = 1 

Proceed  to  "GOXDSPF"  with  TS  = K:V04N12 

(if  terminate,  proceed  to  "ENDEXT";  if  proceed,  continue 
at  next  step;  if  other  response,  repeat  this  step.) 

Call  "TICKTEST"  in  0.08  second 

V82FLAGS  = OOOOOg 

Establish  "V82G0FF1"  (pr07) 

If  bits  1 and  2 of  V82FLAGS  both  = 0,  delay  one  second  and  then 
try  this  test  again  (i.e.  delay  until  either  is  set  to  one) 
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Proceed  to  "GOXDSPF"  with  TS  = K:V16N44  (HAPOX,  HPERX,  TFP) 
(if  terminate,  switch  bit  5 of  EXTVBACT  to  0 and  end  job; 
if  proceed,  switch  bit  5 of  EXTVBACT  to  0 and  end  job; 
if  other  response,  proceed  to  '’V82G0FLP" . ) 

V32G0FF1  TDECl  = TIMENOW 

TSTART82  = TDECl 

If  OPTIONX^  1,  perform  "CSMPREC" 

If  OPTIONX^  = 1,  perform  "LEMPREC" 

RONE  = RATT 
VONE  = VATT 
If  PBODY  = 0: 

TFFdRTMU  = KrldRTMUE 

HPERMIN  = K:MINPERE 

Switch  FLAGWRD7  bit  2 (V82EMFLG)  to  0 

TS  = K:RPAD 

Proceed  to  "BOTHPAD" 

If  PBODY  = 2: 

TFFdRTMU  = KildRTMUM 
HPERMIN  = K:MINPERM 
TS  = |RLS| 

Switch  FLAGWRD7  bit  2 (V82EMFLG)  to  1 
BOTHPAD  RPADTEM  = TS 

Perform  "SR30.1"  (get  HAPOX,  HPERX,  TFF,  mTPER) 

TSTART82  =■  TIMENOW  - TSTART82 
If  mTPER  i-  0: 

mTPER  = TSTART82  + mTPER 
Set  V82FLAGS  to  OOOOlg 
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(If  mTPER  i-  0) 

End  job 

TFF  = TFF  + TST1RT82 
Set  V82FLAGS  to  00002g 
End  job 

TICKTEST  If  bit  5 of  EXTVBACT  = 0; 

Establish  "ENDEXT"  (pr25) 

End  task 

Call  "TICKTEST"  in  1 second 
If  bit  1 of  V82FLAGS  = 1: 

mTPER  = mTPER.  + K:1SEC 
If  bit  2 of  V82FLAGS  = 1: 

TFF  = TFF  + K:1SEC 
End  task 

V82G0N  Establish  "V82G0N1"  (prOV) 

If  NEW JOB  > 0,  perform  "CHANGl" 

Proceed  to  "GOXDSPF"  with  TS  = K:V16N44  (HAPOX,  HPERX,  TFF) 
(if  terminate,  continue  at  next  step;  if  proceed,  continue 
at  next  step;  if  other  response,  repeat  this  step.) 

Switch  bit  5 of  EXTVBACT  to  0 

End  job 

V82G0N1  RONE  = p 

(loaded  so  as  to  prevent  update  of  state  vector 
VONE  = VN  between  storage  of  R and  V) 

If  FLAGWRD8  bit  11  (IMOONFLG)  = 1;  (moon) 

Switch  FLAGWRD7  bit  2 (V82EMFLG)  to  1 

TFFdRTMU  = K-.ldRTMtlM 
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HPERMIN  = KiMINPERM 
TS  = iRLSl 

Proceed  to  "V82G0N2" 

If  FLAGWRD8  bit  11  (IMOONFLG)  = 0:  (earth) 

Switch  FLAGWRD7  bit  2 (V82EMFLG)  to  0 
TFFdRTMU  = Krl.mTMUE 
HPERMIN  = K:MINPERE 
TS  = K:RPAD 
V82G0N2  RPADTEM  = TS 

Perform  "SR30.1" 

If  bit  5 of  EXTVBACT  = 0,  proceed  to  "ENDE2T" 
Delay  1 second 
Proceed  to  "V82G0N1" 

SR30.1  If  FLAGWRD7  bit  2 (V82EMFLG)  = 1:  (moon) 

RONE  = RONE,  shifted  left  2 places  (B27) 

VONE  = TONE,  shifted  left  2 places  (B5) 

RMAGl  = I RONE  I 
VONEPR  = TFFdRTMU  TONE 
TFFNP  = I (RMAGl  VONEPR)  » unitRONEl  ^ 

TFFVSQ  = -lyONEPR)^ 

TFFALFA  = 2 / RliAGl  + TFFVSQ 
TFFRTALF  =v1tFFALmP 
TS  = TFFRTALF^  signTFFALFA 
If  TS  = 0; 

TFFldALF  = 0 
Skip  next  line 
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TFFldALF  = 1 / TS 
TS  =y/l  - TFFALFA  TFFNPj 
RPER  = TFFNP  / (1  + TS) 

TSl  = (1  + TS)  TFFldALF 
If  TSl > 0: 

If  |tS1|  ^ Ktposmaxdp 
RAPO  = TSl 
Skip  next  line 
RAPO  = K:posii;axdp 
TS  = RAPO  - RPADTEM 

If  FLAGWRD7  bit  2 (V82EMFLG)  = 1:  (moon  centered) 

TS  = TS,  shifted  right  2 places 
HAPOX  = TS  (limited  to<K:MAXM) 

TS  = RPER  - RPADTEM 

If  FLAGWRD7  bit  2 (V82EMFLG)  = 1: 

TS  = TS,  shifted  right  2 places 
HPERX  = TS  (limited  to K:MAXNM) 

If  HPERX  < HPERMIN,  mTPER  = +0 
If  HPERX  > HPERMIN; 

TSr  = RPER 
Perform  "CALCTPER" 
mTPER  = - TSt 
TSr  = HPERMIN  + RPADTEM 
Perform  "CALCTFF" 

TFF  = -TSt 
Retirrn 
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CALCTPER  Switch  FLAGWRD7  bit  1 (TFFSW)  to  1 


CALCTFF 


Skip  next  step 

Switch  FLAGWRD7  bit  1 (TFFSW)  to  0 
RTEEM  = TSr 


TSqsq  = (2  - RTERM  TFFALFA)  RTERM  - TFFNP 
If  FLAGWRD7  bit  1 (TFFSW)  = 1,  TSqsq  = 0 
If  TSqsq  < 0:  (trajectory  does  not  cross  RTERM) 

TSt  = K:posinaxdp 


Return 


QTERM  = y TSqsq 


TFFQl  - VONEPR  * RONE,  shifted  left  3 places 
If  TFFQl >0:  (outbound) 

TSn\am  = - QTERM  - TFFQl 
TSden  = 2 - RTERM  TFFALFA  - TFFALFA  RMAGl 
If  iTSdenl  ^ 2"^^,  TSden  = 0 
If  TFFQl  < 0:  (inbound) 

TSnum  = RTERM  — RMAGl 

TSden  = - QTERM  + TFFQl 

If  |TSden|  2“^or  , TSden  = 0 (2"^ 


(meters^) 

(unitless) 


(meters) 

(meters^) 

_7 

earth,  2 moon 


If  TSden  = 0: 


If  TFFALFA^  0: 


TSt  = 0 


Return 
TSldz  = 0 

Proceed  to  "TFFELl" 

If  j TSnum  TFFRTALF  / TSden  j ^ 1: 


EXVB  - 22 


TSldz  = TSden/TSnum 

Proceed  to  "TFFELl" 

TSz  = TSmun/TSden 
2 

TFFTEM  = TSz  TFFNP  signTSz  (used  only  in  GSM) 

TFFX  =:  TSz^  TFFALFA 

TSpoly  = KrTFFO  + K:TFF1  TFFX  + K:TFF2  TFFX^  + ...  + KrTFF5  TFFX^ 
TStrtmu  = TSz  (RTERM  - 2TSz^  TSpoly  + RMAGl) 

If  TStrtmu^ 0,  proceed  to  "ENDTFF" 

If  TStrtmu  signTFFQl^O,  proceed  to  "ENDTFF" 

If  TFFldALF-<0,  proceed  to  "ENDTFF" 

TStrtmu  = TStrtmu  + TFFldALF  KrPIdl6  / TFFRTALF 
Proceed  to  "ENDTFF' 

TFFELl  TFFDELQ  = -QTERM  - TFFQl 
TFFX  = TSldz^  TFFldALF 

If  |TFFX|>1,  TFFX  = K:posmaxdp  sign  TFFX 

TSpoly  = K:TFF0  + K:TFF1  TFFX  + K:TFF2  TFFX^  + ...  + K:TFF5  TFFX^ 
TS  = TSldz  TFFldALF  (TFFX  TSpoly  - l) 

TFFTEM  = TFFNP  TFFldALF  sign( TSldz  RMAGl  + TFFQl)  (GSM  only) 
TStrtmu  = TFFldALF  (2TS  + i /rFFldALF  K:PIdl6  - TFFDELQ) 

ENDTFF  TSt  = TStrtmu  TFFdRTMU 

If  overflow,  TSt  = K'.posmaxdp 
Return 

R31GALL  Establish  "V83GALL"  (pr03) 

Delay  1 second 

If  bit  12  EXTVBAGT  =0,  proceed  to  second  line  of  "R31GALL" 
Establish  "DISPN5X"  (pr05) 

End  Task 
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DISFN5X 


Proceed  to  "GOXDSPF"  with  TS  = K:V16N54  (RANGE,  RRATE,  RTHETA) 
(If  terminate  or  proceed,  set  bit  5 of  EXTVBAGT  = 0;  if 
other  response,  repeat  this  step.) 

End  job 

V83CALL  If  FLAGWRD7  bit  5 (AVEGFLAG)  = 1: 

If  FLAGWRD6  bit  8 (MONFLAG)  = I,  proceed  to  "GETRVN" 

Proceed  to  "DOCMBASE"  with  TS6  = TIMENOW 

If  FLAGWRD8  bit  8 (SURFFLAG)  = 1,  proceed  to  "DOCMBASE"  with 
TS6  = TIMENOW 

TDECl  = TIMENOW 

Perform  "LEMPREC" 

MSETHP  = p.TT 

MSETHV  = VATT 

TS6  = TAT 

DOCMBASE  BASETIME  = TS6 
TDECl  = TS6 
Perform  "CSMPREC" 

MSEOTP  = RATT  (scaled  B29  or  B27) 

BASEOTV  = VATT  (scaled  B7  or  B5) 

REV83  If  FLAGWRD7  bit  5 (AVEGFLG)  = 1,  proceed  to  "GETRVN" 

If  FLAGWRD8  bit  8 (SURFFLAG)  = 1: 

TDECl  = TIMENOW 
Perform  "LEMPREC" 

Proceed  to  "OTHCONIC" 

TDECl  = TIMENOW 
Perform  "INTSTALL" 

Switch  FLAGWRDO  bit  12  (MOONFLAG)  to  0 
RCV  = MSETHP 
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VCV  = MSETHV 

If  FIAGWRD8  bit  11  (LMOONFLG)  = 1: 

Switch  FIAGWRDO  bit  12  (MOONFIAG)  to  1 
Switch  FIAGWRD3  bit  4 (INTYPFLG)  to  1 
TET  = MSETIME 
Perform  "INTEGRVS" 

OTHCONIC  RONE  = RATT 
TONE  = VATT 
Perform  "INTSTALL" 

Switch  FIAGWRD3  bit  4 (INTYPFLG)  to  1 
TS  = TAT 

OTHINT  TDECl  = TS 

Switch  FIAGWRDO  bit  12  (MOONFIAG)  to  0 
RCV  = MSEOTP 
VCV  = MSEOTV 

If  FIAGWRD8  bit  11  (LMOONFLG)  = 1: 

Switch  FIAGWRDO  bit  12  (MOONFIAG)  to  1 
TET  = BASETIME 
Perform  "INTEGRVS" 

COMPDISP  RANGE  = (MTT  - RONE| 

RRATE  = unit(MTT  - RONE)  . (VATT  - TONE) 
Perform  "CDUTRIG" 

Perform  "NBTOSM" 

ZNBrf  = {rEFSMMA.^  ^ |nBSMMA^  K:UNITZ 

TSp  = unit (ZNBrf  - ( ZNBrf  • uni tRONE ) unitRONE) 

TSu  ==  ((unitRONE  * TONE)  * unitRONE)  • TSp 
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RTHETA  = arccos(TSp  • ZNBrf  signTSu) 

If  unitRONE  • ZNBrf  <0,  RTHETA  = 1 - RTHETA 
If  bit  5 of  EXTVBACT  = 0,  proceed  to  "ENDEXT" 
Set  bit  12  of  EXTVBACT  to  1 
Proceed  to  "REV83" 

GETRVN  RONE  = M 
TONE  = W 
TSl  = VCSM 


(change  to  pr22) 


R36 


TS2  = RCSM 
TS  = PIPTIME 

If  FLAGWRD6  bit  8 (MUNFLAG)  = 0: 
Perform  "INTSTALL" 


(change  to  pr03) 


Switch  FLAGWRD3  bit  4 (INTYPFLG)  to  0 


Proceed  to  "OTHINT" 
RATT  = TS2  [rEFSMMAtJ 
VATT  = TSl  [REFSMMAf/ 
Proceed  to  "COMPDISP" 


(note  that  MTT  and  VATT  are 
equivalent  to  locations  OD 
and  6D,  respectively,  of  the 
pushdown  list) 


DSPTEMX,  = 0 (vb90) 

dp 

Proceed  to  "GOXDSPF"  with  TS  = K:V06Nl6  (DSPTEMX) 

(If  terminate,  proceed  to  "ENDEXT";  if  proceed,  continue 
at  next  step;  if  other  response,  repeat  this  step.) 


TDECl  = DSPTEMX 


If  DSPTEMX  = 0,  TDECl  = TIMENOW 
Perform  "CSMPREC" 

RPASS36  = MTT 

PP36  = unit  (VATT  * unitRATT) 

TDECl  = TAT 

Perform  "lEMPREC" 

TSlos  = RPASS36  - ^TT 
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RAN($  = EATT  • UNP36 
RRATE  = VATT  • pP36 

TSuf  = unit (( uni tMTT  * pTT)  * unitMTT) 

If  overflow,  TSuf  = unit(l,  TSuf  , TSuf  ) 

y ^ 

TSuilos  = unit(TSlos  - (unit^TT  • TSlos)  unitMTT 
If  overflow,  TSulos  = unit(l,  TSulos^,  TSulos^) 

RTHETA  = arcop ( TSulos  o TS^if ) 

If  (TSulos  * TSuf  * MTT)  < 0,  PSI  = 1 - PSI 
DSPTEMX  = TAT 

Proceed  to  "GOXDSPF"  with  TS  = K:V06N90  (RANGE,  RRATE,  RTHETA) 

(If  terminate,  proceed  to  "ENDEXT";  if  proceed,  proceed  to 
"ENDEXT";  if  other  response,  proceed  to  second  step  of  "R36".) 

SBANDANT  TDEGl  = TIMENOW 

Perform  "LEMCONIG" 

If  PBODY  = 0:  (means  earth) 

TS  = MTT 

Skip  next  three  lines 
TSt  = TAT 
Perform  "LSPOS" 

TS  = (K:REMDIST  VMOON)  + MTT 
TS  = -unitTS 
Perform  "CDUTRIG" 

TS  = [REFSMMAfJ  TS  (transform  to  stable  member) 

PITGHANGj  = fO 
dp 

YAWANG , = +0 

dp 

Perform  "SMTONB" 
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SBANDEX 


ATTAGHIT 


ROl  = (SMNBMAfl  TS 
RLMTEMP  = ^ 


RLMYTEMP  = RLM 

y 

RLM  = (RLM  - RLM  ) K:10VSQRT2 

y y ^ 

RLM  = (RLMYTEMP  + RLM  ) K:10VSQRT2 

X X 

TS2  = - (p^.  KiUWITY)  KrUNITY 

TS2  = unitTS2;  if  overflow,  proceed  to  "SBANDEX" 

PH  = -(TS2  * K:UNITZ) 


TS  = PiM  • K:  UNITY 

PITCHANG  = arcsin(slgnTS  IPjM)  ) 

TSl  = TS2  • KtUNITZ 

If  TSKO: 


PITCHANG  = 0.5  - PITCHANG 


RLM  = unitPiMTEMP  * TS2 

TS  = (K: UNITY  cosPITCHANG)  - (K;UNITZ  sinPITCHANG) 


TS  = TS  * PM 


YAWANG  = arcsin(signTS  |pM|) 


If  bit  5 of  EXTVBACT  = 0,  proceed  to  "ENDEXT" 

(change  to  pr05) 

Perform  "GOXDSPFR"  with  TS  = K:V06N51  (PITCHANG,  YAWANG) 

(If  terminate  or  proceed,  set  bit  5 of  EXTVBACT  = 0 and  end 
job;  if  other  response,  end  job.) 


TS  = 100^ 


(change  to  pr04) 


perform  "BLANKET" 


Proceed  to  "SBANDANT" 

Perform  "INTSTALL" 

Switch  FLAGWRD8  bit  12  (CMOONFLG)  to  1 
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RDRUSECK 


If  FLAGWRD8  bit  11  (LMOONIIG)  = 0: 

Switch  FLAGWRD8  bit  12  (CMOONFLG)  to  0 
Inhibit  interrupts 
XKEPCSM  = XKEPLEM 
TCCSM  = TCLEM 
VCVCSM  = VCVLEM 
RCVCSM  = RCVLEM 
mJVCSM  = pVLEM 
DELTACSM  = mTALEM 
TETCSM  = TETLEM 
PECTCSM  = VpiCTLEM 
R^CTCSM  = RRECTLEM 
Release  interrupt  inhibit 

If  FLAGWRD8  bit  8 (SURFFLAG)  = 1,  proceed  to  "USEPIOS" 
Perform  "MOVEPLEM" 

Set  FLAGWRDO  bit  12  (MOONFLAG)  = FLAGWRD8  bit  11  (LMOONFLG) 
PBODY  = 0 

If  FLAGWRDO  bit  12  (MOONFLAG)  = 1,  PBODY  = 2 
Perform  "SVDWNl"  (scaling  controled  by  PBODY) 

QPRET  = "PINBRNCH" 

Proceed  to  "INTWAKE" 

If  FLAGWRD3  bit  11  (N0R29FLG)  = 0,  proceed  to  "ALM/END" 

If  FLAGWRD5  bit  11  (R77FLAG)  = 1,  proceed  to  "ALM/END" 

If  FLAGWRD7  bit  6 (V37FLAG)  = 0,  skip  next  line 
If  FLGWRDll  bit  15  (LRBYPASS)  = 0,  proceed  to  "ALM/END" 
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If  FUGWRDl  bit  5 (TRACKFLG)  = 0,  return 
Proceed  to  "ALM/END” 

DSP68  Perform  "GOXDSPFR"  with  TS  = K:V06N68  (RRANGEDSP,  TTFDISP,  DELTAH) 
(if  terminate,  set  bits  5 and  1 of  EXTVBACT  = 0 and  end  job; 
if  proceed,  proceed  to  "SET57";  if  other  response,  end  job.) 

WAIT68  Delay  two  seconds 

If  bit  5 and  bit  1 of  EXTVBACT  = 0,  proceed  to  "ENDEXT" 

If  bit  5 of  EXTVBACT  = 1,  proceed  to  "DSPbB" 

Perform  ''G0MARK3R''  with  TS  = K:V50N68  (RRANGEDSP,  TTFDISP,  DELTAH) 
(If  terminate  or  proceed,  set  bits  5 and  1 of  EXTVBACT  = 0 
and  end  job;  if  other  response,  proceed  to  ''RESET57".) 

(TS  is  formed  by  adding  13000g  to  K:V06N68) 

Proceed  to  ''WAITbS" 

SET57  Switch  FLGWRDll  bit  8 (LRINH)  to  1 
Set  bit  5 of  EXTVBACT  = 0 
End  job 

RESET 57  Switch  FLGWRDll  bit  8 (LRINH)  to  0 

EXTVBACT  = 00025g 
End  job 
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Quantities  in  Computations 


AGSBUFF 


0,2,4* 


Single  precision  X,  Y and  Z components  of  the  LM  position 


vector,  scaled  B25  (earth)  and  B23  (moon)  in  units  of  feet  and  in 
stable  member  coordinates. 


AGSBUFF-,  „ Single  precision  X,  Y and  Z components  of  the  LM  velocity 

vector,  scaled  B13  (moon)  or  B15  (earth)  in  units  of  feet/second  and  in 
stable  member  coordinates. 


AGSBUFF 


6,8,10- 


Single  precision  X,  Y and  Z components  of  the  GSM  position 


vector,  scaled  B25  (earth)  or  B23  (moon)  in  units  of  feet  and  in  stable 
member  coordinates. 


AGSBUFF-  amt  Single  precision  X,  Y and  Z components  of  the  GSM  velocity 

f yy  9 -L-L 

vector,  scaled  B15  (earth)  or  B13  (moon)  in  units  of  feet/second  and  in 
stable  member  coordinates. 

AGSBUFF^2  Double  precision  difference  between  the  timetag  of  the 

state  vectors  in  AGSBUFFq_^^  and  the  time  stored  in  AGSK,  scaled  B18 
in  units  of  seconds. 

AGSK:  Double  precision  time  of  AGS  initialization,  scaled  B28  in  units 
of  centiseconds. 

AGSWORD:  Single  precision  storage  for  the  value  of  DNLSTGOD  when  a list 
is  temporarily  interrupted  to  change  to  another  list. 

B^ASEOTP,  BASEOTV:  Double  precision  vector  storage  for  position  and  velocity 
of  the  GSM  at  BASETIME,  scaled  B29  (earth)  or  B27  (moon)  for  position; 

B7  (earth)  or  B5  (moon)  for  velocity.  Position  is  in  units  of  meters, 
and  velocity  is  in  units  of  meters/centisecond. 

B^ASETHP,  BASETHV:  Double  precision  vector  storage  for  position  and  velocity 
of  the  LM  at  BASETIME,  scaled  B29  (earth)  or  B27  (moon)  for  position  in 
units  of  meters;  B7  (earth)  or  B5  (moon)  for  velocity  in  units  of  meters 
per  centi second. 

BASETIME:  Double  precision  reference  time  for  verb  83  routines,  scaled 
B28  in  vmits  of  centiseconds. 

GOMPNUMB:  Single  precision  number  of  components  (each  single  precision 
octal)  in  a program  27  update,  scaled  B14  and  unitless. 

DAPBOOLS:  See  DAPA  section. 


DELTAGSM,  DELTALEM:  See  ORBI  section. 
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DNLSTCOD:  See  TELE  section. 


DSPTEM2,  DSPTEMX:  See  DATA  section. 

^ADR*  precision  erasable  memory  cell  whose  address  is  in  ADR. 

EBANK:  See  MATX  section. 

EXTVBACT:  Single  precision  flagword  indicating  when  extended  verbs  are 
in  action. 

HAPOX,  HPERX:  Double  precision  heights  above  the  earth  or  moon  at  apogee 
and  perigee,  scaled  B29  in  units  of  meters;  displayed  by  N44. 

HPERMIN:  Double  precision  minimum  perigee  altitude,  scaled  B29  (earth)  or 
B27  (moon)  in  units  of  meters;  used  to  define  the  entry  interface 
altitude • 

IMUCADR,  ISSGOOD:  See  IMUC  section. 

KildRTMUE:  Double  precision  constant,  program  notation  l/RTMUE  , scale 
factor  B-17,  value  0.50087529  E-5  x 2 . Corresponding  to  the  re- 

ciprocal of  root  of  unmodified  earth y(<. 

K;ldRTMIIM:  Double  precision  constant,  program  notation  l/RTMUM  , scale 
factor  B-14,  value  0.45162595  E-4  x 2"^^.  Corresponding  to  the  re- 
ciprocal of  root  of  moony^. 

K:10VSQRT2:  Double  precision  constant  stored  as  0.7071067815,  corr- 
esponding to  1//27  Eqimtion  value:  0.7071067815. 

K:1SEC:  Single  precision  constant  stored  as  100  x 2~^^,  scaled  B14  in 
units  of  centiseconds.  Equation  value:  100. 

K:MAXNM:  Double  precision  constant  stored  as  01065g  05603rtj  scaled  B29 
in  units  of  meters.  Equation  value:  18519814*  °( Equivalent  to  about 
9999.8995  nautical  miles.) 

-29 

K:MINPERE:  Double  precision  constant  stored  as  91440  x 2 , scaled  B29 

in  units  of  meters.  Equation  value:  91440. 

—27 

K:MINPERM:  Double  precision  constant  stored  as  10668  x 2 , scaled  B27 

in  units  of  meters.  Equation  value:  10668. 

K:PIdl6:  Double  precision  constant  stored  as  3*141592653  x 2 scaled 
B5  and  imitless.  Equation  value:  6.2831853* 

K:posmaxdp:  See  "Major  Vari^ibles"  section. 

-29 

K:REMDIST:  Double  precision  constant  stored  as  384402000  x 2 , scaled 

B29  in  units  of  meters.  Equation  value:  384402000. 
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K:RPAD:  Double  precision  constant  stored  as  6373338  x 2 scaled  B29 
in  units  of  meters.  Equation  value:  6373338. 

K:RSCALE:  Double  precision  constant  stored  as  3.280839  x 2 , scaled  B3 

in  units  of  feet  per  meter.  Equation  value:  3.280839. 

K:TFF0,  K:TFF1,  K:TFF2,  K:TFF3,  K:TFF4,  K:TFF5:  Six  double  precision 
constant  coefficients  of  a polynomial  approximation.  Scaled  BO  and 
unitless.  Equation  value: 

0.3333333333 

-0.1999819135 

0.1418148467 

-0.101310997 

0.05609004986 

-0.01536156925 

K:TSCALE:  Double  precision  constant  stored  as  100  x 2 scaled  BIO 
in  units  of  centiseconds  per  second.  Equation  value:  100. 

K:TJNITX,  K:UNITZ,  K:UNITY:  See  SERV  section. 

_Q 

K:VSGALE:  Double  precision  constant  stored  as  328.0839  x 2 , scaled  B9 

in  units  of  feet  per  second/meters  per  centisecond.  Equation  value: 
328.0839. 

MMNUMBER:  See  PGSR  section. 

MODREG:  See  DATA  section. 

MPAC:  See  DINT  section. 

mTPER:  Double  precision  time  to  perigee,  scaled  B28  in  iinits  of  centiseconds. 

NEWJOB:  See  MATX  section. 

NUVCSM,  NUVLEM:  See  ORBI  section. 

[NBSMMA^  : See  COOR  section. 

NOUNREG:  See  DATA  section. 


OPTIONX^,  OPTIONX^:  Display  registers  used  by  nom  12  with  extended  verbs. 
Similar  to  OPTlONl,  0PTI0N2.  Same  register  as  DSPTEMX. 


PBODY:  See  ORBI  section. 


PIPTIME:  See  SERV  section. 

PITCHANG;  Cell  used  to  contain  the  pitch  gimbal  angle  required  to  point 
the  S-band  antenna  toward  the  center  of  the  earth.  Scaled  BO,  in 
mits  of  revolutions. 
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QPRET:  See  ORBI  section. 


QTERM:  Double  precision  product  of  the  cotangent  of  flight  path  angle 
at  RTERM  and  the  square  root  of  semi-latus  rectum,  scaled  B16  (earth) 
or  B15  (moon)  in  units  of  meters  to  the  one-half  power. 

RADCADR,  RADGOOD,  RADMODES:  See  RADR  section. 

RANGE,  RRATE:  Double  precision  range  and  range-rate,  scaled  B29  for 
range  in  units  of  meters  and  B7  for  range-rate  in  mits  of  meters 
per  centi second. 

RAPO,  RPER:  Double  precision  radius  at  apogee  and  perigee,  scaled  B29 
(earth)  or  B27  (moon)  in  units  of  meters. 

RATT,  VATT,  TAT:  See  ORBI  section. 

R^CSM:  See  SERV  section. 

RCV,  VCV:  See  CONG  section. 

RCVCSM,  RCVLEM:  See  ORBI  section. 

PECTCSM,  PECTLEM:  See  ORBI  section. 

[REFSHMAT)  : See  COOR  section. 

RDM:  Double  precision  vector  defined  by  transforming  the  unit  line-of-sight 
vector  (reference  coordinates)  first  into  stable  member  then  into  nav- 
igation base  coordinates,  and  finally  rotated  and  compensated  by  the 
orientation  of  the  S-band  antenna  mount  with  respect  to  the  navigation 
base. 

RLMTEMP:  Temporary  storage  location  for  RIM  to  be  used  in  later  calculations. 

RLMYTEMP:  Temporary  storage  location  for 

RLS:  See  CONG  section. 

RMAGl:  Double  precision  magnitude  of  RONE,  scaled  B29  (earth)  or  B27 
(moon)  in  units  of  meters. 

RN,  VN:  See  SERV  section. 

RONE,  VONE:  Double  precision  position  and  velocity  vectors  at  TSTART82; 
scaled  B29  (earth)  or  B27  (moon)  for  position,  and  B7  (earth)  or  B5 
(moon)  for  velocity.  Position  is  in  units  of  meters,  with  velocity 
in  units  of  meters/centisecond. 

RPADTEM:  Double  precision  radius  of  laianch  site  on  earth  or  moon  for  use 
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as  a base  for  computing  altitude,  scaled  B29  (earth)  or  B27  (moon)  in 
units  of  meters. 

RPASS36:  Double  precision  vector  storage  for  GSM  position  vector  in 
routine  36,  scaled  B29  in  units  of  meters. 

RSAMPDT:  See  RADR  section. 

RTERM:  Double  precision  terminal  radius  for  calculation  of  IFF,  scaled 
B29  (earth)  or  B27  (moon)  in  units  of  meters. 

RTHETA:  Double  precision  angle  between  LM  +Z  axis  and  the  local  hor- 
izontal, scaled  BO  in  units  of  revolutions. 

SAMPTIME:  See  DSKY  section. 

[BMNBMA^  : See  ORBI  section. 

TCCSM,  TCLEM;  See  ORBI  section. 

TDECl:  See  ORBI  section. 


TEPHEM:  See  COOR  section. 

TET,  TETCSM,  TETLEM:  See  ORBI  section. 

IFF:  Double  precision  time  of  free  fall  to  RTERM,  scaled  B28  in  units 
of  centiseconds. 

TFFldALF:  Double  precision  semi -major  axis,  stored  in  units  of  meters 

with  variable  scaling. 

TFFALFA:  Double  precision  reciprocal  of  the  semi -major  axis,  stored  in 
units  of  meters  with  variable  scaling. 

TFFDELQ:  Double  precision  difference  between  —QTERM  and  TFFQl,  scaled 
BI6  (earth)  or  B15  (moon). 

TFFdRTMU;  Double  precision  reciprocal  of  the  square  root  of  mu  of  pri- 
mary body;  variable  scaling, 

TFFNP:  Double  precision  semi-latus  rectum,  stored  in  units  of  meters 
with  variable  scaling. 

TFFQl;  Intermediate  quantity  calculated  in  "CALCTFF",  scaled  BI6  (earth) 
or  BI5  (moon) . 

TFFRTALF:  Double  precision  square  root  of  TFFALFA,  stored  in  meters  with 
variable  scaling. 
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TFFTEM:  Double  precision  intermediate  variable  used  in  "GALCTFF",  stored 
in  units  of  meters  with  variable  scaling. 

TFFVSQ:  Double  precision  value  of  the  complement  of  the  square  of  the 
velocity  divided  by  the  root  of  muj  variable  scaling. 

TFFX:  Double  precision  universal  variable,  scaled  BO  and  unitless. 

THETAD;  See  COOR  section. 

TIMENOW:  Double  precision  current  time  scaled  B28  in  units  of  centi- 
seconds;  ai  computer  counter  incremented  every  centisecond  automat- 
ically, and  modified  by  verbs  55,  70  and  73. 

TSTART82:  Double  precision  start  time  of  the  verb  82  routines,  scaled  B28 
in  centiseconds;  used  to  update  TFF  from  its  value  at  the  time  of  verb 
82  initialization  to  a value  corresponding  to  the  tajne  at  which  it  is 
displayed.  Also  used  to  update  mTPER. 

1MP36;  Double  precision  vector  storage  for  normal  to  the  GSM  orbital 
plane,  scaled  B1  and  unitless. 

UPBUFFq  Single  precision  buffer  cells  for  P27  updates. 

UPGOUNT:  Single  precision  nimiber  of  components  received  in  a P27  update, 
scaled  B14  and  unitless. 

UPOLDMOD:  Single  precision  storage  for  the  value  of  MODREG  at  the  initial- 
ization of  a P27  update. 

UPTEMP;  Single  precision  storage  for  the  number  of  a P27  update  component 
to  be  corrected  or  for  an  address  of  a cell  to  be  updated. 

UPVERBSV,  UPVERB:  Single  precision  indication  of  the  verb  that  initiated 
a P27  update,  scaled  B14  and  unitless. 

V82FLAGS:  Single  precision  flagword  used  in  verb  82  routines.  Bit  two 
is  set  when  only  TFF  is  computed  and  bit  one  is  set  when  mTPER  is  com- 
puted. 

VMOON:  See  GOOR  section. 

TONEPR:  Double  precision  value  of  VONE  TFFdRTMU,  scaled  B-10  (earth) 
or  B-9  (moon ) . 

TCSM;  See  SERV  section. 

VGVGSM,  VGVIEM:  See  ORBI  section. 

TOEGTGSM,  VREGTLEM:  See  ORBI  section. 
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YA.WANG;  Cell  used  to  contain  the  yaw  glmbal  angle  required  to  point 
the  S-band  antenna  toward  the  center  of  the  earth,  scaled  BO  in 
revolutions . 

ZNBrfr  See  COOR  section. 


EXVB  - 37 


IMU  Computations 


SVCT3  (This  task  is  used  as  part  of  the  waitlist  control  and 
is  entered  every  81.93  seconds) 

If  FLAGWRD2  bit  15  (DRIFTFLG)  = 1: 

If  IMUCADR  = +0,  establish  "NBDONLY"  (pr35) 

If  IMUCADR  i-  +0,  call  •'SVCT3"  in  5.0  seconds 

End  task 

1 /gyro  ^OMP  = ^OMP  rescaled  to  B21  pulses  (truncated  at  2 pulses) 

TS  = address  of  ^OMP 
Perform  ”IMUPULSE’' 

Perform  "IMUSTALL" 

If  ISSGOOD  = 0,  End  job 

^OMP  = fractional  part  of  ^OMP  rescaled  to  B14  pulses 
End  job 

NBDONLY  If  GCOMPSW  < 0,  End  job 
Inhibit  interrupts 

If  FLAGWRD2  bit  15  (DRIFTFLG)  = 0,  End  job 
TS  = 0 

If  FLAGWRD8  bit  8 (SURFFLAG)  = 1: 

TS  = 00200g 

Perform  "PIPASR"  skipping  first  step 
TS1  = IdPIPADT 

IdPIPADT  = TIMENOW^^  (load  present  time) 

Release  interinipt  inhibit 

TSt  = IdPIPADT  - TS1  (present  time  - previous  time) 


IMUC  - 1 


NBD2 


1 /FIFA 


(corrected  for  possible  overflow  of  TIMENOW 

counter) 


TSt  = TSt 
GCOMPSW  = 0 

If  TS  > 0:  (SURFFLAG  set) 

TS1  = K:dvtoacc  DELV 


GCOMP  = GCOMP  + 


GCOMP  = GCOMP  - TSt 


-ADIAX  ADSRAX 
0 -ADIAI 
0 

NBDX 
NBDY 
-NBDZ 


0 

ADSRAY 
-ADSRAZ  -ADIAZ 


TS1 


If  (gCOMP^  I > 2,  GCOMPSW  = |gCOMP^|  - 2 


GCOMP  - 2 

y 


If  IgCOMP  >2,  GCOMPSW 
If  [gCOMP^I  > 2,  GCOMPSW  = |gCOMP^|  - 2 
If  GCOMPSW  > 0,  proceed  to  "I/GYRO" 

End  job 

If  GCOMPSW  < 0,  return 


DELVj  = DELV  + 
- dp  - sp 


PIPASCF  0 0 

X 

0 PIPASCF  0 

y 

0 0 PIPASCF 

z 


(PIPABIAS^ 
PIPABIAS 

y 

PIPABIAS 

z 


GCOMPSW  = 0 

TS  = K:dvtoacc  DELV 


fiCOMP  = ^OMP  •+ 

> 2,  GCOMPSW  = IgCOMP 


-ADIAX  ADSRAX  0 
0 -AD I AY  ADSRAY 

0 -ADSRAZ  -ADIAZ 


TS  - IdPIPADT 


NBDX\ 

NBDY  1 

.-NBDZ/ 


If  GCOMP 


- 2 


If  GCOMP  > 2,  GCOMPSW  = GCOMP  - 2 

y ’ y 


IMUC  - 2 


If  j GCOMP^  I > 2,  GCGMPSW  = jGCOMP^ 
If  GCOMPSW  > 0,  establish  "l/GYRO" 
Return 


2 


(pr21  ) 


LASTS I AS  Perform  "PIPUSE",  skipping  1st  step 
If  GCOMPSW  < 0,  End  job 
TS  = 0 

If  FLAGWRD8  bit  8 (SURFFLAG)  = 1 , TS  = 00200g 

TSt  = PIPTIMS-,  - IdPIPADT 
Is 

IdPIPADT  = K:pip2sec 
Proceed  to  ’'NBD2" 

PIPUSE  PIPA  = 0 (-0) 

If  bit  6 of  IM0DES30  =1:  (IMU  caged) 

Return 

Inhibit  interrupts 

Switch  bit  1 of  IM0DES30  to  0 (Enable  PIPA  fail  monitor) 
Perform  "SETISSW" 


Release  interrupt  inhibit 
Return 

PIPFREE  Inhibit  interrupts 

Switch  bit  1 of  IM0DES30  to  1 (Disable  PIPA  fail  monitor) 
If  bit  10  of  IM0DES30  = 0:  (PIPA  failure) 

Perform  "ALARM"  with  TS  = 0021 2g 
Perform  "SETISSW" 

Release  interrupt  inhibit 


Return 


IMUC  - 3 


IMUMDN  TS  = CXXXX)g 

For  i = 15,  14,  13,  12,  11  and  9,  set  bit  i of  TS  to  1 if 
bit  i of  IMDDES30  is  not  equal  to  bit  i of  channel  30 

If  TS  = OOOOOg,  proceed  to  "TNONTEST" 

(no  change  in  IMtJ  related  discretes  on  channel  30) 

Set  bits  15-11  and  9 of  IMDDES30  equal  to  bits  15-11  and  9 
of  channel  30 

If  bit  15  of  TS  = 1 : (change  in  IMU  temperature  discrete) 

Svd-tch  bit  15  of  TS  to  0 

If  bit  15  of  IM0DES30  = 1:  (IMU  temp  exceeding  limits) 

Switch  bit  4 of  channel  11  to  1 

(turn  on  temperature  caution  lamp) 

If  bit  15  of  IM0DES30  = 0:  (temp  returned  within  limits) 

If  bit  1 of  IMODES33  = 0,  switch  bit  4 of  channel  11  to  0 
(turn  lamp  off  unless  lamp  test  in  progress) 

If  TS  = OOOOOg,  proceed  to  "TNONTEST"  (no  further  changes) 

If  bit  14  of  TS  = 1:  (change  in  ISS  tiarn-on  delay  discrete) 

Switch  bit  14  of  TS  to  0 

If  bit  2 of  IM0DES30  = 0:  (no  tum-on  sequence  failure 

in  effect) 

If  bit  14  of  IICIDES30  = 0,  perform  "ITURN0N2" 

(iSS  tiam-on  initiate;  start  tum-on  sequence) 

If  bit  14  of  IM0DES30  = 1:  (ISS  tum-on  delay 

just  terminated) 

If  bit  15  of  channel  12  = 0:  (ISS  turn-on 

delay  was  not  terminated  by  LGC;  set  bit  2 
to  indicate  tum-on-sequence  failure) 

Switch  bit  2 of  IMDDES30  to  1 

Perform  "ALARM"  with  TS  = 00207q 

If  TS  = OOOOOg,  proceed  to  "TNONTEST" 


IMUC  - 4 


If  bit  13  of  TS  = 1:  (change  in  status  of  IMU  fail  discrete) 

Switch  bit  13  of  TS  to  0 
Perform  "SETISSW 

If  TS  = OOOOOg,  proceed  to  "TNONTEST" 

If  bit  12  of  TS  = 1:  (change  in  status  of  ICDU  fail  discrete) 

Switch  bit  12  of  TS  to  0 

Perform  "SETISSW" 

If  TS  = OOOOOg,  proceed  to  "TNONTEST" 

If  bit  11  of  TS  = 1:  (change  in  status  of  IMU  cage  discrete) 

Switch  bit  11  of  TS  to  0 

If  bit  1 1 of  IMODES3O  = 0:  (IMU  caged  externally) 

Switch  bits  15-10  of  channel  I4  to  0 

( stop  all  ICDU  and  RRCDU  drive  pulses ) 

Switch  bits  8,  6,  5»  4 and  2 of  channel  12  to  0 

(disable  inertial  data  display,  disable  ICDU 
Error  Counters,  reset  ICDU  zero  discrete, 
remove  coarse  align  enable  discrete,  disable 
RRCDU  Error  Counters ) 

Switch  FLAGWRD5  bit  7 (ENGONFLC)  to  0 

Switch  bit  13  of  channel  11  to  0 and  bit  I4  of 

channel  11  to  1 (engine  control  discretes  to  off) 

Perform  "CAGESUBI" 

Perform  "RNDREFDR"  (reset  TRACK,  DRIFT  and  REFSM  flags) 

CDU^CMD  = 0 for  i = X,  y and  z (-0) 

GYROCMD  =0  (-0) 

Switch  bits  9-6  of  channel  14  to  0 

(remove  all  gyro-torque  logic  discretes) 

If  bit  11  of  IM0DES30  = 1,  proceed  to  "ISSZERO" 

If  TS  = OOOOOg,  proceed  to  "TNONTEST" 


IMUC  - 5 


TNONTEST 


If  bit  9 of  TS  = 1:  (IMU  power  on/off) 

Switch  bit  9 of  TS  to  0 

If  bit  9 of  1MODES30  = 1:  (IMU  power  off) 

Switch  bit  6 of  IMDDES33  to  1 (disable  DAP) 

Perform  "RNDREFDR" 

If  FLAGWRDO  bit  8 (IMUSE)  = 1: 

Perform  "ALARM"  with  TS  = CX)214q 

Switch  FLAGWRDO  bits  8 (IMUSE)  and  7 (RNDVZFLG)  to  0 

If  bit  9 of  IM0DES30  = 0:  (IMU  power  on) 

If  bit  2 of  IM0DES30  = 0,  perform  "ITURN0N2" 

(Start  tum-on  sequence  if  no  t\xrn-on-sequence 
failure  indication  present) 

If  bit  7 of  IMDDES30  = 0,  proceed  to  "C33TEST" 

If  bit  8 of  IMDDES30  = 0;  (Delay  till  next  T4RUPT  cycle) 

Switch  bit  8 of  IM3DES30  to  1 

Proceed  to  "C33TEST" 

Switch  bits  7 and  8 of  IM0DES3O  to  0 

If  bit  14  of  IMDDES30  = 1:  (ISS  power  on  without  initiation 

of  tum-on  delay,  e.g.  verb  36) 

If  bit  4 of  channel  12  = 1,  proceed  to  "C33TEST" 

(coarse  align  enabled;  may  be  near  gimbal  lock) 

If  FLAGWRDO  bit  8 (IMUSE)  = 1,  proceed  to  "C33TEST" 

Perform  "GAGESUB2" 

Proceed  to  "ISSZERO" 

If  bit  9 of  IM0DES3O  = 1,  perform  "ALARM"  with  TS  = 00213g 
(Tum-on  delay  initiated  without  ISS  power  on) 

Perform  "CAGESUB" 


IMUC  - 6 


Call  "ENDTNON"  in  90  seconds 
Proceed  to  "C33TEST'' 

ISSZERO  Switch  bit  4 of  DSPTAB^^  to  0 (turn  off  no  attitude  lamp) 

Switch  bit  15  of  DSPTAB^^  to  1 (to  flag  for  output) 

Switch  bit  5 of  channel  12  to  1 (ICDU  zero) 

CDU  = 0 

Call  "UNZ2"  in  0.32  second 
C33TEST  TS  = OOOOOg 

For  i = 13,  12  and  11,  switch  bit  i of  TS  to  1 if  bit  i of 
IMDDES33  is  not  equal  to  bit  i of  channel  33 

If  TS  = OOOOOg,  return  (to  "T4RUPT"  routine) 

Set  bits  13-11  of  IMODES33  = bits  13-11  of  channel  33 

(Channel  33  flip-flops  reset  by  WAND  instruction) 

If  bit  13  of  TS  =1;  (change  in  status  of  PIPA  fail  discrete) 

Switch  bit  13  of  TS  to  0 

Set  bit  10  of  IM0DES3O  = bit  13  of  IMODES33 

Perform  "SETISSW" 

If  bit  1 of  IM0DES30  = 1:  (primary  PIPA  monitor  inhibited) 

If  bits  10,  9,  8,  7 and  5 of  IM0DES30  all  = 0: 

(PIPA  fail,  IMU  power  on,  turn-on  delay  complete, 
turn-on  delay  not  just  initialized,  and  secondary 
PIPA  fail  monitor  enabled  ("PFAILOK")) 

Perform  "ALARM"  with  TS  = 00212g 

If  TS  = OOOCXDg,  return  (to  "T4RUPT"  routine) 

If  bit  12  of  TS  = 1:  (Downlink) 

Switch  bit  12  of  TS  to  0 

Perform  "DNTMFAST" 

If  TS  = OOOOOg,  retxarn  (to  "T4RUPT"  routine) 


IMUC  - 7 


If  bit  11  of  TS  = 1: 


(Uplink) 


CAGESUB 

CAGESUBl 

CAGESUB2 

SETISSW 


GLOC3CM3N 


Switch  bit  11  of  TS  to  0 

Perform  "UPTMFAST" 

Return  (to  T4RUPT  routine) 

Switch  bits  6 and  15  of  channel  12  to  0 

(Disable  ICDU  Error  Counter  and  reset  "Turn-on  delay 
complete"  discrete . ) 

Switch  bits  4 and  5 of  channel  12  to  1 

(Set  coarse  align  discrete  and  ICDU  zero  discrete) 

Switch  bit  4 of  DSPTAB- ^ to  1 and  flag  for  output 
(No  attitude  lamp'^on) 

Switch  bits  1,  3,  k,  5 and  6 of  IM)DES30  to  1 

(Inhibit  PIPA,  CDU  and  IMU  fail  monitors,  inhibit  secondary 
PIPA  fail  monitor,  and  set  IMU  caged  flag) 

Switch  bit  6 of  IMODES33  to  1 (Disable  DAP) 

Ret\irn 

TS  = OOOOOg 

If  bits  13  and  4 of  IMDDES30  both  =0,  TS  = lOOOOg  (IMU  fall) 

If  bits  12  and  3 of  IMDDES30  both  = 0,  TS  = 04000g  + TS  (ICDU) 

If  bits  10  and  1 of  IM0DES3O  both  = 0,  TS  - 01000g+  TS  (PIPA) 

If  TS  ^ OOOOOg:  (failure) 

Perform  "ALARM"  with  TS  - TS  - OOOOlg 

Switch  bit  1 of  chauinel  11  to  1 (ISS  warning  lamp) 

Return 

If  bit  1 of  IMODES33  = 0,  switch  bit  1 of  channel  11  to  0 
(Extinguish  ISS  warning  lamp  if  lamp  test  not  in  progress) 

Ret\im 

TS  = OOOOOg 

If  ICDU^I  < K:70degs,  proceed  to  "SETGLOCK" 

* z 

Switch  bit  6 of  TS  to  1 


IMUC  - 8 


SETGLQCK 


CA+ECE 


UNZ2 


If  jCDU^I  < K;85degs,  proceed  to  "SETGLOCK" 

If  bit  4 of  channel  12  = 1,  proceed  to  "SETGIDCK" 

(already  in  coarse  align) 

Perform  "SETCOARS" 

Call  "CA+ECE"  in  0.06  second 

If  bit  6 of  DSPTAB^^  / bit  6 of  TS: 

If  bit  6 of  DSPTAB^^  =1:  (bit  6 of  TS  = 0) 

If  bit  1 of  IM0DES33  = 1,  return  (lamp  test) 

Invert  bit  6 of  DSPTAB..  and  flag  for  output 
(Ginibal  lock  warning  light  on  or  off) 

Return  (to  T4RUPT  routine) 

Switch  bit  6 of  channel  12  to  1 (Enable  ICDU  Error  Counters) 
End  task 
CDU  = 0 

Switch  bits  4 and  5 of  channel  12  to  0 

(Disable  coarse  align  mode,  reset  ICDU  zero  discrete) 

Delay  10.24  seconds 

Switch  bits  3,  4 and  6 of  IMDDES30  to  0 

(Enable  ICDU  and  IMU  fail  monitors  and  reset  IMU  caged  flag) 
Switch  bit  6 of  IM)DES33  to  0 (Enable  DAP) 

If  FLAGWRD2  bit  15  (DRIFTFLG)  = 0: 

Switch  FLAGWRD2  bit  15  (DRIFTFLG)  to  1 
IdPIPADT  = less  significant  half  of  TIMENOW 
Perform  "SETISSW" 

Switch  bit  15  of  channel  12  to  0 

(Switchover  to  normal  operate  mode  should  be  complete) 

Call  "PFAILOK"  in  4 seconds 
End  task 


IMUC  - 9 


ITURN0N2 


ENDTNON 


PFAILOK 


DflJPULSE 


Switch  bit  7 of  IMDDES30  to  1 (initiate  IMJ  turn-on  delaj) 

RADMDDES  = 00102g 

Return 

If  bit  2 of  IMDDES30  = 1:  (tum-on  sequence  failure) 

Switch  bit  2 of  IJf)DES30  to  0 

If  bit  14  of  IM0DES3O  = 0:  (turn-on  delay  still  in  effect) 

Delay  90  seconds 
Proceed  to  "ENDTNON" 

If  FLAGWRDO  bit  8 (IMUSE)  = 1,  proceed  to  "IMUBAD" 

End  task 

Switch  bit  15  of  channel  12  to  1 

(Switch  ISS  to  noriiel  operate  mode) 

Switch  bit  4 of  DSPTAB--  to  0 and  flag  for  output 
(Turn  off  no  attitude  lamp) 

Proceed  to  "UNZ2" 

If  bit  6 of  IMDDES30  = 1,  end  task  (IMU  caged) 

Switch  bit  10  of  IM0DES30  to  1 (reset  PIPA  fail  bit) 

Switch  bit  13  of  IMDDES33  to  1 (reset  PIPA  fail  bit) 

Switch  bit  5 of  IMDDES30  to  0 (Enable  secondary  PIPA  fail  mon.) 

Perform  "SETISSW" 

End  task 
MPAC^  = TS 

If  bit  6 of  IMDDES30  =1:  (IMU  caged) 

IMUCADR  = -0 
Return 

If  LGYRO  = 0:  (gyro  free  for  torquing) 

Switch  bit  6 of  channel  14  to  1 (Enable  gyro  torquing) 

TSt  = 0.04 


DfJC  - 10 


STRTGYRO 


STRTGYR2 


If  LGYRO  > 0:  (gyro  already  being  torqued) 

Put  this  job  to  sleep 

When  awakened,  continue  at  next  step  if  LGYRO  then  = 0, 
or  proceed  to  previous  step  if  LGYRO  is  still  > 0. 

TSt  = 0,01 

Call  ''STRTGYRO''  in  TSt  seconds 
LGYRO  = MPAC^ 

GYRODEX  = 0 

Force  sign  agreement  within  each  conponent  of  E, 

L>uXaU 

Return 


Switch  bits  7,  8,  9 and  10  of  channel  14  to  0 

(reset  gyro  select  discretes,  sign  bit,  gyro  activity  bit) 

If  bit  6 of  IM0DES30  = 1,  proceed  to  "IMUBAD" 

If  GYRODEX  = 3:  (finished) 

LGYRO  = 0 

Awaken  any  jobs  put  to  sleep  in  "IMUPULSE" 

Proceed  to  "IMUFINED" 

If  GYRODEX  = 2:  (torque  X gyro  about  its  output  axis) 

IGYRO  = LGYRO  - 4 (index  X component) 

If  GYRODEX  = 1:  (torque  Z gyro) 

LGYRO  = LGYRO  “1“  2 (index  Z component) 

If  GYRODEX  = 0:  (torque  Y gyro  first) 

IGYRO  = LGYRO  + 2 (index  Y component) 

GYRODEX  = GYRODEX  + 1 


IMUC  - 11 


''^dp 

If  < 


(X,  Y or  Z component  of  vector  specified  at  input) 
Krgyromin,  proceed  to  "STRTC5ni2" 


TS^p  = TS^p  + KiGIROFRAC  signTS^p 

If  TS^p  < 0,  switch  bit  9 of  channel  14  to  1 (negative  torque) 
If  GflRODEX  = 1,  switch  bit  8 of  channel  14  to  1 (T) 

If  GfYRODEX  = 2,  switch  bits  7 and  8 of  channel  14  to  1 (Z) 

If  GYRODBC  = 3,  switch  bit  7 of  channel  14  to  1 (X) 

RUPTRBG2  = fractional  part  of  TS^p  (bits  1-7  of  LS  half) 

TScmi  = 8192  [fractional  part  of  (TS^p  - RUPTREG2)  / 8192 [] 

RUPTREGl  = I TS^p  - TScmd  1 

If  RUPTREGl  < 8192;  (equals  0 or  8192) 

If  RUPTREGl  ^ 0,  TScmd  = TScml  + 8192 


= RUPTREG2  (portion  of  conmand  less  than  one  pulse) 
GYROCJMD  = TScmd 


TSt  = Krgyrtm  GYROCMD  + 0.03 
Call  "STRTGIRO"  in  TSt  seconds 


Proceed  to  "GYROEOT" 

Ej^^q  = RUPTREGl  - 16384  + RUPTRBG2 
GYROCMD  = 8192  + TScmi 
TSt  = K:gyrtm  GYROCMD  - 0.03 
Call  "8l92i4UG"  in  TSt  seconds 
Proceed  to  "GYROEOT" 

8192AUG  If  bit  6 of  BC)DES30  = 1,  proceed  to  "IMUBAD"  (IMU  caged) 

If  bit  4 of  channel  12  = 1,  proceed  to  "IMUBAD" 

(coarse  align  enabled;  disables  gyro  torquing) 

TS  = ^lqyro  't'O  nearest  multiple  of  8192 

( ^LQYjjQ  contains  multiples  of  8192  plus  a fraction 
of  one  pulse;  fraction  is  ignored) 


IMUC  - 12 


If  TS  = 0: 


GYROEXIT 


IMUZERO 


GYROCMD  = GYROCMD  -i-  8192 
TSt  = Krgyrtm  GYROCMD  + 0.03 
Call  "STRTGYRO"  in  TSt  seconds 
Proceed  to  "GYROEXIT" 

\gYRO  ""  -^teRO  ■ 

GYROCMD  = GYROCMD  + 8192 

TSt  = Krgyrtm  GYROCMD  - 0.03 

Call  "8192AUG"  in  TSt  seconds 


Switch  bit  10  of  channel  14  to  1 (send  GYROCMD) 
End  task 

Inhibit  interrupts 

If  bits  4 and  6 of  DSPTAB  both  = 1: 

(No  attitude  and  "GimSal  Lock"  lamps  both  on) 

Perform  "ALARM"  with  TS  = 00206g 

IMUCADR  = -0 

Release  interinipt  inhibit 
Return 

If  bit  6 of  IM0DES30  =1:  (IMU  caged) 

IMUCADR  = -0 

Release  interrupt  inhibit 
Return 

Switch  bits  5 and  6 of  IM0DES33  to  1 

(Indicate  zeroing  in  progress;  disable  DAP) 
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IMUZER02 


IMtJCX)ARS 


Svrltch  bits  3 and  4 ot  DC3DES30  to  1 

(Inhibit  ICDU  and  MJ  fail  monitors) 

Switch  bits  4 and  6 of  channel  12  to  0 

(Disable  Coarse  align  mode  and  ICDU  Error  Co\mters) 

Switch  bit  4 of  DSPTAB.-  to  0 and  flag  for  output 
(Turn  off  "no  attitude"  lamp) 

Switch  bit  5 of  chaoMl  12  to  1 
(Zero  ICDU 'a) 

flXJ  - 0 

"IMUZIR02"  in  0.32  second 
If  bit  9 of  I1CDES30  = 1:  (IMU  not  operating) 

Perform  "ALARM"  with  TS  = 00210g 
Release  interrupt  inhibit 
Return 

If  bit  6 of  IM0DES30  = 1,  proceed  to  "IMUBAD"  (iMU  caged) 

ODU  = 0 

Switch  bit  5 of  channel  12  to  0 (Release  ICDU's) 

Delay  10.24  seconds 

If  bit  6 of  IMDDES30  - 1,  proceed  to  "IMUBAD" 

Switch  bits  4 and  3 of  IMDDES30  to  0 

(Remora  IMU  and  ICDU  fail  monitor  inhibit  bits) 

Switch  bits  6 and  5 of  IMDDES33  to  0 

(Enable  DAP  and  reset  zeroing  Indication) 

Perform  "SETISSW" 

Proceed  to  "ENDIMU" 

If  bit  6 of  IM3DES30  = 1:  (IMU  caged) 

IMUCADR  = -0 
Retiim 

Inhibit  Interrupts 
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Perform  "SETCOARS" 


SETCOARS 


RMDREFDR 


GOARS 


C0ARS2 


Call  "GOARS"  in  0.06  second 
Release  interrupt  inhibit 
Return 

If  bit  4 of  channel  12  = 1,  return  (already  in  coarse  align) 
Switch  bit  6 of  channel  12  to  0 (disable  ICDU  error  counters) 

Switch  bit  10  of  channel  14  to  0 (disable  gyro  torque  pulses) 
GYHOCMD  = 0 (-0) 


Switch  bit  4 of  channel  12  to  1 (Switch  ICDU  to  coarse  align) 

Switch  bit  4 of  DSPTAB, . to  1 and  flag  for  output 
(turn  on  "No  attitude"  lamp) 


Switch  bit  6 of  IMDDES33  to  1 (disable  DAP) 

Switch  bit  4 of  IMDDES30  to  1 (inhibit  IMU  fail  monitor) 

Switch  FLAGWRDl  bit  5 (TRACKFLG)  to  0 
Switch  FLAGWRD2  bit  15  (DRIFTFLG)  to  0 
Switch  FLAGWRD3  bit  13  (REFSMFLG)  to  0 


Return 


If  bit  6 of  IM0DES30  = 1,  proceed  to  "IMUBAD"  (caged) 

Switch  bit  6 of  channel  12  to  1 (Enable  ICDU  Error  Coxmters) 


COMMAND 

= THETAD 

- CDU 

z 

z 

z 

COMMAND 

= THETAD 

- CDU 

7 

7 

7 

COMMAND^ 

= THETAD^ 

- CDU 

X 

Delay  0.02  second 


converted  to  one ' s complement 
form  and  rounded  off 


If  bit  6 of  IMCDES30  = 1,  proceed  to  "IMUBAD"  (caged) 


i = 0 
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Perfonn  the  indented  steps  3 times,  for  j = z,  then  y,  then  x 


If  (COMMAND  .|=  0,  CDU  CMD  = - 0 

If  (command.  I < K:commax: 

' j'  *“ 

CDU.  CMD  = COMMAND. 

J J 

COMMAND  . = 0 
i = i + 1 

If  (command.!  > Krcoramax: 

' j’ 

CDU  .CMD  = Kicoramax  signCOMMAND  . 

3 3 

COMMAND.  = COMMAND.  - CDU. CMD 
J J J 

i = i + 1 

(End  of  "indented  steps") 

If  i > 0:  (command  is  not  zero) 

Switch  bits  13,  14  and  15  of  channel  14  to  1 

(Send  output  piilses  to  ICDU  Error  Counters  from  CDU. CMD  cells) 

I 

Delay  0.6  second 
Proceed  to  "C0ARS2" 

Delay  1.5  seconds 

Perform  the  indented  steps  3 times  (or  until  "ALARM"  situation 
is  encountered),  for  j = z,  then  y,  then  x 

TS  = CDU . - THETAD  . converted  to  one ' s complement  form 
3 3 

If  |TS|  > K:C0ARST0L:  (coarse  align  error) 

Perform  "ALARM"  with  TS  = 00211g 
Proceed  to  "IMUBAD" 

(End  of  "indented  steps") 

Proceed  to  "ENDIMU" 
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IMUFINE 


IMUFINED 


IFAILOK 


IMUSTALL 


\ 


Inhibit  interrupts 

If  bit  6 of  IMDDES30  = 1:  (iMa  caged) 

IMUCADR  = -0 

Release  interrupt  inhibit 
Return 

Switch  bits  4 and  5 of  channel  12  to  0 

(Reset  ICDU  coarse  align  and  zeroing  discretes) 

Switch  bit  6 of  I10DES33  to  0 (Enable  DAP) 

Switch  bit  4 of  DSPTAB- . to  0 and  flag  for  output 
(Turn  off  "No  Attitude"  lamp) 

Call  "IFAILOK"  in  5.12  seconds 

Call  "IMJFINED"  in  2 seconds 

Release  interrupt  inhibit 

Return 

If  bit  6 of  IMDDES30  = 1,  proceed  to  "IMUBAD"  (caged) 

Proceed  to  "ENDIMU" 

If  bit  6 of  IM0DES30  = 1,  end  task 

If  bit  4 of  channel  12  = 1,  end  task 
(Coarse  align  mode) 

Switch  bit  13  of  IM0DES30  to  1 (reset  IMU  fail  bit) 
Switch  bit  4 of  IM0DES30  to  0 (enable  IMU  fail  monitor) 

Perform  "SETISSW" 

End  task 

Inhibit  interrupts 

If  IMUCADR  > 0 or  if  IMUCADR  < -1: 

TS1  = Return  address  of  routine  calling  "IMUSTALL" 
Proceed  to  "BAIL0UT1"  with  TS  = 31210g 
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If  IMUCADR  = -1: 


(operation  already  complete  and  good) 


IMUCADR  = 40 

Release  interrupt  inhibit 

ISSGOOD  = 1 

Return 

If  IMUCADR  = -0:  (operation  already  con^jlete  and  bad) 

IMUCADR  = 40 

Release  interrupt  inhibit 

ISSGOOD  = 0 

Retxirn 

IMUCADR  = return  address  (to  caller  of  "IMUSTALL") 

Put  present  job  to  sleep 
Vflien  awakened,  return  via  LOC 

ENDIMU  If  bit  1 of  channel  11  = 1,  proceed  to  "IMUBAD"  (ISS  bad) 
IMUGOOD  If  IMUCADR  = 40:  ("IMUSTALL"  not  entered  yet) 

IMUCADR  = -1 
End  task 
LOC  = IMUCADR 
ISSGOOD  = 1 

Wake  job  put  to  sleep  in  "IMUSTALL" 

IMUCADR  = 40 
End  task 

IMUBAD  If  IMUCADR.  = 40 : 

IMUCADR  = -O 
End  task 
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LOG  = IMUCADR 


Wak*  job  put  to  sleep  in  "IMUSTALL” 
IMUCADR  = +0 


End  task 

ATTCK2  CDU  CMD  = THETAD  KzONETENTH 
z z 

CDU  CMD  = THETAD  KrONETENTH 

y y 

CDU  CMD  = THETAD  K:ONETENTH 

X X 

Switch  bits  13,  14  and  15  of  channel  I4  to  1 (send  CDU^CMD's) 
End  task 

R02B0TH  If  FLAGWRD3  bit  13  (REFSMFLG)  = 1: 

Switch  FLAGWRDO  bit  8 (IMUSE)  to  1 
Return 

If  bit  9 of  IM0DES30  = 1:  (IMU  not  operating) 


Perform  "ALARM"  with  TS  = 00210, 


If  bit  9 of  IM0DES30  = 0: 


(REFSMMAT  invalid) 


Perform  "ALARM"  with  TS  = 00220g 
Proceed  to  "GOTOPOOH" 
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Quantities  in  Computations 


idPIPADT:  Single  precision  time  interval  for  application  of  PIPA  biases 
and  gyro  drift  compensation,  scaled  B8,  or  storage  for  present  time  for 
the  purpose  of  computing  that  time  interval,  scaled  B14,  in  units  of 
centiseconds. 

AHAX:  Single  precision  angular  drift  of  the  X gyro  around  its  output  axis 
caused  by  linear  acceleration  of  the  IMU  in  the  direction  of  the  X gyro 
input  axis  (+XSM),  scaled  B-5  in  units  of  gyro  pulses  / centimeters  per 
second  squared.  (One  gyro  pulse  corresponds  to  2-21  revolutions.) 

AHAY:  Single  precision  angular  drift  of  the  Y gyro  around  its  output  axis 
caused  by  linear  acceleration  of  the  IMU  in  the  direction  of  the  Y gyro 
input  axis  (+YSM) , scaled  B-5  in  units  of  gyro  pulses  / centimeters  per 
second  squared. 

AHAZ:  Single  precision  angular  drift  of  the  Z gyro  around  its  output  axis 
caused  by  linear  acceleration  of  the  IMU  in  the  direction  of  the  Z gyro 
input  axis  (+ZSM) , scaled  B-5  in  units  of  gyro  pulses  / centimeters  per 
second  squared. 

ADSRAX:  Single  precision  angular  drift  of  the  X gyro  around  its  output 
axis  caused  by  linear  acceleration  of  the  IMU  in  the  direction  of  the 

X gyro  spin- reference  axis  (-YSM),  scaled  B-5  in  units  of  gyro  pulses  / 

centimeters  per  second  squared. 

AESRAY:  Single  precision  angilLar  drift  of  the  Y gyro  around  its  output 
axis  caused  by  linear  acceleration  of  the  IMU  in  the  direction  of  the 

Y gyro  spin-reference  axis  (-ZSM),  scaled  B-5  in  units  of  gyro  pulses  / 

centimeters  per  second  squared. 

ADSRAZ:  Single  precision  angular  drift  of  the  Z gyro  around  its  output 
axis  caused  by  linear  acceleration  of  the  IMU  in  the  direction  of  the 

Z gyro  spin-reference  axis  (+YSM),  scaled  B-5  in  units  of  gyro  piolses  / 

centimeters  per  second  squared. 

cm  (CDU  ,CDUy,Cm2):  Single  precision  vector  containing  the  measured 
values  of  the  IMU  gimbal  angles  (outer,  inner  and  middle  gimbal  in  X, 

Y,  and  Z components,  respectively),  scaled  B-1  in  units  of  revolutions 
and  stored  in  two's  complement  form.  Each  component  is  an  LGC  input 
counter  incremented  directly  from  the  Coupling  Data  Unit  in  response  to 
changes  in  the  IMU  gimbal  angles. 

CDU.CMD:(i  = x,y  or  z):  Three  single  precision  coimters  scaled  B1  in  lonits 
of  revolutions,  gated  to  the  ICDU  Error  Counters  by  setting  bits  15,  14 
and  13  of  channel  14.  Bits  15-13  reset  when  respective  counters  reach  -0. 

COMMAND:  Tempory  storage  for  changes  to  the  three  gimbal  angles  during 
coarse  alignment,  scaled  B1  in  lanits  of  revolutions. 

DELV : See  SERV  section. 
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DSPTAB^^:  See  INTR  section. 


%.GYBD‘  precision  vector  containing  three  desired  gyro  torque  angles 

vmose  address  is  specified  at  entry  to  the  IMUPULSE  routine,  scaled  B21 
in  units  of  revolutions.  ^qyb3  GCOMP  or  (OGC  ,1GC  ,MGC ) . 


^OMP:  Double  precision  vector  containing  required  gyro  compensation 
angles,  scaled  B14  (or  B21)  in  imits  of  gyro  pulses  (1  gyro  pulse  = 2 
revolutions) . 

GCOMPSW:  Single  precision  switch  indicating  whether  gyro  compensation  is 
required  or  inhibited,  scaled  B14  and  unitless. 

GYROCMD:  Computercell  counted  down  as  torquing  pulses  are  sent  to  one  of 
the  gyros,  scaled  B14  in  units  of  gyro  pulses.  Used  for  commands  to  all 
three  gyros;  the  pulse  train  is  initiated  by  setting  bit  10  of  Channel  14 
and  it  is  routed  to  the  appropriate  gyro  torque  motor  by  the  setting  in 
bits  7 and  8 of  Channel  14. 

GYRDEEX:  An  index  equivalent  to  that  maintained  by  the  program  in  bits 

15-13  of  LGYBO;  used  to  indicate  which  gyro  is  being  torqued  and  assigned 
a separate  label  merely  for  convenience  in  functional  representation. 


i,,i:  Single  precision  index  registers,  scaled  B14  and  unitless. 

IM0DES30:  Single  precision  flagword  whose  individual  bius  have  the  following 
meanings : 


Bit 

15 

(1) 

(0) 

Bit 

14 

(1) 

(0) 

Bit 

13 

(1) 

(0) 

Bit 

12 

(1) 

(0) 

Bit 

11 

(1) 

(0) 

Bit 

10 

(1) 

(0) 

Bit 

9 

(1) 

(0) 

Bit 

8 

(1) 

(0) 

Bit 

7 

(1) 

(0) 

Bit 

6 

(1) 

(0) 

IMU  temperature  not  within  prescribed  limits 
IMU  temperature  within  limits 

ISS  turn-on  delay  not  in  effect 

ISS  tum-on  delay  initiated  and  in  effect 

IMU  good 
IMU  fail 

ICEU  good 
ICEU  fail 

IMU  not  externally  caged 
IMU  caged,  externally 

PIPA  fan  (identical  to  bit  13  of  IMODES33) 

IMU  off 
IMU  operating 

IMU  turn-on  delay  in  progress 

IMU  tum-on  delay  complete  or  not  initiated 

IMU  turn-on  delay  initiate 
IMU  turn-on  delay  not  initiated 

IMU  caged  (Internally) 

IMU  not  caged 
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Bit  5 (1)  Secondary  FIFA  fail  monitor  inhibited 

(O) , Secondary  FIFA  fail  monitor  enabled 

Bit  4 (l)  IMU  fail  monitor  inhibited 

(O)  IMU  fail  monitor  enabled 

Bit  3 (1)  CEU  fail  monitor  inhibited 

(O)  CIU  fail  monitor  enabled 

Bit  2 (l)  ISS  turn-on  sequence  failure 

(O)  No  ISS  turn-on  sequence  failure  in  effect 

Bit  1 (l)  Primary  FIFA  fail  monitor  inhibited 

(O)  Primary  FIFA  fail  monitor  enabled 

IMODES33  : See  INTR  section. 

IMUCADR:  Single  precision  octal  storage  for  address  to  return  to  program 
that  is  making  use  of  the  ISS  and  waiting  for  a particular  operation  to 
be  accomplished. 

ISSGOOD:  Variable  introduced  as  a suDstitute  for  variable  return  address; 
set  to  1 or  0 to  indicate  whether  an  HW  mode  switch  was  successfully 
completed  (l)  or  not  (O). 

K:70degs:  Single  precision  constant  stored  as  -0.38888,  program  notation 
"-70DEGS,''  scaled  B-1  in  units  of  revolutions.  Equation  value:  +0.19444* 
(Equivalent  to  +69.9984  degrees). 

K:S5degs:  Single  precision  constant  stored  as  -0.38888  + -0.08333,  scaled 
B-1  in  units  of  revolutions.  Equation  value:  +0.23610.  (Equivalent  to 
+84*99  degrees.) 

K:C0ARST0L:  Single  precision  constant  stored  as  -0.01111,  scaled  B-1  in 
units  of  revolutions.  Equation  value:  0.005555*  (Equivalent  to 
+1.9998  degrees.) 

—14-  “14 

K:commax:  Single  precision  constant  stored  as  -191  x 2 and  -1 92  x 2 ’ 

program  notations  "-COMMAX"  and  "-CO’MMAX-" , scaled  B1  in  units  of 
revolutions.  Equation  value:  +0.0234375*  (Equivalent  to  +8.4375  degrees 
or  half  the  mechanical  limit  of  the  ICEU  Error  Counter.) 

K'.dvtoacc:  Implicit  constant  introduced  by  the  scaling  of  DEIV  and  the 
fact  that  the  powered  flight  navigation  cycle  is  2 seconds  long, 
scaled  B-1  in  ’units  of  navigation  cycles  per  second.  Equation  value: 

-21 

K:GYROFRAC:  Ebuble  precision  constant  stored  as  0.215  x 2 , scaled  B21 

in  units  of  gyro  torque  pulses.  Equation  value:  0.21875*  (The  closest 
approximation  to  0,215  with  a least  increment  of  0,0078125.) 

K:gyroinin:  Single  precision  constant  stored  as  77601g,  program  notation 

"-GYRDMIN,"  scaled  B7  in  units  of  gyro  torque  pulses.  Equation  value: 
1.0.  (1  gyro  pulse  is  equivalent  to  2~21  revolutions.) 

K:gyrtm:  Single  precision  constant  stored  as  01000^,  program  notation 
"BITIO,”  scaled  BO  in  units  of  seconds  per  gyro  torquing  pulse. 

Equation  value:  1 / 3200, 
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K:ONETENTH:  See  DAPA  Pection. 


K:pip2Eec:  Single  precision  constant  stored  as  3*1000^,  program  notation 

’'PRIO3I",  scaled  B8  in  units  of  centiseconds . Equation  value:  200. 

LGYRO:  Single  precision  octal  address  (positive)  of  cell  containing 

gyro  torquing  command. 

LOG:  See  MATX  section. 

MPAC:  See  DINT  section. 

NBDX,  NBDY:  Single  precision  angular  drift  around  the  output  axes  of 

the  X and  Y gyros  caused  by  the  passage  of  time,  scaled  B-5  in  units 
of  gyro  pulses  per  centisecond. 

NBDZ:  Single  precision  complement  of  the  drift  around  the  output  axis 

of  the  Z gyro  caused  by  the  passage  of  time,  scaled  B-5  in  units 
of  gyro  pulses  per  centisecond. 

FIFA:  Single  precision  sensed-change-in-velocity  vector  scaled  BI4  in 

units  of  centimeters  per  second,  expressed  in  stable  member  (IMU) 
coordinates.  The  three  components  are  incremented  directly  from 
the  Pulse-Integrating,  Pendulous  Accelerometers  on  the  stable 
member  of  the  IMU. 

PIPABIAS^,  PIPABIASy.,  PIPABIAS^:  Single  precision  bias  factors  for  the 

X,  Y and  Z PIPA's,  scaled  B-3  in  units  of  centimeters  per  second 
per  centisecond  (equivalent  to  PIPA  coiints  per  centisecond). 

PIPASCF  , PIPASCF  , PIPASCF  : Single  precision  scale  factor  errors 
X y z 

associated  with  the  X,  Y and  Z PIPA's  respectively,  scaled  B-9 
and  unitless  (accelerometer  coiints  per  accelerometer  count). 

PIPTIME,  PIPTIME1:  See  SERV  section. 

RADMODES:  See  RADR  section. 

RUPTREG1 : Single  precision  storage  for  portions  of  gyro  torque  commands 
greater  or  equal  to  2 pulses,  scaled  B27  in  units  of  gyro 

pulses  (2  revolutions). 

RTTPTREG2:  Single  precision  storage  for  portions  of  gyro  torque  command 

less  than  one  pulse,  scaled  B7  in  units  of  gyro  torque  pulses. 
Fractional  values  of  commands  are  not  issued  except  in  the  case 
of  gyro  compensation  commands . They  are  stored  for  addition  to 
future  commands. 
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THETAD:  Single  precision  vector  containing  the  gimbal  angles  that 

define  a desired  orientation  between  the  IMU  and  the  spacecraft  for 
attitude  maneuvers  or  IMU  alignment,  scaled  B-1  in  units  of  revolu- 
tions and  stored  in  two's  complement  form. 

TIMENOW:  See  EXVB  section. 
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INTR 


#8 

#9 


#10 

#11 


Program  Interrupts 

Caused  by  underflow  of  counter  TIME6,  starting  address  4004g 
Proceed  to  "D0T6RUPT" 

Caused  by  overflow  of  counter  TIME5,  starting  address  4010g 
Proceed  to  "T5RUPT" 

Caused  by  overflow  of  coimter  TIME3,  starting  address  4014g 
Proceed  to  "T3RUPT"  (start  scheduled  task) 

Caused  by  overflow  of  counter  TIME4,  starting  address  4020g 
Proceed  to  "T4RUPT" 

Caused  by  depression  of  a key  on  the  DSKY  keyboard,  starting 
address  4024g 

Proceed  to  "KEYRUPTl" 

Caused  by  depression  of  mark  or  reject  buttons  or  crew  indication 
of  change  in  desired  descent  rate,  starting  address  4030g 

Proceed  to  "MARKRUPT" 

Caused  by  overflow  of  uplink  serial  input  buffer,  starting  address 
4034g 

Proceed  to  "UPRUPT” 

Caused  by  end  pulse  from  the  downlink  system,  starting  address  4040g 
Proceed  to  "DODOWNTM" 

Caused  by  expiration  of  time  delay  (85-95  ms)  after  bit  4 of 
channel  13  is  set,  starting  address  4044g 

Proceed  to  "RADAREAD" 

Caused  by  input  from  the  rotational  hand  controller,  starting 
address  4050g 

Proceed  to  "PITFALL" 

Caused  by  hardware  difficulties,  starting  address  4000g 
Proceed  to  "GOPROG" 
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T/JUFT  If  DSRUPTSW  < 0,  proceed  to  "QUIKDSP" 

If  DSRUPTSW  = 0,  DSRUPTSW  = 8 
DSRUPTSW  = DSRUPTSW  - 1 
TSruptsw  = DSRUPTSW 

If  bit  15  of  DSPTAB^^  = 1:  (flagged  for  output) 

Svd.tch  bits  15-12  of  DSPTAB^^  to  0 
OUTO  = DSPTAB^^  + 60000g 
DSRUPTSW  = DSRUPTSW  - 8192  - (5) (256) 

Set  TIME4  to  cause  "T4RUPT"  in  20  milliseconds 
Proceed  to  "PROCEEDE" 

If  FLAGWRD5  bit  15  (DSKYFLAG)  = 0 or  if  NOUT  = 0: 
OUTO  = OOOOOg 

Set  TIME4  to  cause  ''TZ4JiUPT"  in  120  milliseconds 
Proceed  to  "PROCEEDE" 

NOUT  = NOUT  - 1 
TS  = -0 

Perform  "DSPSCAN" 

If  SENTCODE  = 0: 

OUTO  = OOOOOg 

Set  TINE4  to  cause  "Ti+RUPT"  in  120  milliseconds 
Proceed  to  "PROCEEDE" 

DSRUPTSW  = DSRUPTSW  - 8192  - (5) (256) 

Set  TIME4  to  cause  "T4RUPT"  in  20  milliseconds 
Proceed  to  "PROCEEDE" 
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PROCEEDE  If  bit  14  of  channel  32  i-  bit  U of  IMODES33:  (proceed  button) 


Set  bit  14  of  IMODES33  = bit  14  of  channel  32 
If  bit  14  of  IMODES33  = 0:  (proceed  button  just  pushed) 

Establish  "PROCKEI"  (pr30) 

If  TSruptsw  = 0 or  4: 

Perform  "RCSMONIT" 

If  TSruptsw  = 1 or  5: 

Perform  "RRAUTCHK" 

Perform  "DAPT4S" 

If  TSruptsw  = 2 or  6: 

Perform  "IMDMON" 

Perform  "GLOCKMON" 


PROG KEY 


If  TSruptsw  - 3 or  7: 

Perform  "DAPT4S" 
Resume 


If 


22  - VERBREG  :^1; 


Proceed  to  ”CHARALRM" 
REQRET  = 0 


DSPCOUNT  = -19 


• Proceed  to  "VBPROC” 
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QUIKDSP  If  DSRUPTSW< -8192: 


(bit  14  = 0) 


DSPSGAN 


OUTO  = OOOOOg 

Set  TIME4  to  cause  "T4RUPT"  in  20  milliseconds 
DSRUPTSW  = DSRUPTSW  + 256  + 8192 
Resume 
If  NOUT  = 0: 

OUTO  = OOOOOg 
Proceed  to  '’SYNCT4" 

NOUT  = NOUT  - 1 
TS  = -0 


Perform  "DSPSGAN" 

If  SENTGODE  =07  (no  display  to  be  changed) 

OUTO  = OOOOOg 
Proceed  to  "SYNGT4" 


Set  TIME4  to  cause  "T4RUPT"  in  20  milliseconds 

DSRUPTSW  = DSRUPTSW  - 8192  +256 

Resume 


If  bit  15  of  DSPTABpgpgj^^  = 1: 


(negative  to  flag  for  output) 


DSPTAB 


DSPGNT 


= DSPTAB 


DSPGNT 


OUTO  = bits  15-11  of  K:RELTAB 
SENTGODE  = 1 


DSPGNT  ^ ^®^'^^®DSPGNT 


Return 

If  DSPGNT  > 0: 

DSPGNT  = DSPGNT  - 1 
Proceed  to  "DSPSGAN" 
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If  TS  = -0  i (first  time  through  list) 

TS  = +0 
DSPCNT  = 10 
Proceed  to  "DSPSCAN" 

NOUT  = 0 
SENT CODE  = 0 
Return 

SYNCT4  TS  = 20 

DSRUPTSW  = DSRUPTSW  +256 
If  DSRUPTSW  < 0: 

TS  = TS  + 20 

Proceed  to  second  step  of  "SYNCT4" 

Set  TIME4  to  call  "T4RUPT"  in  TS  milliseconds 
Resume 


INTR  - 5 


Quantities  in  Computationa 


DSPCNT:  Single  precision  permanent  index,  scaled  B14  and  unitlesa. 

DSPCOUNT:  See  DSKY  section. 

DSPTAB^  (i  = 0-10):  See  DSKY  section. 

DSPTAB, Single  precision  flagword  whose  bits  designate  relays  to  be 
set  to  illuminate  lamps  on  the  DSKY.  Bit  9 lights  the  "program  alarm" 
(prog)  lamp  when  set;  bit  8 lights  the  "tracker  fail"  (TRACKER)  lamp 
when  set;  bit  6 lights  the  "gimbal  lock  warning"  (GIMBAL  LOCK)  lamp 
when  set;  bit  5 lights  the  "LR  altitude  fail"  lamp  when  set;  bit  4 
lights  the  "no  attitude"  (NO  ATT)  lamp  when  set;  and  bit  3 lights  the 
"LR  velocity  fail"  lamp  when  set. 

DSRUPTSW:  Single  precision  index  used  to  cycle  through  the  display  and 
monitor  functions  of  "T4RUPT’,  scaled  B14  and  unitless. 


IMODES33:  Single  precision  flagword  whose  individual  bits  have  the 


following 

significance:  (Bits  15,  10,  9,  and 

4-2  have  no 

Bit 

14 

(1) 

Proceed  button  not  depressed  during  last 

(0) 

Proceed  button  just  pushed 

Bit 

13 

(1) 

PIPA  good 

(0) 

PIPA  fail 

Bit 

12 

(1) 

Downlink  not  too  fast 

(0) 

Downlink  too  fast 

Bit 

11 

(1) 

Uplink  not  too  fast 

(0) 

Uplink  too  fast 

Bit 

8 

(1) 

Inertial  data  just  displayed 

(0) 

Inertial  data  not  displayed 

Bit 

7 

(1) 

Display  altitude 

(0) 

Display  altitude  rate 

Bit 

6 

(1) 

DAP  disable 

(0) 

DAP  enabled 

Bit 

5 

(1) 

ICDU  zeroing  (See 

IMUC  section 

(0) 

ICDU  not  zeroing 

Bit 

1 

(1) 

Lamp  test  in  progress 

(0) 

Lamp  test  not  in  progress 
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K:RELTAB.  (i  = 0-10):  Table  of  eleven  single  precision  constants  containing 
the  routing  codes  for  OUTO  in  bits  15-12.  See  DSPCY  section. 

NOUT:  Single  precision  count  of  the  number  of  DSPTAB  registers  (excluding 
DSPTAB^^)  to  be  output  as  soon  as  possible,  scaled  B14  and  unitless. 

OUTO:  Single  precision  output  register  which  routes  an  eleven-binary- 
bit  display  relay  code  (in  bits  11-1 ) according  to  the  routing  code  in 
bits  15-12.  OUTO  remains  set  for  only  twenty  milliseconds  before 
being  reset  to  OOOOOg.  (Equivalent  to  channel  10.) 

REQRET:  See  DSKY  section. 

SENTCODE:  Variable  quantity  introduced  as  a substitute  for  a variable 
return  address,  switched  to  1 if  a relay  code  is  inserted  in  OUTO 
and  switched  to  0 if  no  code  is  inserted  in  OUTO. 

TIME3:  Single  precision  counter  incremented  every  10  milliseconds 
(every  centisecond)  in  phase  with  the  computer  clock  (TIMENOW) . 

Set  under  program  control  (to  16384  minus  the  required  time  delay 
in  centiseconds)  to  cause  program  interrupt  #3  (when  TIME3  over- 
flows) and  initiate  the  first  task  in  the  waitlist.  (A  task  is 
a routine  initiated  at  a specified  time  by  a "Call"  instruction.) 

TIME4:  Single  precision  counter  incremented  every  10  milliseconds 
(every  centisecond),  7.5  milliseconds  after  the  TIME3  increment. 

Set  under  program  control  (to  16384  minus  the  required  time  delay 
in  centiseconds)  to  cause  program  interrupt  #4- 

TIME5:  Single  precision  counter  incremented  every  10  milliseconds 

(every  centisecond)  in  phase  with  TIME3.  Set  under  program  control 
(to  16384  minus  the  required  time  delay  in  centiseconds)  to  cause 
program  interrupt  #2  (see  DAPA  section). 

TIME6:  Single  precision  counter  decremented  every  0.625  millisecond 
when  bit  15  of  channel  13  is  set.  Set  under  program  control 
(to  required  delay  in  units  of  0.0625  centiseconds)  to  cause  program 
interrupt  #1  (see  DAPA  section). 
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Mathematical  Functions.  Executive,  Waitlist 


Sine , Cosine 

The  routines  "COSINE"  and  "SINE"  are  those  normally  used  to 
calculate  the  cosine  or  sine  of  an  angle.  The  angle  is  input 
in  the  multiple  precision  accumulator  (MPAC)  in  one's  complement 
form,  scaled  BO  in  units  of  revolutions.  The  output  is  a cosine 
or  a sine  in  MPAC,  scaled  B1  and  unitless. 

COSINE  MPAC^p  = T - IwPAC^pl  (4-  corresponds  to  90  degrees) 

SINE  If  iMPAC^pl 

MPAC^p  = i signMPAC^p  - MPAC^^ 

If  iMPAC^pl  ^ i: 

MPAC^p  = slgnMPAC^p  - MPAC^p 

X = MPAC^p  (rescaled  to  B-l) 

TS  = K;snl  x + K;an3  x^  + K:sn5  x^  + K:sn7  + K:sn9  x^ 
MPAC^p  = TS  (rescaled  from  B3  to  Bl) 

Return 

Constant  Coefficients 


Stored  Value 

K:snl 

0.3926990796 

K;sn3 

-0.6459637111 

K:  sn5 

0.318758717 

K;sn7 

-0.074780249 

K:  sn9 

0.009694988 

Single  Precision  Cosine  and  Sine 


Scaled 

Equation  Value 

B4 

2rt 

(=  6.28318527) 

B6 

- 2n^ 

0.166666570 

B8 

0.00833302539 

BIO 

- 2^'^ 

0.000198074150 

B12 

2«9 

0.00000260188699 

(cos  and 
sp 

The  routines  "SPCOS"  and  "SPSIN"  are  used  to  calculate  the  cosine 
or  the  sine  of  an  angle  when  only  single  precision  accuracy  is 
required.  They  make  use  of  the  trigonometric  identities  cos(x)  = 
sin(x  + jt/2)  and  sin(x)  = sin(jt  - x)  and  of  the  Taylor  series 
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* J- rx 

sin(x)  = Y]  (-1)^  ifniT 
i=0 

modified  for  maximum  accuracy  using  only  three  terms.  The  input 
to  both  of  the  routines  is  an  angle  scaled  B-1  in  units  of  revo- 
lutions. The  output  is  a cosine  or  sine  scaled  BO.  Input  and 
output  are  both  through  the  single  precision  accumulator,  denoted 
by  A.  Entry  to  the  routine  is  made  at  "SPCOS"  to  calculate  the 
cosine  and  at  "SPSIN"  to  calculate  the  sine. 

SPCOS  A = A + i 

SPSIN  X = A 

If  )X  I > i,  X = i signX  - X 

If  |x|  >i: 

X = i - X 

If  |x|  = i: 

A = K:posmaxsp  signX  (Krposmaxsp  = almost  1) 

Return 

TS  = Krsnlsp  X + K:sn3sp  X^  + K:sn5sp  X^ 

If  |ts|  2 1,  TS  = Krposmaxsp  signTS 

A = TS 

Return 

Constant  Coefficients 


Stored  Value 

Scaled 

Equation  Value 

K:snlsp 

0.7853134 

B3 

2jt 

(=  6.2824) 

K:sn3sp 

-0.3216147 

B7 

- 2jr^ 

0.16601 

K:sn5sp 

0.0363551 

Bll 

2.5 

0.0076125 

MATX  - 2 


Arcsine,  Arccosine 


The  routines  "ARCSIN"  and  "ARCCOS"  are  those  used  to  calculate 
the  angle  corresponding  to  a given  sine  or  cosine . The  input 
to  the  routine  "ARCSIN"  is  a sine  in  MPAC,  scaled  Bl.  The 
output  from  "ARCSIN"  is  an  angle  between  and  +:|-  that  corre- 
sponds to  the  sine . The  input  to  the  routine  "ARCCOS"  is  a 
cosine  in  MPAC,  scaled  Bl.  The  output  from  "ARCCOS"  is  an 
angle  between  0 and  ^ that  corresponds  to  the  cosine.  The 
angle  output  is  in  MPAC  and  is  scaled  BO  in  units  of  revolutions 
(one's  complement  form).  (-^  in  units  of  revolutions  is  equiv- 
alent to  90  in  units  of  degrees,  etc.) 

ARCSIN  Perform  "ARCSUB" 

MPAC^  = i - TS 
dp 

Return 

ARCCOS  Perform  "ARCSUB" 

MPAC.  = TS 
dp 

Return 

ARCSUB  If  ImPAC.  I < 2“^'^: 

dp 

TS  = i 

Return 

If  MPAC^  > 0,  PorM  = 0 
dp 

If  MPAC^  < 0,  PorM  = 1 
dp 

X = Impac,  I 

dp 

-12 

If  X ^ 1.000244  (1+2  ) , or  if  the  less  significant  half 

of  X is  negative  and  X > 1.000122  (1+2  ^^): 

TSl.  = (LOC  , BANKSET  ) 
dp  o ’ o 

Perform  "ALARMl"  with  TS  = 01301g 
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If  X > 1: 

TS  = -g-  PorM 
Return 

TS  = a/  (1  - X)  / 2 ’ 

TS  = TS  (K:asO  + K:asl  X + Kas2  X^  + . . . + K:as7  X^) 

If  PorM  =1,  TS  = i ~ TS 

Return 

Constant  Coefficients 


Stored  Value 

Scaled 

Equation  Value 

K:asO 

0.353553385 

BO 

1.570796302 

/ 

Kiasl 

-0.0483017006  X 2 

B-1 

-0.214598801 

/ 

K:as2 

0.0200273085  x 2^ 

B-2 

0.088978987 

/ 

V~?: 

K;as3 

-0.0112931863  x 2^ 

B-3 

-0.050174305 

/ 

a/?: 

K:as4 

0.00695311612  x 2^ 

B-4 

0.030891881 

/ 

K:as5 

-0.00384617957  x 2^ 

B-5 

-0.017088126 

/ 

K:as6 

0.001501297736  X 2^ 

B-6 

0.006670090 

/ 

aTs'i 

K;as7 

-0.000284160334  x 2^ 

B-7 

-0.001262491 

/ 

The  numbers  in  the  last  column  (excluding  the  factor  of  1 / aJ  2 ' jt  ) 
agree  closely  with  published  Hastings  series  values. 


Square  Root 

The  "SORT"  routine  computes  the  double  precision  square  root 
of  a triple  precision  number  with  variable  scale  factor  i. 

The  input  is  a triple  precision  scalar  in  MPAC  with  scale  factor 
i.  The  output  is  a double  precision  scalar  in  MPAC  with  scale 
factor  i.  If  i is  an  odd  number,  the  output  will  have  to  be 
divided  by  the  square  root  of  2 to  reduce  its  scale  factor  to 
an  integer. 
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SQJIT 


i = scale  factor  of  MPAC. 


tp 

X = MPAC^  / 2^ 
tp 

If  X ^ 0; 

If  X < -2"^,  proceed  to  "POODOOl"  with  TS  = 21302g 

and  TSl,  = (LOG  , BANKSET  ) 
dp  o ’ o 

Return  with  MPAC,  = 0 
dp 

If  X < T,  repeat  the  indented  steps  until  X -4 


i = i - 2 
X = 4 X 


(X  now  double  precision  and  between  and  1) 

TS  = more  significant  half  of  X 
sp 

If  X ^ i,  BUF  = 0.5884  TS  + 0.4192 
sp  sp 

If  X < i,  BUF  = 0.8324  TS  + 0.2974 

sp  sp 

BUF  = i BUF  + i TS  / BUF 
sp  sp  sp  sp 


TS , = i BUF  + i X / BUF 

dp  sp  sp 


If  TS,  > 1,  TS,  =1-2 
dp  ’ dp 

i = i i 

MPAC,  = 2^  TS^ 
dp  dp 

Return 


-28 


Natural  Logarithm  (complemented) 

The  routine  "LOGSUB"  is  used  to  calculate  the  natural  logarithm 
of  a scalar  using  the  Taylor  series  approximation 
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CO 

ln(x)  = - ^ 

i=l 

truncated  at  i = 7 and  modified  for  maximum  accuracy  in  the 
domain  -g-  £ x < !•  The  input  to  the  routine  is  the  argument  of 
the  function,  scaled  BO  and  stored  in  MPAC  (double  precision) . 
The  output  is  the  complement  of  the  natural  logarithm  of  the 
input,  scaled  B5  and  stored  in  MPAC  (double  precision). 

LOGSUB  i = 0 

X = MPAC , 
dp 

If  X < -g-,  repeat  the  indented  steps  until  X ^ ^ 
i = i - 1 


Constant  Coefficients 

Stored  Value 

Scaled 

Equation  Value 

K:lnO 

0.0000000060 

B5 

0.0000001920 

K:lnl 

-0.0312514377 

B5 

-1.0000460064 

K:ln2 

-0.0155686771 

B5 

-0.4981976672 

K:ln3 

-0.0112502068 

B5 

-0.3600066176 

K;ln4 

-0.0018545108 

B5 

-0.0593443456 
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Stored  Value 

Scaled 

Equation  Value 

K:ln5 

-0.0286607906 

B5 

-0.9171452992 

K:ln6 

0.0385598563 

B5 

1.2339154016 

K:ln7 

-0.0419361902 

B5 

-1.3419580864 

K: cln2 

0.0216608494 

B5 

0.6931471 808 

Conversion  from  Two's  Complement  Form  to  One's  Complement  Form 


Conversion  from  two’s  complement  form  into  one's  complement  form 
is  accomplished  using  the  "CDULOGIC"  routine.  The  input  is  a 
single  precision  angle  in  two's  complement  form,  stored  in  the 
multiple  precision  accumulator  MPAC  and  scaled  B-1  in  units  of 
revolutions.  The  output  is  a double  precision  angle  in  one's 
complement  form,  stored  in  MPAC  and  scaled  BO  in  units  of  revo- 
lutions . 


CDULOGIC 


If  MPAC  > 0: 
sp 


( one ' s 
two ' s 


MPAC 


dp 


MPAC 

sp 


complement  binary  equivalent  to 
complement  binary) 


(shifted  right  one  to 


change  scaling  from  B-1  to  BO) 


If  MPAC  < 0:  (one's  complement  binary  equivalent  to 

two's  complement  binary  minus  one  least 
MPAC^p  = MPAC^^  significant  bit) 

(shifted  right  one  to  change  scaling  from  B-1  to  BO; 

-15  \ 

minus  2 , the  value  of  one  least  significant  bit; 


Return 


Conversion  from  One's  Complement  Form  to  Two's  Complement  Form 

Conversion  from  one's  complement  form  to  two's  complement  form 
is  accomplished  using  one  of  the  three  routines  "1ST02S",  "2V1ST02S" 
or  "V1ST02S"  and  their  common  subroutine  "1T02SUB",  depending  on 
whether  the  quantity  to  be  converted  has  one,  two  or  three  components. 
The  input  to  "1T02SUB"  is  a double  precision  angle  in  one's  comple- 
ment form,  stored  in  MPAC  and  scaled  BO  in  units  of  revolutions . 

The  output  from  "1T02SUB"  is  a single  precision  angle  in  two's 
complement  form,  stored  in  MPAC  and  scaled  B-1  in  units  of  revolutions. 
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1ST02S 


Perform  "1T02SUB" 


Return 

2V1ST02S  Perform  "1T02SIIB"  with  MPAC,  = TS 
dp  X 

TS  = MPAC 
X sp 

Perform  "1T02SUB"  with  MPAC^  = TS 

dp  y 

TS  = MPAC 

y sp 

Change  interpretive  mode  to  double  precision  (two  single 
precision  components  stored  as  one  double  precision  scalar) 

Return 


V1ST02S  Perform  '’1T02SUB"  with  MPAC,  = TS 
dp  X 

TS  = MPAC 
X sp 

Perform  "1T02SUB"  with  MPAC,  = TS 

dp  z 

TS  = MPAC 
z sp 

Perform  "1T02SUB"  with  MPAC,  = TS 

dp  y 

TS  = MPAC 
y sp 

Change  interpretive  mode  to  triple  precision  (three  single 
precision  components  stored  as  one  triple  precision  scalar) 


Return 


1T02SUB  If  MPAC,  > 0: 
dp 


(two's  complement  binary  equivalent  to 
one's  complement  binary) 


MPAC  = MPAC, 
sp  dp 

(shifted  left  one  to  change  scaling  from  BO  to  B-l) 


If  MPAC,  = -0: 
dp 


MPAC  = +0 
sp 


(there  is  only  one  "zero"  in  two's  comple- 
ment form  and  it  is  equivalent  to  the  +0 
in  one ' s complement  form) 
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If  MPAC,  < 0: 
dp 


(two's  con5)lenient  binary  equivalent  to 
one ' 3 complement  binary  plus  one  least 
significant  bit) 


MPAC  = MPAC, 
sp  dp 

. (shifted  left  one  to  change  scaling  from  BO  to  B-1; 
-15 

plus  2 , the  value  of  one  least  significant  bit  in 

single  precision  two's  complement  form  scaled  B-l) 

If  overflow  ()MPAC^p|  > -I-); 

MPAC  = MPAC  - 1 signMPAC 
sp  sp  ^ sp 

Return 

Single  Precision  Arcsine  Routine  (arcsin^p) 

The  routine  "SPARCSIN"  is  used  to  calculate  an  angle  from  a 
given  sine  of  the  angle  when  only  single  precision  accuracy 
is  required.  The  input  to  the  routine  is  the  sine  of  an  angle 
(or  cosine  of  an  angle  if  the  complement  of  the  angle  is 
desired),  scaled  B1  and  unitless.  The  output  is  the  angle 
scaled  B-l  in  units  of  revolutions.  Input  and  output  are  both 
through  the  single  precision  accumulator,  denoted  by  A. 

SPARCSIN  A = 2 A (rescales  to  BC) 

If  overflow  (i.e.  1a|  >1); 

A = signA  Krposmaxsp 

A = KtDPKL  A / 2 + K:DPL3  A^  / 2 + K;DPL5  A^  / 2 
+ K:DPL7  / 2 + K:DPL9  A^  / 2 

Return  (A  contains  2 times  the  angle  in  revolutions 
i.e.,  scaled  B-l) 

Constant  Coefficients 


Value 

K:DPL1  C.64C99121 
K:DPL3  C.C2636718 
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Value 


K:DPL5 

0.44555664 

K;DPL7 

-0.72039794 

K:DPL9 

0.51251221 

DUMMY JB2 

Release  interrupt  inhibit 

ADVAN 


Switch  bit  2 of  channel  11  to  0 (COMP  ACT  off) 

If  NEWJOB  = -0:  (no  jobs;  do  self  test) 

SUPERBNK  = 4 

EBANK  = 2 (bits  3-1  of  BBANK) 

FBANK  = 33g  (bits  15-11  of  BBANK) 

Proceed  to  address  specified  in  SELFRET 

(return  to  self  test  routines  where  they  left  off) 

If  NEWJOB  >0;  (A  job  has  been  awakened  or  established 

with  job  core  set  other  than  zero. 
Before  the  next  step,  an  interrupt  may 
establish  or  awaken  a job  of  higher 
priority  with  job  core  zero;  in  that 
case,  NEWJOB  would  be  reset  to  +0  be- 
fore next  step.) 

Inhibit  interrupts 

If  NEWJOB  >0; 

Switch  bit  2 of  channel  11  to  1 (COMP  ACT  on) 


TSq  = LOCq 


TS^  = BANKSETq 
Proceed  to  "CHANJ0B4" 


Release  interrupt  inhibit 
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(otherwise,  NEWJOB  = +0) 

Switch  bit  2 of  channel  11  to  1 


FINDVAC 


SUPERBNK  = bits  7-5  of  BANKSETq 

EBANK  = bits  3-1  of  BANKSET^  (via  BBANK) 

FBANK  = bits  15-11  of  BANKSET^  (via  BBANK) 

Proceed  to  address  specified  in  LOC^ 

(Entered  to  "Establish"  a job  that  requires  working  storage) 
Inhibit  interrupts 


NEWPRIO  = A (priority,  octal,  in  bits  14-10  of  accumulator) 


NEWLOC 


dp 


contents  of  double  precision  cell  specified  in  Q- 
register 

(stored  in  fixed  memory  after  a "TO  FINDVAC") 


EXECTEMl  = FBANK 

FBANK  = 1 (note:  SUPERBNK  setting  does  not  affect 

FBANK  #1) 


FINDVAC2  Scan  VACiUSE  for  1 = 1-5  for  an  available  VAC  area 

(if  available,  VACiUSE  = its  own  address;  if  not,  it  = +0) 

If  none  available,  proceed  to  "BAILOUTl"  with  TS  =31201g 
and  TSl^p  = (Q-register,  EXECTEMl) 

NEWPRIO  = NEWPRIO  + VACIUSE  + 1 

(priority  in  bits  14-10;  address  of  "1  + VACiUSE"  in  bits  9-1) 


VACiUSE  = +0 


Proceed  to  "N0VAC2" 

SPVAC  (Entered  with  interrupts  inhibited  and  priority  in  NEWPRIO  to 
"Establish"  a job  that  requires  a working  storage) 

Q-register  = Q-register  - 2 
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NOVAC 


N0VAC2 


NOVAC3 


I 

CORFOUND 


(job  starting  address  in  accumulator 
instead  of  in  fixed  memory) 


NEWLOC,  = (A,L) 
dp 

EXECTEMl  = FBANK 
FBANK  = 1 

Proceed  to  '’FINDVAC2" 


(Entered  to  "Establish"  a job  that  requires  no  working 

storage) 

Inhibit  interrupts 

NEWPRIO  = A + "MPAC^"  - "QPRET" 

NEWLOC,  = contents  of  double  precision  cell  specified  in 
^ Q-register 

EXECTEMl  = FBANK 

FBANK  = 1 

LOCCTR  = 0 

EXECTEM2  = 7 

If  PRIORITYj^q^j^^j^  = -0,  proceed  to  "CORFOUND" 

LOCCTR  = LOCCTR  + 12 
If  EXECTEM2  > 0: 

EXECTEM2  = EXECTEM2  - 1 
Proceed  to  "N0VAC3" 

Proceed  to  "BAILOUTl"  with  TS  =31202^.  and  TSl  = 
(Q-register,  EXECTEMl)  (No  available  ^job  cores) 

PRIORITY^q^^^  = NEWPRIO 

PUSHLOCj^q^^^j^  = bits  9-1  of  NEWPRIO 

If  LOCCTR > 0,  proceed  to  "SETLOC" 
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1 


OVFIND  = 0 


FIXLOC  = PUSHLOCq 

SPECTEST  If  NEWJOB  is  negative  or  +0,  proceed  to  "CCSHOLE" 

If  NEWJOB  > 0,  proceed  to  "SETLOC"  (new  job  just 

established  with  job  core  zero,  but  job  of  higher  priority 
awakened  during  same  interrupt  with  job  core  other  than  zero) 

NEWJOB  = +0 


LOCq  = more  significant  half  of  NEWLOC 
BANKSETq  = less  significant  half  of  NEWLOC 
FBANK  = EXECTEML 


Return  to  2 + address  in  Q-register 

SETLOC  LOC^^^^^t,  = more  significant  half  of  NEWLOC 
LOOoiK 

BANKSET^„„™„  = less  significant  half  of  NEWLOC 
LUOulK 

TS  = PRIORITY^^j,g 

If  TS  < NEWPRIO,  NEWJOB  = LOCCTR  (this  job  will  be  started 
at  the  next  entry  to  "CHANJ0B4"  if  NEWJOB  is  set  here) 


FBANK  = EXECTEMl 


Return  to  2 + address  in  Q-register 

CHANGl  (Entered  from  jobs  programmed  in  "basic"  language  to  check 
for  jobs  of  higher  priority) 

TSq  = Q-register 

TS^  = FBANK  + EBANK  (FBANK  in  bits  15-11;  EBANK  in  bits  3-1) 
EBANK  = 2 (bits  3-1  of  BBANK) 

FBANK  = 1 (bits  15-11  of  BBANK) 

Inhibit  interrupts 
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(SUPERBNK  in  bits  7-5) 


TS^  = TS^  + SUPERBNK 

Proceed  to  "CHANJ0B4" 

CHANG2  (Entered  after  the  completion  of  a line  of  interpretive 
instructions  to  check  for  a job  of  higher  priority) 


EBANK  = 2 (bits  3-1  of  BBANK) 

FBANK  = 1 (bits  15-11  of  BBANK) 

Inhibit  interrupts 


TS^  = BANKSETq  + SUPERBNK 


(no  change  if  NEWJOB  = +0) 


BANKSETq  = BANKSET^^jQg 
^^NEWJOB  “ '^^0 

"^n^^^newjob  = ’’^1 

SUPERBNK  = bits  7-5  of  BANKSET^ 

Exchange  MPAC.  of  this  job  with  MB AC.  of  new  job  for  i = 0-7 
^ ^ (MPAC  = MODE) 

If  OVFIND  ^ 0,  PUSHLOCq  = - PUSHLOC^  ' 


0 


OVFIND  = 0 


Exchange  PUSHL0C_  with  PUSHLOC,™,,^,^ 

U JMiIjWJ  Ub 

Exchange  PRIORITY^  with  PRIORITY. 

U NiliW  J Ud 

FIXLOC  = bits  9-1  of  PRIORITY^ 

If  PUSHLOCq  <.  0: 

PUSHLOCq  = - PUSHLOCq 
OVFIND  = 1 
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NEWJOB  = +0 


ENDPRCHG 


PRIOCHNG 


JOBSLEEP 


Release  interrupt  inhibit 

If  LOCq  £ 0; 

LOG  = - LOG  +1 
0 0 

EBANK  = bits  3-1  of  BANKSET^  (via  BBANK) 

FBANK  = bits  15-11  of  BANKSET^  (via  BBANK) 

Proceed  to  interpretive  decoder 

EBANK  = bits  3-1  of  BANKSETq  (via  BBANK) 

FBANK  = bits  15-11  of  BANKSET^  (via  BBANK) 

Proceed  to  job  whose  address  is  specified  in  LOC^ 

Inhibit  interrupts  (Entered  to  "Change  priority"  of  a job) 

NEWPRIO  = A (Priority  in  bits  14-10  of  accumulator) 

BANKSET^  = FBANK  + EBANK  (FBANK  in  bits  15-11;  EBANK  in  bits 
° 3-1) 

EBANK  = 2 

FBANK  = 1 

LOCq  = Q-register 

BUFq  = +0 

PRIORITY  = NEWPRIO  + bits  9-1  of  PRIORITYq 

(changing  priority  in  bits  14-10  but  leaving  VAC 
address  unchanged) 

BUF^  = - PRIORITY^ 

Proceed  to  "EJSGAN" 

(Entered  with  "address  at  which  sleeping  job  is  to  begin 
when  awakened"  in  accumulator) 
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FBANK  = 1 


Inhibit  interrupts 

PRIORITY^  = - PRIORITYq  (to  indicate  that  job  is  asleep) 
BANKSETq  = SUPERBNK  + EBANK 
BUF^  = -0 

Proceed  to  "EJSCAN" 

ENDOFJOB  FBANK  = 1 (Entered  to  "End  job") 

Inhibit  interrupts 
BUF^  = -0 

TS  = bits  9-1  of  PRIORITY^  (1  + address  of  VAC  area  if  any) 
PRIORITY^  = -0 

If  TS  > "MPAC,"  - "QPRET":  (VAC  area  to  be  released) 

D 

VACiUSE  = TS  - 1 (using  VACiUSE  +1  address  in  TS) 

EJSCAN  i = 12 

If  PRIORITY. > 0: 

1 

If  PRIORITY^  - 1 > -BUF^:  (the  "1"  is  insignificant) 

BUF  = - PRIORITY.  + 1 ("1"  does  not  change  priority 

^ information  in  bits  14.-10) 

BUFq  = i (effectively) 

If  PRIORITY^  = +0,  proceed  to  "CCSHOLE" 

If  i < 84: 

i = i + 12 

Proceed  to  second  step  of  "EJSCAN" 
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If  BUr^>  +0,  proceed  to  "CCSHOLE" 

If  BUT^  = -0:  (all  jobs  completed) 

NEWJOB  = -0 


Proceed  to  "DUMMIJB2'> 

If  BUFq  = +0:  ("PRIOCHNG") 

NEWJOB  = +0 
Proceed  to  "ENDPRCHG" 

NEWJOB  = BUFq 

TSq  = ^^*^0  (contents  meaningless  if  end  of  job) 

Inhibit  interrupts 

TS^  = BANKSETq  + SUPERBNK 

Proceed  to  "CHANJ0B4." 


JOBWAKE  Inhibit  interrupts 

TS  = A (starting  address  of  job  when  awakened) 
Q-register  = Q-register  - 2 


EXECTEMl  = FBANK 
FBANK  = 1 
LOCGTR  = 0 


EXECTEM2  = 7 

J0BWA.KE4  If  PRIORI! < 0 and  TS  = LOC^oqqtr’* 
NEWPRIO  = - PRIORITY. 

pRioRitYlocctr 


(correct  sleeper) 


•LOCGTR 
= NEWPRIO 


NEWLOC  = 2000^  f bits  10-1  of  TS 
ms  8 
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(Ef  PRIORITY^j,,^^  < 0 and  TS  = 

HEJILOC,  = bits  15-11  of  TS  + BAHKSBr,„.„_„ 

±S  LQLiLiiK 

If  L0CCTR>  0,  proceed  to  "SBTLOC" 

Proceed  to  "SPECTEST" 

LOCCTR  = LOCCTR  + 12 
If  EXECTEM2  > 0: 

EXECTEM2  = EXECTEM2  - 1 
Proceed  to  "J0BWAKE4" 

LOCCTR  = -1  (indicating  that  no  such  sleeper  was  found) 
FBANK  = EXECTEMl 

Return  to  2 + address  in  Q-register 
DELAYJOB  Inhibit  interrupts 
TSt  = A 
RUPTREGl  = 2 

DELLOOP  If  DELAYLOC^^^j^^^  ^ 0: 

If  RUPTREGl  = 0,  proceed  to  "BAILOUTl"  with  TS  = 31104g 

and  TSl,  =.  (BUF2  , BUF2J 
dp  o’  1^ 

RUPTREGl  = RUPTREGl  - 1 
Proceed  to  "DELLOOP" 

WAITEXIT  = "TCGETCAD"  - 2 
L = FBANK  + RUPTREGl  (FBANK  = 0) 

WAITADR  = "WAKER" 

Proceed  to  "DLY2"  ("returns"  to  "TCGETCAD") 
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TCGETGAD 


WAKER 


WAITLIST 


TWIDDLE 


DELAYLOCj^UPTregi  = bits  10-1  of  BUF2q  -f  BUF2^ 


Proceed  to  "JOBSLEEP"  with  A = DELAYLOC, 


RUPTREGl 


(Must  be  in  FBANK  #0) 


i = FBANK  + EBANK  (=  RUPTREGl  of  above) 

A = DELAYLOC. 

1 

DELAYLOC.  = 0 
1 

Perform  "JOBWAKE" 

Proceed  to  "TASKOVER" 


(Entered  to  "Call"  a task  with  "delta-time  to  interrupt" 
in  accumulator) 

Inhibit  interrupts 


WAITDELT  = A 
WAITEXIT  = Q-register 


("Calling  address"  + l) 


TS,  = contents  of  double  precision  register  specified  in 
WAITEXIT 


L = less  significant  half  of  TS 
WAITADR  = more  significant  half  of  TS 
Proceed  to  "DLY2" 

(Entered  to  "Call"  a task  with  the  same  FBANK,  SUPERBNK  and 
EBANK  as  the  caller.) 

Inhibit  interrupts 

Q-register  = Q-register  - 1 

L = FBANK  + SUPERBNK  + EBANK 

Inhibit  interrupts 
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WAITDELT  = A 


DLY2 

I 


WAITEXIT  = Q-register 
TSadr  = Q-register  + 1 

WAITADH  = contents  of  single  precision  register  specified  in  TSadr 
WAITBANK  = FBANK  + EBANK  (FBANK  in  bits  15-11;  EBANK  in  bits  3-1) 
EBANK  = 3 
FBANK  = 1 

If  WAITDELT  < 0,  proceed  to  "POODOOl"  with  TS  = 21204g  and 

TSi;,  = (WAITEXIT,  WAITBANK) 
dp 

If  TIME3  > 128,  T1  = 16384  - TIME3  (delta-t  to  first  task 

in  list) 

If  TIME3  = 128,  T1  = 1 (improper  performance;  unexpected) 

If  TIME3  < 128,  T1  = - TIME3  (interrupt  has  occurred  and 
is  waiting  to  be  processed;  TIME3  continues  to  count  (every 
centisecond)  until  it  is  reset) 

TSdt  = T1 

If  WAITDELT > TSdt  - 1:  (Call  time  greater  than  or  equal  to 

time  to  earliest  task,  task  zero) 

i = 0 

Proceed  to  "WTLST5" 

TSt  = (8192  - WAITDELT)  + 8192  modulo  2^ 

Exchange  TIME3  and  TSt  (Switch  contents  of  one  to  the  other) 

LSTl.  = LSTl.  for  i = 7 thru  0 in  that  order 
1 1-1 

LSTIq  = 1 - (16384  - TSt  - WAITDELT) 

TS  = more  significant  half  of  LST2^^ 

LST22^  = LST22^_2  lor  1=8  thru  0 in  that  order 
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WTLST5 


I 


LST2q  = (WAITADR  , L)  (double  precision) 

If  TS  4 "SVCT3’',  proceed  to  "BAILOUTl"  with  TS  = 31203g 
and  TSl^p  = (WAITEXIT,  WAITBANK) 

EBANK  = bits  3-1  of  WAITBANK  (via  BBANK) 

FBANK  = bits  15-11  of  WAITBANK  (via  BBANK) 

TSadr  = 2 + WAITEXIT 

Proceed  to  address  specified  in  TSadr  (return  to  caller) 

TSdt  = TSdt  - LSTl.  + 1 (LSTlj^  = 1 - delta  time  between 

^ tasks  i and  i + 1 where  time  to 

task  zero  is  counting  down  now) 

If  WAITDELT>  TSdt  - 1; 
i = i + 1 

If  i = 8,  proceed  to  "BAILOUTl"  with  TS  = 3l203g 
and  TSl^p  = (WAITEXIT,  WAITBANK) 

Proceed  to  "WTLST5" 

WAITTEMP  = TSdt  - WAITDELT  - 1 

LSTl.  = LSTl.  + WAITTEMP  +1  (=  1 - "delta  time  from  task  i 

^ ^ to  new  task") 

LSTl . = LSTl . T for  j = 7 thru  i+2  in  that  order 
J J-1 

LSTl.  , = - WAITTEMP  (=  1 - "delta  time  from  new  task  to  task 
^ ^ which  was  number  i+1  but  has  been  displaced") 

TS  = more  significant  half  of  LST2^^ 

1ST2^.  = LST2^._^  for  j = 8 thru  i+2  in  that  order 

LST22i_|_2  = (WAITADR  , L)  (double  precision) 

If  TS  4 "SVCT3",  proceed  to  "BAILOUTl"  with  TS  = 31203g 
and  TSl^p  = (WAITEXIT,  WAITBANK) 
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EBANK  = bits  3-1  of  WAITBANK  (via  BBANK) 

FBANK  = bits  15-11  of  WAITBANK  (via  BBANK) 

TSadr  = 2 + WAITEXIT 

Proceed  to  address  specified  in  TSadr  (return  to  caller) 
T3RI3PT  BANKRUPT  = FBANK  + SUPERBNK  + EBANK 
QRUPT  = Q-register 
TS  = LSTIq 

LSTl.  = LSTl.  n for  1=0  thru  6 in  that  order 
1 1+1 

LSTl^  = 1 - 8193 
RUPTA®  = -0 

TIME3  = 16383  + TS  + TIME3  (I6384  - delta-time) 

If  overflow,  RUPTAGN  = 1 (two  simultaneous  tasks  or  tardy 

"T3RUPT") 

TSadr  = more  significant  half  of  LST2q 

TSbanks  = less  significant  half  of  LST2q 

LST22^  = LST22^^2  i = 0 thru  14  in  that  order 

LST2^^  = "SVCT3"  (less  significant  half  insignificant) 

SUPERBNK  = bits  7-5  of  TSbanks 

FBANK  = bits  15-11  of  TSbanks  (via  BBANK) 

EBANK  = bits  3-1  of  TSbanks  (via  BBANK) 

Proceed  to  address  specified  in  TSadr 
TASKOVER  If  RUPTA®!  > 0: 

EBANK  = 3 
FBANK  = 1 

Proceed  to  third  step  of  ''T3RUPT" 
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LONGCALL 


LONGCYCL 


t)therwise  , RUPTAGN  = -0) 

SUPERBNK  = bits  7-5  of  BANKRUPT 
Q-register  = QRUPT 

EBANK  = bits  3-1  of  BANKRUPT  (via  BBANK) 

FBANK  = bits  15-11  of  BANKRUPT  (via  BBANK) 

A = ARUPT 
L = LRUPT 

Release  any  interrupt  inhibits 
Resume 

LONGTIME^p  = (A  , L) 

LONGCADR  = contents  of  double  precision  register  specified  in 

Q-register  (stored  in  fixed  at  "calling  address"  + 1) 

LONGEXIT^  = FBANK  + EBANK 

EBANK  = 3 

FBANK  = 1 

LONGEXITq  = Q-register  + 2 

If  LONGTIME  > 0,  proceed  to  "LONGCYCL" 

If  LONGTIMEms  = 0 and  LONGTIME^  < 0 or  if  LONCTIME  < 0, 

Is  ms  ’ 

proceed  to  "POODOOl"  with  TS  = 21204^  and  TSl,  = (LONGEXIT  , 
LONGEXIT^)  ° 

LONGTIME  = LONGTIME  - 8192 

If  LONGTIME,  > 0: 
dp 

Gall  "LONGCYCL"  in  81.92  seconds 
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GETGADR 


FIXDELAY 


VARDELAY 


If  LONGTIME,  ^ 0: 
dp 

TSt  = LONGTIME^  + 8192 
Is 

Gall  "GETGADR"  in  TSt  centlseconds 
EBANK  = bits  3-1  of  LONGEXIT^ 

FBANK  = bits  15-11  of  LONGEXIT^ 

TSadr  = LONGEXIT^ 

LONGEXITq  = "TASKOVER" 

Proceed  to  address  specified  in  TSadr  (return  or  "End  task") 

TSbanks  = less  significant  half  of  LONGGADR 

TSadr  = more  significant  half  of  LONGGADR 

EBANK  = bits  3-1  of  TSbanks 

FBANK  = bits  15-11  of  TSbanks 

Proceed  to  address  specified  in  TSadr 

(Entered  to  "delay"  during  a task) 

A = contents  of  single  precision  cell  specified  in  Q-register 

Q-register  = Q-register  + 1 

WAITDELT  = A 

WAITADR  = Q-register 

L = FBANK  + SUPERBNK  + EBANK 

WAITEXIT  = "TASKOVER"  - 2 

Proceed  to  "DLY2" 
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Routines  used  for  inter-bank  communication 
(not  a complete  list;  included  for  example  only) 


BANKCALL 


SWGALL 


SMRETURN 


POST JUMP 


BANKJTJMP 


BUr2Q  = A 
BUF2^  = L 

A = contents  of  single  precision  cell  specified  in  Q-reglster 
Q-register  = Q-register  + 1 
FCADR  = A 
TS  = FBANK 

FBANK  = bits  15-11  of  FCADR 
TSadr  = 02000^  + bits  10-1  of  FCADR 
A = BUF2q 

(to  preserve  their  contents  during  a "BANKCALL") 

L = BUF2^ 

BUF2q  = Q-register 
BT]F2^  = TS 

Proceed  to  address  specified  in  TSadr 

FBANK  = BUF2^  (without  disturbing  contents  of  A or  L) 

Proceed  to  address  specified  in  BUF2q 
TS  = A 

A = contents  of  single  precision  cell  specified  in  Q-register 
FBANK  = bits  15-11  of  A 
TSadr  = 02000g  + bits  10-1  of  A 
A = TS 

Proceed  to  address  specified  in  TSadr 
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MAKECADR 


SUPDACAL 


FCADR  = bits  15-11  of  BUF2^  + bits  10-1  of  BUr2Q 
Return 

TSmp  = FBANK  + SUPERBNK 

FBANK  = bits  15-11  of  FCADR 

TSadr  = 02000g  f bits  10-1  of  FCADR 

Inhibit  interrupts 

SUPERBNK  = bits  7-5  of  L 

A = contents  of  cell  whose  address  is  specified  in  TSadr 

SUPERBNK  = bits  7-5  of  TSmp 

Release  interrupt  inhibit 

FBANK  = bits  15-11  of  TSmp 

Return 
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Quantities  in  Computations 


A:  Single  precision  accumulator  with  overflow  bit  in  addition  to  the 
usual  sign  bit  and  fourteen  magnitude  bits-  (Stored  in  ARUPT  during 
an  interrupt . ) 

BANKRUPT:  Single  precision  storage  for  current  bank  settings  when  a job 
is  interrupted  and  the  banks  are  reset  to  process  the  interrupt. 

BANKSETi  (i  = 0,  12,  24,  36,  48,  60,  72,  84):  Single  precision  storage 
for  the  FBANK,  SUPERBNK,  and  EBANK  settings  required  by  each  job; 
part  of  the  job  core  assigned  to  each  active  job.  (FBANK  in  bits 
15-11;  SUPERBNK  in  bits  7-5;  EBANK  in  bits  3-1.) 

BUF.  (i  = 0,1):  Single  precision  working  storage  cells  used  in  "EJSCAN" 
to  determine  the  job  of  highest  priority  if  any  are  active. 

BUF2j^  (i  = 0,1) : Single  precision  storage  for  the  return  address  and 
FBANK  setting  during  a temporary  transfer  to  another  FBANK. 

DELAYLOC^  (1  = 0,1,2):  Single  precision  address  of  one  of  three  jobs 
being  "delayed" . 

EBANK:  Single  precision  register  which  controls  erasable  memory  access; 
scaled  B5  and  expressed  as  an  octal  quantity  between  0 and  7.  Gated 
directly  to  bits  3-1  of  BBANK. 

EXECTEMl,  EXECTEM2:  Single  precision  ten^jorary  storage  cells. 

FBANK:  Single  precision  register  which  controls  fixed  memory  access  in 
conjunction  with  the  SUPERBNK  register;  scaled  B4  and  expressed  as  an 
octal  quantity  between  0 and  37^.  Gated  directly  to  bits  15-11  of 
BBANK.  ^ 

FGADR:  Single  precision  address  with  FBANK  setting  used  for  inter-bank 
communication  with  no  change  in  the  SUPERBNK  setting.  Bits  15-11 
contain  the  FBANK  setting  and  bits  10-1  contain  the  address. 

FIXLOG:  Single  precision  address  of  the  VAG  area  (or  job  core  accumu- 
lator. MPAG^^  - 42g)  of  the  job  being  executed. 

L:  Single  precision  "less  significant"  half  of  the  accumulator  when  it 
contains  a double  precision  number.  (Stored  in  LRUPT  during  an 
interrupt . ) 
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LoCi  (i  = 0,  12,  24,  36,  48,  60,  72,  84):  Single  precision  storage  for  the 
S-register  portion  of  the  starting  address  of  a job;  part  of  the  job 
core  assigned  to  each  active  job.  If  an  interrupted  job  is  using 
the  interpreter  language,  LOG  is  complemented. 

LOCGTR;  Single  precision  job  core  index,  scaled  B14  and  unitless. 

LONGCADR:  Double  precision  storage  for  starting  address  and  bank 
settings  for  a task  in  "LONGCALL". 

LONGEXITj^  (i=0,l) : Single  precision  storage  for  address  and  bank  settings 
of  routine  that  is  "calling"  a task  via  "LONGCALL". 

LONGTIME:  Double  precision  time  interval  from  "now"  to  the  time  of 
initiation  of  a task  in  "LONGCALL";  scaled  B28  in  units  of  centi- 
seconds . 

LSTl.  (i=l-7) : Single  precision  storage  for  "one  minus  the  delta-time 
between  tasks  i and  1+1,"  where  task  i=0  is  the  one  for  which  TIME3 
is  counting  down;  scaled  B14  in  units  of  centiseconds . 

LST2-  (i=2,  4,  6,  8,  10,  12,  14,  I6) : Double  precision  storage  for 
address  and  bank  settings  for  each  task  in  the  waitlist.  Set  equal 
to  the  address  of  "SVCT3"  when  not  in  use  (to  cause  "SVCT3"  to  be 
executed  every  81.93  seconds). 

MPACj^  (i=0-7):  Multiple  precision  accumulator  used  automatically  by  jobs 
coded  in  the  interpretive  language  (via  the  interpretive  decoder)  and 
sometimes  by  jobs  coded  in  basic  language.  A set  of  eight  single 
precision  cells  associated  with  a particular  job  and  used  exclusively 
by  that  job.  When  a job  is  put  to  sleep  or  is  interrupted  by  a job 
of  higher  priority,  MPAGo_7  are  saved  as  part  of  the  "job  core" 
reserved  for  that  job,  and  they  are  reset  exactly  as  they  were  when 
the  interrupted  job  is  re-established. 

NEWJOB:  Single  precision  index  of  the  job  core  of  the  active  job  of 

highest  priority,  scaled  B14  and  unitless;  set  to  -0  when  no  jobs  are 
active . 

NEWLOC:  Double  precision  temporary  storage  for  the  LOG  and  BANKSET  of  a 
job  being  established. 

NEWPRIO:  Single  precision  temporaiy  storage  for  the  priority  and  VAC 
area  address  for  a job  being  established. 
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OVFIND:  Single  precision  overflow  indicator  associated  with  the  job 
being  executed. 

PRIORITYi  (i=0,  12,  24,  36,  48.  60,  72,  84):  Single  precision  storage 
for  the  priority  (bits  14-10)  and  VAC  area  address  assigned  to  each 
active  job;  if  a job  is  "sleeping",  PRIORITY  is  negative;  if  the  job 
core  of  which  a particular  PRIORITYi  is  a part  is  available,  PRIORITYi 
is  equal  to  -0.  (Adjusted  for  a NOVAG  job  so  that  QPRET  will  equal 
MPAC^.) 

PUSHLOGi  (i=0,  12,  24,  36,  48,  60,  72,  84):  Single  precision  address  of 
the  next  available  position  in  the  VAC  area  of  a particular  job, 
set  equal  to  the  first  position  in  the  list  when  a job  is  established. 
If  a job  is  interrupted  while  the  overflow  indicator  is  set,  PUSHLOC 
is  complemented. 

Q-register;  Single  precision  return  address  register  automatically  set 
by  a TC  instruction  (basic)  equal  to  "calling  address"  + 1 (address 
of  instruction  Immediately  following  the  TC  instruction) . 

QPRET:  Single  precision  octal  return  address  storage  cell  loaded  by 
interpretive  transfer  instructions  (equals  VAC^  or  MPAC^) . 

QRUPT:  Single  precision  storage  for  current  value  of  Q-register  when  a 
job  is  interrupted,  for  reloading  the  Q-register  when  the  interrupt  is 
completed. 

RUPTAOT:  Single  precision  cell  used  in  "T3RUPT"  to  determine  if  more  than 
one  task  must  be  processed  at  a single  interrupt. 

RUPTREd:  Single  precision  temporary  storage'  cell. 

SELFRET:  See  TEST  section. 

SUPERBNK:  Single  precision  LGC  channel  which  controls  fixed  memory  access 
in  conjunction  with  the  FBANK  register;  scaled  BIO  and  expressed  as 
an  octal  quantity  between  0 and  4. 

TIME3:  See  INTR  section. 

VACiUSE  (i=l,  2,  3,  4,  5):  Single  precision  register  at  the  head  of  each 
of  the  five  working  storage  areas  (VAC  areas)  that  may  be  assigned  to 
jobs.  Each  VAC  area  contains  43  single  precision  cells  plus  VACiUSE. 
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WAITADR:  Single  precision  "S-register"  portion  of  the  address  of  a 
task  being  inserted  in  the  waitlist. 

WAITBANK:  Single  precision  storage  for  current  EBANK  and  FBANK  while 
these  banks  are  switched  to  enter  a task  in  the  waitlist. 

WAITDELT:  Single  precision  time  interval  between  "now"  and  time  at 
which  a task  is  to  start,  scaled  B14  in  units  of  centiseconds . 

WAITEXIT:  Single  precision  return  address  to  routine  that  is  "calling" 
a task;  used  to  locate  the  task  address  when  it  is  stored  in  fixed 
memory  at  the  calling  address  +1  and  2. 

WAITTEMP:  Single  precision  delta-time  between  time-from-now  at  which 
task  i + 1 will  be  executed  (time  to  task  zero  is  counting  down  "now") 
and  time-from-now  at  which  new  task  is  to  be  executed . 


MATX 


30 


I 


ORBI 


I 


I 


Orbital  Integration 


STATEINT 


STATINTl 


Establish  "STATINTl" 

End  task 

If  FLAG!WED9  bit  5 (QUITFLAG)  = 1: 

Switch  FLAGWRD9  bit  5 (QUITFLAG)  to  0 
End  j ob 

TDEGl  = TIMENOW 

Perform  "INTSTALL"  (wait  until  orbital  integration  free) 
Switch  FLAGWRD2  bit  1 (NODOFLAG)  to  1 

Perform  "SETIFLGS"  (Set  up  for  Encke  without  W-matrix) 

Switch  FLAGWRD3  bits  15  (POOHFLAG)  and  3 (VIOTFLAG)  to  1 

If  FLAGWRD8  bit  8 (SUEIFFLAG)  = 1 and  FLAGWRD5  bit  1 
(RENDWFLG)  = 1; 

Switch  FLAGWRD3  bit  1 (DIMOFLAG)  to  1 (6x6) 

Switch  FLAGWRD3  bit  8 (PRECIFLG)  to  0 
Perform  "INTEGRV" 

If  FLAGWRD8  bit  8 (SURFFLAG)  = 1: 

Switch  FLAGWRD2  bit  1 (NODOFLAG)  to  0 
Proceed  to  "ENDINT" 

TDECl  = TETCSM 
Perform  " INTSTALL" 

Switch  FLAGWRD3  bit  3 (VINTFLAG)  to  0 
Perform  "SETIFLGS" 


(pr05) 
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SETIFLGS 


ENDINT 


CSMPREC 


LEMFREG 


If  FLAGWRD5  bit  1 (RENDWFLG)  = 1: 

Switch  FLAGWRD3  bits  1 (DIMOFLAG)  and  2 (d60R9FLG) 
to  1 

Switch  FLAGWRD3  bit  8 (PRECIFLG)  to  1 
Perform  "INTEOIV" 

Switch  FLAGWRD2  bit  1 (NODOFLAG)  to  0 
Proceed  to  "ENDINT" 

Switch  FLAGWRD3  bit  5 (STATEFLG)  to  1 (integrate  stored 

state  vector) 

Switch  FLAGWRD3  bit  4 (INTYPFLG)  to  0 (Specify  Encke) 
Switch  FLAGWRD3  bits  1 (DIMOFLAG)  and  2 (d60R9FLG)  to  0 
Return 

Switch  FLAGWRD3  bit  5 (STATEFLG)  to  0 
Call  "STATEINT"  in  600  seconds 
End  job 

Perform  "INTSTALL" 

IRETURN  = return  address  to  caller  of  "CSMPREC" 

Switch  FLAGWRD3  bit  3 (VINTFLAG)  to  1 

Switch  FLAGWRD3  bit  8 (PRECIFLG)  to  1 

Switch  FLAGWRD3  bits  1 (DIMOFLAG)  and  4 ( INTYPFLG)  to  0 

Proceed  to  second  step  of  "INTEGRV" 

Perform  "INTSTALL" 

IRETURN  = return  address  to  caller  of  "LEMPREC" 

Switch  FLAGWRD3  bit  3 (VINTFLAG)  to  0 


(9x9) 
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CSMCONIC 


LEMGONIC 


INTEGRV 


Switch  FLAGWRD3  bit  8 (PRECIFLG)  to  1 

Switch  FLAGWRD3  bits  1 (DIMOFLAG)  and  4 (INTYPFLG)  to  0 

Proceed  to  second  step  of  "INTEGRV" 

Perform  "INTSTALL" 

IRETURN  = return  address  to  caller  of  "CSMCONIC" 

Switch  FLAGWRD3  bits  3 (VINTFLAG)  and  4 (INTYPFLG)  to  1 
Switch  FLAGWRD3  bit  1 (DIMOFLAG)  to  0 
Proceed  to  second  step  of  "INTEffllV" 

Perform  "INTSTALL" 

IRETURN  = return  address  to  caller  of  "LEMGONIC" 

Switch  FLAGWRD3  bits  3 (VINTFLAG)  and  1 (DIMOFLAG)  to  0 
Switch  FLAGWRD3  bit  4 (INTYPFLG)  to  1 
Proceed  to  second  step  of  "INTE(31V" 

IRETURN  = return  address  (to  caller  of  "INTEGRV") 

Switch  FLAGWRD8  bits  15  (RPQFLAG)  and  13  (NEWIFLG)  to  1 
If  FLAGWRD3  bit  3 (VINTFLAG)  = 1; 

Perform  "MOVEPCSM" 

Set  FLAGWRDO  bit  12  (MOONFLAG)  = FLAGWRD8  bit  12  (CMOONFLG) 
If  FLAGWRD3  bit  3 (VINTFLAG)  = 0; 

If  FLAGWRD8  bit  8 (SURFFLAG)  = 1,  proceed  to  "USEPIOS" 
Perform  "MOVEPLEM" 

Set  FLAGWRDO  bit  12  (MOONFLAG)  = FLAGWRD8  bit  11  (LMOONFLG) 
PBODY  = 0 
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If  FLAGWRDO  bit  12  (MOONFLAG)  = 1,  PBODY  = 2 


INTEGRVS 


ALOADED 


RVCON 


RECTOUT 


Proceed  to  "ALOADED" 

IRETURN  = return  address 

Switch  FLAGWRD3  bit  8 (PRECIFLG)  to  1 

PBODY  = 0 

If  FLAGWRDO  bit  12  (MOONFLAG)  = 1,  PBODY  = 2 
TDELTAV  = 0 
TNUV  = 0 

Perform  "RECTIFY" 

Switch  FLAGWRD3  bit  1 (DIMOFLAG)  to  0 

Switch  FLAGWRD8  bits  15  (RPQFLAG)  and  13  (NEWIFLG)  to  1 

TDEC  = TDECl 

If  FLAGWRD3  bit  4 (INTYPFLG)  = 0,  proceed  to  "TESTLOOP" 
TAU  = TDEC  - TET 
Perform  "RECTIFY" 

Perform  "KEPPREP" 

TET  = TET  + TC 
Perform  "RECTIFY" 

MTT  = pECT 
VATT  = TOECT 
TAT  = TET 
TSmu  = K:MUpgQj^Y 

MUDEX  =0  (-2  in  index  register  1,  XI ) 
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If  FLAGWRDO  bit  12  '(MOONFLAG)  = 1,  MUDEX  = 8 
(-10  in  index  register  1 , XI ) 


INTEXIT 


RECTIFY 


TESTLOOP 


(AVEMIDSW)  to  0 
(PRECIFLG)  to  0 
(STATEFLG)  to  0 

(awaken  any  jobs  waiting  to  integrate) 
(with  PBODY  in  index  register  2,  X2) 
(Scaling 
controlled 
by  PBODY) 

VCV  = TOECT 
TOELTAV  = 0 
TNUV  = 0 
TC  = 0 
XPREV  = 0 


Switch  FLAGWRD9  bit  1 
Switch  FLAGWRD3  bit  8 
Switch  FLAGWRD3  bit  5 
Perform  "INTWAKE" 
Return  via  IRETURN 
PECT  = RCV  + TDELTAV 
RCV  = pEGT 
TOECT  = VCV  + TNUV 


Return 


If  FLAGWRD9  bit  5 (QUITFLAG)  = 1; 

Switch  FLAGWRD3  bit  5 (STATEFLG)  to  0 
Proceed  to  "INTEXIT" 
i = PBODY 

Switch  FLAGWRDO  bit  13  (MIDFLAG)  to  0 (MIDFLAG  should 

remain  zero  in 
LUMINARY) 


If  |eCv|  > K:RMi: 

Switch  FLAGWRDO  bit  13  (MIDFLAG)  to  1 
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TIMESTEP 


TSstep  = K:p3D  / K:MUi 

TSstep  =2'  integral  part  of  (TSstep  / 2 j 128  centiseconds) 
If  overflow  or  if  TSstep  > 2 K;DTd2MAX,  TSstep  = 2 K:DTd2MAX 
DTd2  = ^ (TDEG  - TET) 


(truncated  to 
„ a multiple  of 

■»'\l  TOrt  L« 


If  overflow  or  if  |DTd2|  ^ ^ TSstep,  DTd2  = -g-  TSstep  slgnDTd2 

If  |DTd2|  < K:DTd2MIN,  proceed  to  "A-PGHK"  (convergence) 

If  FLAGWRD3  bit  15  (POOHFLAG)  = 1 and  bit  8 ( PREGIFLG ) =0 : ("STATEIOT") 

If  DTd2  < TSstep,  proceed  to  "A-PGHK"  (don't  integrate 

past  even  time step) 

If  FLAGWRD8  bit  13  (NEWIFLG)  = 1: 

Switch  FLAGWRD8  bit  13  (NEWIFLG)  to  0 

If  TET  >TDEG,  proceed  to  "INTEXIT" 

(don't  integrate  backwards) 


If  (TDEG  - TET)  < 8 DTd2,  proceed  to  "INTEXIT" 

(don't  integrate  unless  more  than  4 timesteps  behind) 


If  FLAGWRDO  bit  13  (MIDFLAG)  = 0,  proceed  to  "REGTEST" 
(midflag  should  remain  zero  in  LUMIhAPtY) 


If  DTd2  ^GV  • VG^  < 0,  proceed  to  "REGTEST" 

If  FLAGWRDO  bit  12  (MOONFLAG)  = 1,  proceed  to  "LUNSPH" 
If  FLAGWRD8  bit  15  (RPQFLAG)  = 1: 

TSt  = TET 


Perform  "LSPOS" 


^QV  = TSsun 
i = PBODY 

If  |RCV  - ^QV|  < K:RSPHERE: 
Perform  "ORIGGHNG" 
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(If  I ROT  - RPQV|  < K:RSPHERE:) 

Proceed  to  "INTCllATE" 

Proceed  to  "RECTEST" 

LUNSPH  If  |RCV|  < KrRSPHERE,  proceed  to  "RECTEST" 
If  FLAGWRD8  bit  15  (RPQFLAG)  = 1: 

TSt  = TET 
Perform  "LSPOS" 

RPQV  = -TSsun 
Perform  "ORIGCHNG" 

Proceed  to  " INTGRATE" 

ORIGCHNG  Perform  "RECTIFY" 

RMCT  = RCV  - ^QV 
RCV  = PECT 

If  FLAGWRDO  bit  12  (MOONFLAG)  = 1: 


I 


TS  = - TS 

- yyy  - yyy 


(note  that  TS  is  not  defined) 

- yyy 


VRECT  = VCV  - TSyyy 
VCV  = VRECT 

If  FLAGWRDO  bit  12  (MOONFLAG)  = 1: 

PBODY  = 0 

Convert  ^V,  RRECT,  VCV  and  VRECT  to  earth  scaling 
If  FLAGWRDO  bit  12  (MOONFLAG)  = 0: 

PBODY  = 2 
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(If  FLAGWRDO  bit  12  (MOONFLAG)  =0:) 

Convert  RCV,  ERECT,  VCV  and  VRECT  to  moon  scaling 
Invert  FLAGWRDO  bit  12  (MOONFLAG) 

Return 

RECTEST  If  ItDELTAvI  ^ Ktrectr,  if  |tDELTAv|  / IrCvI  > K;RECRATIO,  or 
if  |TNUV|  > K:rectv: 

Perform  "RECTIFY" 

INT  GRATE  OT  = pUV 

YV  = TDELTAV 

Switch  FLAGWRDO  bit  14  (JSWITCH)  to  0 
DIFEQCNT  = 0 
4LPHAV  = YV 
H = 0 

If  FLAGWRDO  bit  14  (JSWITCH)  = 1: 

Proceed  to  "DOW.." 

AC COMP  i = PBODY 

py  = 0 

PTAV  = ALPHAV  + RCV 
If  FLAGWRD3  bit  1 (DIMOFLAG)  = 1: 
j = - DIFEQCNT 
PCTAB-  = EETAV 
ALPHAM  = IpPHAV] 

Perform . " GAMCOMP" 

PPHAV  = BETAV 


ORBI  - 8 


ALPHAM  = BETAM 

If  FLAGWRDO  bit  13  (MIDFLAG)  = 0;  (MIDFLAG  should  remain 

zero  in  LUMINARY) 

Perform  "OBLATE" 

Proceed  to  "NBRANCH" 

TSt  = TET 
Perform  "LSPOS" 

i = 2 (index  MU  of  secondary  body) 

If  FLAGWRDO  bit  12  (MOONFLAG)  = 1: 

TSsun  = - TSsun 
i = 0 

BETAV  = TSsun 
^QV  = pTAV 

PSV  = TSxxx  (note  that  TSxxx  is  not  defined) 

If  MODREG  = 23  or  if  FLAGWRD3  bit  1 (DIMOFLAG)  =1:. 
j = 6 - DIFEQCNT 
pCTABj  = pPHAV  - BETAV 
RQW  = pCTABj 

Switch  FLAGWRDS  bit  15  (RPQFLAG)  to  0 

If  FLAGWRDO  bit  12  (MOONFLAG)  = 1,  RPSV  = pSV  + PQV 

Perform  "GAMCOMP"  (BETAV  = PQV) 

BETAV  = pSV 

i = 4 (to  index  MU  of  the  sun) 

Perform  "GAMCOMP" 
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Perform  "OBLATE" 

Proceed  to  "NBRANCH" 

GAMCOMP  BETAM  = |BETAV| 

RHO  = ALPHAM  / BETAM 

q = RHO  ( RHO  - 2 unit^^PHAV  • unitBETAV  ) 
DdBETA  = Vr+V 


3 + 3 q + q*" 


Fq  = q 


1 + (1+q) 


TSgam  = - K 


JI2. 

RHO  (unltALPHAV  + unitBETAV  Fq  / RHO ) 


BETAM^ 


DdBETA' 


F V = F V + TSgam 

If  overflow,  proceed  to  "GOBAQUE" 
Return 


OBLATE  i = PBODY 

If  ALPHAM  > K;RD.,  return 
If  FLAGWRDO  bit  12  (MOONFLAG)  = 0: 

COS^  = Z component  of  unitALPHAV 
UZ  = KrUNITZ 

If  FLAGWRDO  bit  12  (MOONFLAG)  = 1 : 

TSt  = TET 
Perform  "MOONMX" 

URPV  = [mOONMAT]  (unitALPHAV  - ( [mOONMAT]"^  P504)  * 
COS0  = Z component  of  URPV  unitALPHAV) 

TS  = [MOONMAT  jT  (K:UNITZ  - (K:  UNITZ  IJy[504) ) 

UX  = [MOONMAT (K:UNITX  - (K:UNITX  LM5O4) ) 

UZ  = TS 
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I 


P2  ' = 3 COS0 

P3  ' = ^ (15  COS02  _ 3) 

P;^'  -(l/3)(7  P3  ' COS0  - 4 P2’) 
P5  ' = i (9  P4'  COS0  - 5 P3') 


TS  = 


K 

"3’  + I, 


TS 

TS 


= TS  - 


iiaa/p  \ 

LPHM  I ^ ALPHM  5 Ij 

UlEl  /p_, 

LPHM  I 


unitALPHAV 


+ EiiMh  p,  , 

ALPHM  ^ 


■)] 


UZ 


ALPHM 

TS  K:j2i/ALPHM^  (computed  quasi  floating  point) 


p = FV  + TS 


If  overflow,  proceed  to  "GOBAQUE" 

If  FLAGWRDO  bit  12  (MOONFLAG)  = 0,  return 

TSl  = 5(UEPVy2  _ uRPVx^)  unitMPHAV  + 2 URPVx  UX  + 2 UEFVy  (UX  UZ) 

TS  = 5 URPVx  (1-7  COS02)  unitMPHAV  + (5  CO302  _ 1)  ux  + (10  URPV^ 
URPV^)  UZ 

TS2  = (E32C31RM/ALPHM)  TS  + E3J22R2M  TSl 
= TS2/ALPHM^ 


FV  = FV  + TS 


If  overflow,  proceed  to  "GOBAQUE" 


i = PBODY 


Return 
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GOBAQUE 

i 


NBRANGH 


DIFEQ.+2 


If  I TOELTAV  I = 0, 
TAU  = TC  - H 
TET  = TET  - H 
Perform  "KEPPREP" 


proceed  to  "POODOO" 
with  TS  = 204308 


Perform  "RECTIFY" 

Switch  FLAGWRD8  bit  15  (RPQFLAG)  to  1 
Proceed  to  "TESTLOOP" 

If  DIFEQCNT  = -24,  proceed  to  "DIFEQ+2" 
If  DIFEQCNT  = -12; 

psiv  = PHiv  + 4 ly 
PHIV  = PHIV  + 2 ly 
If  DIFEQCNT  = 0; 


PHIV  = ly 
H = H + DTd2 


DIFEQCNT  = DIFEQCNT  - 12 
ALPHAV  = YV+H  (CT+iH|y) 

If  FLAGWRDO  bit  14  (JSWITCH)  = 1,  proceed  to  "DOW.." 

TAU  = TC  + DTd2 

(DTd2  rounded  to  nearest  centisecond  if 
TET  = TET  + DTd2  DIFEQCNT  = -24) 


Perform  "KEPPREP" 


Proceed  to  "ACCOMP" 

YV  = YV  + H (OT  + PHIV  H / 6) 

OT  = OT  + (PSIV  + ly)  H / 6 

If  FLAGWRDO  bit  14  (JSWITCH)  = 0,  proceed  to  "ENDSTATE" 
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ENDSTATE 


(W;.  , = ZV 


4n 


6n' 


(“in  • “2n  ’ "Sn)  = ^ 

If  overflow,  proceed  to  "WMATEND" 

If  n < 1: 


TDECl  = TDEC 

Proceed  to  third  step  of  "INTEGRV" 
n = n - 1 

Proceed  to  "NEXTCOL" 

If  overflow,  proceed  to  "GOBAQUE" 

TNUV  = ZV 
TDELTAV  = YV 

If  FLAGWRD9  bit  2 (MIDAVFLG)  = 1,  proceed  to  '’CKMID2'’ 

If  FLAGWRD3  bit  1 (DIMOFLAG)  = 0,  proceed  to  "TESTLOOP” 

Switch  FLGWRDIO  bit  7 (REINTFLG)  to  1 

(integration  routine  to  be  restarted) 

If  FLAGWRD3  bit  3 (VINTFLAG)  = 1: 

Perform  "MOVEACSM" 

Switch  FLAGWRD8  bit  12  (CMOONFLG)  to  1 
Perform  "SVDWNl" 

Set  FLAGWRDS  bit  12  (CMOONFLG)  = FLAGWRDO  bit  12  (MOONFLAG) 
If  FLAGWRD3  bit  3 (VINTFLAG)  = 0; 

Perform  "MOVEALEM" 

Switch  FLAGWRDS  bit  11  (LMOONFLG)  to  1 
Perform  "SVDWN2" 
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(If  FLAGWRD3  bit  3 (VINTFLAG)  =0:) 

Set  FLAGWRD8  bit  11  (LMOONFLG)  = FLAGWRDO  bit  12 

(MOONFLAG) 

Switch  FLAGWRDO  bit  14  (JSWITCH)  to  1 
n = 6 


NEXT COL 


DOW.. 


If  FLAGWRD3  bit  2 (d60R9FLG)  =1,  n = 9 

^ = (^in’ 

^ 


j = 0 

DIFEQCNT  = 0 
ALPHAV  = YV 
H = 0 

If  FLAGWRDO  bit  14  (JSWITCH)  = 0,  proceed  to  "ACCOMP" 
i = PBODY 


BETAM  = K:MU. 

1 

TS  = 3 (ALPHAV  • unitVECTAB  ) unitVECTAB . - ALPHAV 

_ _ _ j _ j _ 

py  = TS  BETAM/  IVECTAB^.l  ^ 

If  FLAGWRDO  bit  13  (MIDFLAG)  = 0,  proceed  to  "NBRANCH" 
(midflag  should  remain  zero  in  LUMINARY ) 

j = 6 

i = 2-PBODY  (earth  or  moon) 


BETAM  = K:MU. 

1 

TS  = 3 (ALPHAV  • unitVECTAB^.)  unitVECTAB^  - ALPHAV 
TS  = TS  BETAM  / IvECTAbJ  ^ 
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KEPPREF 


WMATEND 


USEPIOS 


If  FLAGWRDO  bit  12  (MOONFLAG)  = 0: 

Shift  TS  right  6 places  for  scaling 

ly  = ly  + TS 
Proceed  to  "NBRANCH" 

KEPRTN  = return  address 
i = PBODY 
ROOTMU  = K:MU^  ' 

A5  = i unitRCV  • VCV 
Q = (TAU  - TC)  / |RCVj 

TS  = I (K:MU^  - |VCV|  ^ |ROT|  ) / IRCV]  (=  - | (^  - J) 

XKEPNEW  = XPREV  + ROOTMU  Q (l  - A5  Q + 2 A5^  + TS) 

MUDEX  =0  (-2  in  index  register  1,  XI ) 

If  FLAGWRDO  bit  12  (MOONFLAG)  = 1,  MUDEX  =8  (-10  in  index 

register  1,  Xl) 

Proceed  to  "KEPLERN"  (return  directly  to  calling  program 

from  "KEPLERN") 

Switch  FLAGWRD3  bits  1 (DIMOFLAG)  and  6 (ORBWFLAG)  to  0 
Switch  FLAGWRD5  bit  1 (RENDWFLG)  to  0 
Switch  FLAGWRD3  bit  5 (STATEFLG)  to  1 
Perform  "ALARM"  with  TS  = 00421g 
Proceed  to  "TESTLOOP" 

TSt  = TDECl 
TET  = TDECl 
Perform  "MOONMX" 
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RCV  = [mOONMA'^'^  + m50U  * ^s) 

Switch  FLAGWRDO  bit  12  (MOONFLAG)  to  1 
Perform  "MOONMX" 

TS  = [mOONMA:^^  (KiUNITZ  + m504  * K:UNITZ) 

VCV  = KtOMECMOON  TS  * RCV 
TDELTAV  = 0 
PBODY  = 2 
TNUV  = 0 

A-PCHK  If  FLAGWRD3  bit  5 (STATEFLG)  = 0,  proceed  to  "RECTOUT" 

Switch  FLGWRDIO  bit  7 (REINTFLG)  to  1 
If  FLAGWRD3  bit  3 (VINTFLAG)  = 1: 

Perform  "MOVEACSM" 

Switch  FLAGWRD8  bit  12  (CMOONFLG)  to  1 
Perform  "SVDWNl" 

Set  FLAGWRD8  bit  12  (CMOONFLG)  = FLAGWRDO  bit  12  (MOONFLAG) 
If  FLAGWRD3  bit  3 (VINTFLAG)  = 0; 

Perform  "MOVEALEM" 

Switch  FLAGWRD8  bit  11  (LMOONFLG)  to  1 
Perform  "SVDWN2'' 

Set  FLAGWRD8  bit  11  (LMOONFLG)  = FLAGWRDO  bit  12  (MOONFLAG) 
Proceed  to  "RECTOUT" 

MOVEPCSM  XPREV  = XKEPCSM 


ORBI  - 16 


TO  = TCCSM 


MOVEPLEM 


MOVEACSM 


VCV  =VCVCSM 
RCV  = RCVGSM 
TNUV  = NUVCSM 
TDELTAV  = DELTACSM 
TET  = TETCSM 
VRECT  = VRECTCSM 
^CT  = ^CTCSM 
Return 

XPREV  = XKEPLEM 
TO  = TCLEM 
VCV  = VCVLEM 
RCV  = RCVLEM 
TNUV  = NUVLEM 
TDELTAV  = DELTALEM 
TET  = TETLM 
VRECT  = VRECTLEM 
RRECT  = pECTLEM 
Return 

XKEPCSM  = XPREV 
TCCSM  = TC 
VCVCSM  = VCV 
RCVCSM  = RCV 
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MOVEALEM 


AVETOMID 


NUVCSM  = TNUV 
DELTAGSM  = TDELTAV 
TETCSM  = TET 
TOECTCSM  = VRECT 
PEGTCSM  = PEGT 
Return 

XKEPLEM  = XPREV 
TGLEM  = TG 
VCVLEM  = VGV 
RGVLEM  = RGV 
NUVLEM  = TOUV 
DELTALEM  = TDELTAV 
TETLEM  = TET 
VREGTLEM  = VREGT 
PEGTLEM  = ^GT 
Return 

EOIESS  = return  address 

If  FLAGWRD5  bit  1 (RENDWFLG)  or  FLAGWRD3  bit  6 (ORBWFLAG)  = 1 
(Integrate  W-matrix  through  burn) 

Perform  "INTSTALL" 

Switch  FLAGWRD3  bits  1 (DIMOFLAG)  and  2 (d60R9FLG)  to  1 
Switch  FLAGWRD9  bit  1 (AVEMIDSW)  to  1 
Switch  FLAGWRD3  bit  3 (VINTFLAG)  to  0 
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(If  FLAGWRD5  bit  1 (RENDWFLG)  or  FLAGWRD3  bit  6 (ORBWFLAG)  = lO 


MIDTOAVl 


TDECl  = PIPTIME 
Perform  "INTEGRV" 

Perform  "INTSTALL" 

Switch  FLAGWRD3  bit  3 (VINTFLAG)  to  I 
Perform  "SETIFLGS" 

TDECl  = PIPTIME 
Perform  "INTEGRV" 

Perform  "INTSTALL" 

RRECT  = M (scaling  controlled  by  LMOONFLG) 

RCV  = M 

TET  = PIPTIME 

VRECT  = VN 

VCV  = VN 

TDELTAV  = 0 

TNUV  = 0 

TG  = 0 

XPREV  = 0 

Perform  "MOVEALEM" 

TRKMKCNT  = 0 
Perform  "INTWAKE" 

Return  via  EGRESS 
IRETURNl  = return  address 
TSerror  = 0 


ORB I - 19 


MIDT0AV2 


Switch  FLAGWRD9  bit  3 (MIDIFLAG)  to  1 
If  TDECl  < TIMENOW  + K:TIMEDELT: 

Switch  FLAGWRD9  bit  3 (MIDIFLAG)  to  0 
TSerror  = 1 

Perform  "ALARM"  with  TS  = 01703g 
TDECl  = TIMENOW  + K;TIMEDELT 
Skip  next  three  steps 
IRETURNl  = return  address 
Switch  FLAGWRD9  bit  3 (MIDIFLAG)  to  0 
TDECl  = TIMENOW  + K:TIMEDELT 
Perform  "INTSTALL" 

Switch  FLAGWRD3  bits  1 (DIMOFLAG),  3 (VINTFLAG)  and  4 

(INTYPFLG)  to  0 

Switch  FLAGWRD9  bit  2 (MIDAVFLG)  to  1 
Perform  "INTEGRV" 

Switch  FLAGWRD9  bit  2 (MIDAVFLG)  to  0 
Ml  = MTT 
VNl  = VATT 
PIPTIMEl  = TAT 

RTX2  = X2  (0  for  earth,  2 for  moon) 

RTXl  = XI  (-2  for  earth,  -10  for  moon) 

Inhibit  interrupts 
TSt  = PIPTIMEl  - TIMENOW 
Return  via  IRETURNl 
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CKMID2 


If  FLAGWRD9  bit  3 (MIDIFLAG)  = 1; 


INTSTALL 


INTWAKE 


If  TDEC  > TIMENOW  + KrTIMEDELT,  proceed  to  "TESTLOOP" 
Switch  FLAGWRD9  bit  3 (MIDIFLAG)  to  0 
TS error  = 1 

Perform  "ALARM"  with  TS  = 01703g 
TDEC  = TIMENOW  + KrTIMEDELT 
Proceed  to  "TESTLOOP" 

If  I TDEC  - TET|  < K:3CSECS,  proceed  to  "A-PCHK" 

TDEC  = TIMENOW  + KrTIMEDELT 
Proceed  to  "TESTLOOP" 

QPRET  = return  address 

If  FLGWRDIO  bit  14  (INTFLAG)  or  7 (REINTFLG)  = Ir 
Put  present  job  to  sleep 

When  awakened,  job  will  resume  at  second  step  of  "INTSTALL" 
when  jobs  of  higher  priority  have  been  completed 

Switch  FLGWRDIO  bit  14  ( INTFLAG)  to  1 

Return  via  QPRET- 

If  FLGWRDIO  bit  7 (REINTFLG)  = Ir  (means  restarted) 

TBASE2  = QPRET  of  present  job 

Set  restart  group  2 to  resume  computations  at 
next  step 

QPRET  (of  present  job)  = TBASE2 

If  FLGWRDIO  bit  7 (REINTFLG)  = Or  (i.e.  if  got  a restart) 
Return  via  QPRET  (of  present  job) 
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INTWAKEl  Awaken  job  or  jobs  put  to  sleep  in  "INTSTALL" 


INTWAKEU 


Switch  FLGWRDIO  bits  14  (INTFLAG)  and  7 (REINTFLG)  to  0 
Return  via  QPRET  (of  present  job) 

Release  interrupt  inhibit 

If  UPSVFLAG  = 0:  (UPSVFLAG  is  the  third  component  of 

of  a state  vector  update) 

Perform  "INTWAKEl" 

Return 
RCV  = pECT 
VCV  = VRECT 
TOELTAV  = 0 
TNUV  = 0 
TO  = 0 
XPREV  = 0 
i = 0 

Switch  FLAGWRDO  bit  12  (MOONFLAG)  to  0 
If  I UPSVFLAG I = 2; 
i = 2 

Switch  FLAGWRDO  bit  12  (MOONFLAG)  to  1 
If  UPSVFLAG >0: 

Perform  "MOVEACSM" 

Switch  FLAGWRD8  bit  12  (CMOONFLG)  to  1 
Perform  "SVDWNl" 
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P76 


I 

I 


(If  UPSVFLAG>0;) 

Set  FLAGWRD8  bit  12  (CMOONFLG)  = FLAGWRDO  bit  12 

(MOONFLAG) 

Switch  FLAGWRD3  bit  6 (ORBWFLAG)  to  0 
If  UPSVFLAG  <0: 

Perform  "MOVEALEM" 

Switch  FLAGWRD8  bit  11  (LMOONFLG)  to  1 


Perform  "SVDWN2" 

Set  FLAGWRD8  bit  11  (LMOONFLG)  = FLAGWRDO  bit  12 

(MOONFLAG) 

Switch  FLAGWRD5  bit  1 (RENDWFLG)  to  0 
UPSVFLAG  = 0 


Perform  "INTWAKEl" 

Return 

Switch  FLAGWRDl  bit  5 (TRACKFLG)  to  1 

DELVOV  = DELVLVG 

Proceed  to  "GOFLASH"  with  TS  = K:V06N33  (TIG) 

([f  terminate,  proceed  to  "ENDP76"  if  proceed,  continue 
at  next  step;  other  response,  repeat  this  step.) 

Proceed  to  "GOFLASH"  with  TS  = K:V06n84  (DELVOV) 

(if  terminate,  proceed  to  "ENDP76"  if  proceed,  continue 
at  next  step;  other  response,  repeat  this  step.) 

TDECl  = TIG 


Perform  "CSMPREC" 


TSv  = 


'unit(unitRATT  * VATT)  * unitRATT 
unit(VATT  * unitMTT) 

_ - unitMTT 


DELVOV  + PTT 


Perform  "INTSTALL" 


ORBI  - 23 


Set  FLAGWRDO  bit  12  (MOONFLAG)  = FLAGWRD8  bit  12  (GMOONFIG) 
VCV  = TSv  (scaling  controlled  by  MOONFLAG) 

RCV  = MTT 
TFT  = TIG 

Switch  FLAGWRD3  bit  4 (INTYPFLG)  to  0 
TDECl  TETLEM 
Perform  "INTEGRVS" 

Perform  "INTSTALL" 

PECT  = MTT 
RCV  = MTT 
TET  = TAT 
VRECT  = VATT 
VCV  = VATT 
TDELTAV  = 0 
TNUV  = 0 
TC  = 0 
XPREV  = 0 

Switch  FLGWRDIO  bit  7 (REINTFLG)  to  1 
Perform  "MOVEACSM" 

Switch  FLAGWRD8  bit  12  (CMOONFLG)  to  1 
Perform  "SVDWNl" 

Set  FLAGWRD8  bit  12  (CMOONFLG)  = FLAGWRDO  bit  12  (MOONFLAG) 
Perform  "INTWAKEl" 
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ENDP76 


TRKMKCNT  = 0 


Proceed  to  "GOTOPOOH" 
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Quantities  in  Computations 


A5:  Double  precision  intermediate  quantity  used  in  calculation  of 
XKEPNEW,  scaled  B7  (earth)  or  B5  (moon)  in  units  of  meters  per 
centisecond . 

ALPHAM:  Double  precision  magntiude  of  ALPHAV,  with  identical  scaling 
and  units . 

ALPHAV:  Working  storage  for  double  precision  position  deviation  vector, 
scaled  B22  (earth)  or  BlS  (moon)  in  units  of  meters,  or  for  total 
position  vector,  scaled  B29  (earth)  or  B27  (moon)  in  units  of 
Actually,  ALPHAV  is  changed  to  a unit  vector,  but  this  was  not  si  . 
for  ease  in  presentation. 

BETAM:  Double  precision  magntiude  of  BETAV  or  magnitude  of  K:MIT^  w . Lh 
variable  scaling  and  units . 

BETAV:  Double  precision  total  position  vector  of  the  spacecraft  ii. 
relation  to  the  earth,  moon  or  sun,  expressed  in  reference  coo>  :■ 
with  variable  scaling  in  units  of  meters. 

COSJi^:  Double  precision  argument  for  "OBLATE"  equations,  scaled  B1  and 
unitless.  Equivalent  to  the  oosine  of  the  angle  between  the  unit 
polar  vector  (earth  or  moon)  and  the  total  position  vector  (earth  or 
moon  centered  coordinates). 

DdBETA:  Double  precision  ratio  of  D divided  by  BETAM  where  D is  the 
magnitude  of  the  vector  D = BETAV  - ALPHAV;  scaled  B1  and  unitiess. 

DELVLVC:  Double  precision  value  of  velocity  increment  in  local  vc. ■ ■ ' 

coordinates,  scale  factor  B7,  units  meters  per  centisecond. 

DELVOV:  Double  precision,  instantaneous  delta-velocity  vector  to  f 
added  (at  time  specified  in  TIG)  to  the  permanent  GSM  state  vector 
maintained  in  the  LGC  to  reflect  a burn  performed  by  the  GSM;  scaled 
B7  in  units  of  meters  per  centisecond  and  expressed  in  local  ver'f.al 
coordinates  of  the  GSM  at  TIG. 

DIFEQGNT:  Single  precision  cell  used  for  program  control  purposes,  having 
values  of  0,  -12  and  -24  at  the  beginning,  middle  and  end  of  each 
integration  step. 

DTd2:  Double  precision  time  increment  for  precision  integration  corres- 
ponding to  half  of  one  integration  time-step,  scaled’ B19  in  units  of 
centiseconds. 

E32G31RM:  Single  precision  erasable  memory  constant,  scale  factor  B80; 
giving  information  on  the  G_.  term  for  the  lunar  gravity  model.  The 

cell  contains  x 1.5  x r^  x mu  . The  value  corresponds  to 
5 1 A V ® Q -80 

X 1.5  X (1.73809  x lo'^)^  x 0.4902778  x 10^  x 2 ° . 
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E3J22R2M:  Single  precision  erasable  memory  constant,  scale  factor  B58, 
giving  information  on  the  1^2  term  for  the  lunar  gravity  model.  The 

cell  contains  x 3 x r,,^  x mu  . The  value  corresponds  to 

J22  X 3 X (1.73809  X 10  ) x 0.4902778  x 10^  x 2 

EGRESS:  Single  precision  octal  return  address  storage  cell. 


Fq:  Special  function  used  in  Encke's  method  of  integration  to  achieve 
greater  accuracy,  double  precision,  scaled  B1 . See  pages  11  and  190 
in  Astronautical  Guidance  by  R.  H.  Battln  (McGraw-Hill,  1964). 


Double  precision  disturbing  acceleration  vector,  scaled  B-I6  (earth) 
or  B-20  (moon)  in  units  of  meters  per  centisecond  squared.  See  pages 
1 89-191  of  Astronautical  Guidance  by  R.  H.  Battin  (McGraw-Hill,  1964) 

H:  Double  precision  time  since  beginning  of  integration  step,  scaled 
BI9  in  units  of  centiseconds. 


1;  Single  precision  index  scaled  BI4. 

IRETURN,  IRE TURN 1 : Single  precision  octal  return  address  storage  cells. 


J:  Single  precision  index  scaled  BI4. 
KEPRTNr  See  CONG  section. 


-28 

K:3CSECS:  Double  precision  constant  stored  as  3 x 2~  , scaled  B28  in 

units  of  centiseconds.  Equation  value:  3- 

5 -20 

K:DTd2MAX:  Double  precision  constant  stored  as  4x10  x2  , scaled 
BI9  in  units  of  centiseconds.  Equation  value:  200,000. 


K:DTd2MIN:  Double  precision  constant  stored  as  3 x 
in  units  of  centiseconds.  Equation  value;  1.5. 


scaled  B19 


21  -72 

K:J2q:  Double  precision  constant  stored  as  1.75501139  x 10  ^ x 2 , 

program  notation  "J2REQSQ",  scaled  B72  in  units  of2J:|ieters^/centi- 
seconds  squared .. Equation  value:  3.75501139  x 10  ._2 (Equivalent 

to  3.986032  X 10  ^ X (6.378165  x 10°)  x 0.10823  x 10  .) 


1 n —60 

K:j22:  Double  precision  constant  stored  as  3.067493316  x 10  x 2 , 

program  notation  "J2REQSQ-2"  , scaled  B60  in  iinit^^of  meter s^/centl- 
second  squared.  Equation  value:  3.P67493316  x 10  . ^Equivalent 

to  0.4902778  X 10^  X (1.738090  x 10°)  x 0.207108  x 10  ^ 


L —27 

Kjj3j2„:  Double  precision  constant  stored  as  -1.355426363  x 10^  x 2 , 

pro^am  notation  "2J3RE/J2",  scaled  B27  in  units  of  meters.  Equation 
value:  -1.355426363  x 10^.  (Equivalent  to  -0.23  x 10  x 6.378165  x 

10V0-10823  X 10  .) 
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K;j3J22!  Double  precision  constant  stored  as  -1.7623602  x x 2 
program  notation  ’'2J3RE/J2-2'' , scaled  B25  in  units  of  meters. 

Equation  value:  -1 .7623602„x  10^.  (Equiyalent^to 
(-2.1  X 10^/0.207108  X 10  X 1.73809  x 10  x 2 ^ 

6 —26 

K:j4j3o:  Double  precision  constant  stored  as  4.991607391  x 10  2 , 

program  notation  "J4REQ/J3,"  scaled  B26  in  units  of  meters. 

Equation  value:  4.991^7391  x 10°.  (Equivalent  to  -0.18  x 10"^  x 
6.378165  X lOV-0.23  x 10-5.) 

K:j4j32!  Double  precision  constant  stored  as  0,  program  notation 
" J4REQ/J3-2 ."  Equation  value:  0. 

K:MUq:  Double  precision  constant  stored  as  3.986032  x 10^^  2“^^, 
program  notation  "MUEARTH",  scaled  B36  in  units  of  meters  cubed/ 
centisecond  squared.  Equation  value:  3.986032  x 10^*^. 

K:MU2:  Double  precision  constant  stored  as  4.9027780  x 10^  , 

program  notation  "MUM",  scaled  B30  in  units  of  meters  cubed/cent.i 
second  squared.  Equation  value:  4.9027780  x 10°. 

K:MU, : Double  precision  constant  stored  as  1.32715445  x 10^^  2 

program  notation  "MUEARTH-4,"  scaled  B54  in  units  of  meters  cubed/ 
centisecond  squared.  Equation  value:  1.32715445  x 10^°. 

—8  23 

K:0MEO^00N:  Double  precision  constant  stored  as  2.66169947  x 10  2 , 

scaled  B-23  in  units  of  radians  per  centisecond.  Equation  value: 
2.66169947  x 10“®. 

_2 

K:p3D:  Double  precision  constant  stored  as  0.3  x 2 , scaled  B2  and 

unitless.  Equation  value:  0.3. 

-29 

K:RDq:  Double  precision  constant  stored  as  80,467,200  x 2 , program 

notation  "RDE,"  scaled  B29  in  units  of  meters.  Equation  value: 
80,467,200. 

-27 

K:RD2:  Double  precision  constant  stored  as  16,093,440  x 2 , program 

notation  "RDM,"  scaled  B27  in  units  of  meters.  Equation  value: 
16,093,440. 

K:RECRATI0:  Double  precision  constant  stored  as  0.01,  scaled  BO  and 
unitless.  Equation  value:  0.01. 

K:rectr:  Double  precision  constant  stored  as  0.75,  program  notation 

"3/4,"  scaled  B22  (earth)  or  B18  (moon)  in  units  of  meters.  Equation 
value:  3,145,728  (earth)  or  196,608  (moon). 
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Krrectv:  Double  precision  constant  stored  as  0.75,  program  notation 
"3/4,"  scaled  B3  (earth)  or  B-1  (moon)  in  units  of  meters  per  centi- 
second.  Equation  value:  6 (earth)  or  0.375  (moon). 

—28 

KrEMg;  Double  precision  constant  stored  as  1 - 2 , program  notation 

"RME,"  scaled  B29  in  units  of  meters.  Equation  value:  536,870,910. 

K:R>fe:  Double  precision  constant  stored  as  1 - 2“^^,  program  notation 
"RMM,"  scaled  B27  in  units  of  meters.  Equation  value:  134,217,727.5. 

-29 

K:RSPHERE:  Double  precision  constant  stored  as  64,373,760  x 2 , scaled 

B29  in  units  of  meters.  Equation  value:  64,373,760. 

-28 

K:TIMEDELT:  Double  precision  constant  stored  as  2000  x 2 , scaled  B28 

in  units  of  centiseconds . Equation  value:  2000. 

K:UNITX,  K:UEITZ:  See  SERV  section. 


1^504:  Double  precision  libratlon  vector  of  the  moon,  scaled  BO  in 
units  of  radians,  and  expressed  in  moon-centered,  moon-fixed  coordi- 
nates . 

MODREG:  Program  number  from  DSKY;  see  DATA  section. 

j^MOONMAlj  : See  COOR  section. 

MUDEX:  See  CONG  section. 

n:  Single  precision  index  scaled  B14  and  used  to  indicate  the  column 
of  the  W-matrix  that  is  being  integrated. 

P2',  P3'>  P4'»  P5':  Double  precision  Legendre  polynomial  derivatives, 
scaled  b6,  B5,  B7  and  BIO,  respectively. 

PBODY:  Single  precision  index  used  to  distinguish  between  constants 
pertaining  to  the  earth  (O)  and  the  moon  (2);  scaled  B14. 

PHIV:  Double  precision  intermediate  storage  for  the  disturbing  accelera- 
tion vector,  scaled  B-13  (earth)  or  B-17  (moon)  in  units  of  meters 
per  centisecond  squared.  Used  to  Implement  the  second-order  difference 
equation, 

-t+h  ^ -t  ^ O^t  t -t+^  -tH 

which  is  valid  to  the  fourth  degree.  position  deviation 

vector  at  time  t+h,  etc.) 
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PIPTIME,  PIPTIMEl;  See  SERV  section. 


PSIV:  Double  precision  vector  storage  for  intermediate  values  of  dis- 
turbing acceleration,  scaled  B-13  (earth)  or  B-17  (moon)  in  units 
of  meters  per  centisecond  squared.  Used  to  implement  the  first-order 
difference  equation. 


h 


Itrt  = it  + I <St+h  + * " St) 


which  is  valid  to  the  fourth  degree.  (a^^^  is  the  second  derivative 
of  the  position  deviation  at  time  t + etc.) 


q:  Double  precision  argument  for  Fq,  scaled  B2  and  unitless. 

Q:  Double  precision  intermediate  quantity  used  in  calculating  an  initial 
guess  for  the  universal  conic  variable;  scaling  varies  downward  from 
BO  (earth)  and  B2  (moon);  units  of  centiseconds  per  meter. 


QPRET;  Single  precision  octal  return  address  associated  with  a particular 
job,  saved  when  a job  is  put  to  sleep;  actually  one  of  several  mutually 
exclusive  cells,  each  addressed  only  within  a particular  job.  "QPRET" 
for  one  job  is  independent  of  and  not  affected  by  the  address  stored 
in  "QPRET"  by  another  job.  See  MA.TX  section. 

MTT;  Double  precision  position  vector  output  from  orbital  integration, 
valid  at  time  TAT,  scaled  B29  in  units  of  meters.  (Called  MTTl  and 
scaled  B29  (earth)  or  B27  (moon)  for  output  to  routines  desiring 
segregated  scaling. "7” 

RCV : Double  precision  conic  portion  of  the  position  vector  at  TET,  com- 
puted from  the  osculating  conic  at  rectification  (TET  - TC) , scaled 
B29  (earth)  or  B27  (moon)  in  units  of  meters. 


RCVCSM,  RCVLEM:  The  permanent  state  vectors  for  the  GSM  and  LM  contain 
six  double  precision  vectors  and  three  double  precision  scalars  - a 
total  of  twenty-one  double  precision  components.  They  are  listed 
below  along  with  the  name  of  the  equivalent  working  variable  used 
in  precision  integration  of  each. 


CSM 


LM 


RCVCSM 

VCVCSM 

TCCSM 


RCVLEM 

RCV 

VCVLEM 

VCV 

TCLEM 

TC 
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GSM 

LM 

DELTAGSM 

DELTALEM 

TDELTAV 

NUVGSM 

NUVLEM 

TNUV 

TETGSM 

TETLEM 

TET 

RREGTGSM 

RREGTLEM 

RREGT 

VREGTGSM 

VREGTLEM 

VREGT 

XKEPGSM 

XKEPLEM 

XPREV 

RHO:  Ratio  of  position  deviation  to  total  distance  from  the  primary- 
body,  or  ratio  of  spacecraft  radius  to  radius  of  secondary  body 
(moon  or  sun,  earth  or  sun),  scaled  B1  and  unitless. 

^S:  See  CONG  section. 

M,  Ml:  See  SERV  section. 

ROOTMU:  See  CONG  section  . 

MQV:  Double  precision  position  vector  of  secondary  body  with  respect 
to  the  primary  body,  scaled  B29  in  units  of  meters;  expressed  in 
reference  coordinates. 

MSV:  Double  precision  position  vector  of  the  sun  with  respect  to  the 
primary  body,  scaled  B38  in  units  of  meters  and  expressed  in  refer- 
ence coordinates. 

RQW;  Double  precision  spacecraft  position  vector  with  respect  to  the 
secondary  body,  scaled  B29  in  units  of  meters;  expressed  in  refer- 
ence coordinates. 

RREGT:  Double  precision  -total  position  vector  at  the  last  rectification, 
scaled  B29  (earth)  or  B27  (moon)  in  units  of  meters.  See  GONG  section. 

RTXl,  RTX2:  Single  precision  values  of  index  registers  XI  and  X2  re- 
spectively at  the  end  of  integration  to  identify  the  nature  of  the 
origin  of  the  state  vector. 

TAT:  Double  precision  state  vector  time-tag  output  from  orbital  inte- 
gration, scaled  B28  in  units  of  centiseconds . 

TAU:  See  GONG  section. 

TBASE2;  Single  precision  cell  normally  used  to  retain  time  base  in- 
formation for  restart  group  2,  for  waitlist  restarts.  It  is  used 
in  "INTWAKE"  to  retain  the  value  of  QPRET  for  restart  purposes. 
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TDEC:  Double  precision  time  at  the  end  of  the  desired  integration 
inteorval,  scaled  B28  in  units  of  centiseconds . 

TDECl:  Double  precision  storage  for  TDEC  in  individual  job  registers 
so  that  several  jobs  can  maintain  different  values  of  TDEC 
simultaneously.  (See  description  of  QPRET). 

TDELTAV:  Double  precision  deviation-from-conic-position  vector,  scaled 
B22  (earth)  or  B18  (moon)  in  units  of  meters. 

TET:  Double  precision  time  associated  with  the  most  recently  computed 
state  vector,  scaled  B28  in  units  of  centiseconds. 

TETCSM:  See  description  of  ^VCSM. 

TIG:  See  BURN  section. 

TIMENOW:  Current  time,  B28,  centiseconds.  See  EXVB  section. 

TNUV:  Double  precision  deviation-from-conic-velocity  vector,  scaled 
B3  (earth)  or  B-1  (moon)  in  units  of  meters  per  centisecond. 

TRKMKCNT:  See  RNAV  section. 

TSsun:  Double  precision  vector  contents  of  the  MPAC  when  return  from 
"LSPOS",  representing  the  unit  position  vector  of  the  sun,  scaled 
B1  and  unitless.  See  CODR  section.  (it  should  be  noted  that  TSsun 
is  a unit  vector  scaled  B1  but  ^QV,  into  which  it  is  stored,  is 
scaled  B29.  However,  the  affected  section  should  not  be  entered  in 
LUMINARY) . 

UPSVFLAG:  Single  precision  flag  loaded  with  a state  vector  update 
(address  of  UPSVFLAG  is  just  before  that  of  REECT)  to  indicate 
whether  update  is  for  LM  state  or  CSM  state  and  whether  it  is  in 
moon-centered  or  earth-centered  coordinates.  See  ORBI  - 22. 

URPV : Double  precision  position  vector  in  moon-centered,  moon- 
fixed  coordinates,  scaled  B1  and  unitless. 

UX:  Double  precision  lunar  X-axis  expressed  in  reference  coordinates 
for  the  oblateness  calculations,  scaled  B1  and  unitless. 

UZ:  Double  precision  polar  vector  for  earth  or  moon  expressed  in 
reference  coordinates  for  the  oblateness  calculations,  scaled  B1 
and  unitless. 

VATT:  Double  precision  velocity  vector  output  from  orbital  integration, 
valid  at  time  TAT,  scaled  B7  in  units  of  meters  per  centisecond. 

(Called  VATTl  and  scaled  B7  (earth)  or  B5  (moon)  for  output  to  routines 
desiring  segregated  scaling. ) 
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VCV : Double  precision  conic  portion  of  the  velocity  vector  at  TET, 
computed  from  the  osculating  conic  at  rectification  (TET  - TO), 
scaled  B7  (earth)  or  B5  (moon)  in  units  of  meters  per  centisecond. 

VECTABj^:  Temporary  storage  for  total  position  vectors  with  respect  to 
primary  and  one  secondary  body  at  the  beginning,  middle  and  end  of 
each  integration  time-step  for  use  in  W-matrix  propagation. 

W,  VNl:  See  SERV  section. 

TOECT:  Double  precision  total  velocity  vector  at  last  rectification 
scaled  B7  (earth)  or  B5  (moon)  in  units  of  meters  per  centisecond. 

j^wj:  See  RNAV  section. 

XKEPNEW,  XPREV:  See  CONG  section. 

YV:  Double  precision  position  deviation  vector  scaled  B22  (earth)  or 
Bl8  (moon)  in  units  of  meters.  (State  vector  or  W-matrix.) 

ZV:  Double  precision  velocity  deviation  vector  scaled  B3  (earth)  or 
B-1  (moon)  in  units  of  meters  per  centisecond.  (State  vector  or 
W-matrix. ) 
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PGSR 


Program  Service  Routines 


SLAPl  Inhibit  interrupts 
Perform  "STARTSUB" 

Switch  DSPTAB^^  to  100  000  000  xOx  000^  (INTR) 

ERCOUNT  = 0 (TEST) 

FAILREG^  = 0 for  i = 0,  1,2  (PGSR) 

REDOCTR  = 0 (PGSR) 

DSRUPTSW  = -5120  (iNTR) 

DOFS TART  Switch  channel  11  bit  14  to  1 (bit  14  is  engine  off) 

THRUST  = -0  (DESC) 

DOFSTRTl  RCSFLAGS  = 00004g  (DAPA) 

ABDEL V = 0 (SERV) 

NVSAVE  and  DSPFLG^  = 0 (DINT) 

CH5MASK,  CH6MASK,  and  PVALVEST  = 0 (DAPA) 

ERESTORE  = 0 (TEST) 

SMODE  = +0  (TEST) 

DNLSTCOD  = 0 (TELE) 

AGSWORD  = 0 (m^B) 

UPSVFLAG  = 0 (ORBI) 

Switch  channels  5,  6,  12,  13,  and  14  to  OOOOOg 

If  DSPTAB^^  bit  4 (no  attitude)  and  bit  6 (gimbal  lock 
warning)  both  = 1: 

Switch  channel  12  to  00050g 

Make  all  restart  groups  inactive 

MODREG  = -0 
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STARTSUB 


STARTSBl 


IMDDES30  = 37411g 
= K:MAXDB 
RATEINDX  = 2 
DAPBOOLS  = 21322^ 

o 

EBANK  = K;EBANK6 
STIKSENS  = K;STIKSTRT 
RATEDB  = K:RATESIRT 
HI ASCENT  = KrFULLAPS 
DKTRAP  = K:770010CT 
LMTRAP  = K:770010CT 
DKKAOSN  and  LMKAOSN  = 60 
LMOMEGAN  = 0 
DKOMEGAN  = 10 
DKDB  = 00200, 


"8 

IM0DES33  = 16040 


8 


(iMlin) 

(DAPB) 

(DAPB) 

(DAPA) 

(DAPA) 

(DAPA) 

(DAPB) 

(DAPA) 

(DAPA) 

(DAPA) 

(DAPA) 

(DAPA) 

(DAPB) 

(INTR) 


Switch  FLAGWRD^  to  OOOOOg  for  i = 0,  1,  2,4, 5,6,9 
FLAGWRD7  = OOlOOg 

FLAGWRD8  = 000  xxO  0x0  000  000^  (leave  bit  12  (CMOONFLG),  bit 
11  (LMOONFLG),  and  bit  8 (SURFFLAG)  alone) 

FLAGWRD3  = OOx  010  000  000  000^  (leave  bit  13  (REFSMFLG)  alone) 

FLGi«/RD10  = OOx  000  000  000  000^  (leave  bit  13  (APSFLAG)  alone) 


FLGWRDll  = 40000 


8 


Proceed  to  "DUMMYJB2" 


(bit  15  is  LRBYPASS) 


DNTMGOTO  = "DNPHASEl"  (TELE) 
RADMODES  = 00102-  + bit  6 of  channel  33  (LR  pos)  (RADR) 
Set  TIME3  to  cause  program  interrupt  #3  in  10  milliseconds 
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Set  TIME4  to  cause  program  interrupt  #4  in  30  milliseconds 
Set  TIMES  to  cause  program  interrupt  #2  in  40  milliseconds 


EBANK  = K:EBANK6 

Switch  RCSFLAGS  bit  13  to  0 (DAPA) 

T6NEXTTMq  = 37777g  (disable  TIMES  clock)  (DAPA) 

Switch  bit  15  of  channel  13  to  0 

NXT6AXIS  = 0 (DAPA) 

NEXTP  = OOOOOg  (DAPA) 

Switch  DAPBOOLS  bit  3 (ACCSOKAY)  to  0 (DAPA) 

T5ADR  = "DAPIDLER"  (DAPA) 

STARTSB2  Switch  channel  11  to  Oxx  000  000  000  00x„ 


(leave  engine  on/off  and  ISS  warning  alone) 

Switbh  FLAGWRD3  bit  ^ (READRFLG)  to  0 
If  FLAGWRD3  bit  11  (N0R29FLG)  i 0: 

RADMODES  = xOO  xOO  xxx  xxx  xxO^ 

Skip  next  line 

RADMODES  = xOO  xOx  xxx  xxx  xxOg 

Switch  channel  12  to  0x0  xxx  xOO  xxx  OOO2 

Switch  FLAGWRD5  bit  4 (NORRMON)  and  bit  11  (R77FIAG)  to  0 


Switch  channel  13  to  xxx  100  OOx  xxO  OOO2 
Switch  channel  14  to  000  000  000  xOO  OOO2 
EBANK  = K:STARTEB 

Set  all  8 waitlist  times  to  81.93  seconds  (MATX) 
Set  all  9 waitlist  task  addresses  to  "SVCT3"  (MATX) 
Make  all  8 job  register  sets  available  (MATX) 
DSRUPTSW  = -0  (INTR) 
NEWJOB  = -0  (MATX) 
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Make  all  5 VAC  areas  available 
DSPTAB.  = -04000^  for  i = 0-10 

X o 

DELAYLOC^  = 0 for  i = 0,  1,  2 

RISAVE  = 0 

INLINK  = OOOOOg 

DSPCNT  = 0 

CADRSTOR  = +0 

REQRET  = +0 

CLP ASS  = 0 

DSPLOCK  = 0 

MONSAVE  and  MONSAVEl  = 0 
VERBREG  and  NOUNREG  = 0 
DSPLIST  = +0 
MARKSTAT  = +0 
EXTVBACT  = 0 
IMUCADR  = +0 
OPTCADR  = +0 
RADCADR  = +0 
ATTCADR  = +0 
LGYRO  = +0 
FLAGWRD4  = 00000. 

O 

NOUT  = 11 
SAMPLIM  = -1 

IM0DES33  = 001  110  000  xOO  000^ 
good,  uplink  good  bits 


(MATX) 

(negative  for  output)  (DSKY) 

(MATX) 

(DINT) 

(TELE) 

(INTR) 

(DINT) 

(DSKY) 

(DSKY) 

(DSKY) 

(DATA) 

(DATA) 

(DINT) 

(ALIN) 

(EXVB) 


(IMUC) 

(ALIN) 

(RADR) 

(ATIM) 

(IMUC) 

(kill  display  interface  routine  action) 

(-INTR) 
(RADR) 

(set  PIPA  good,  downlink 
leave  DAP  disable  bit  alone) 
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SELFRET  = "SELFCHK" 


(TEST) 

(DSKY) 


DSPCOUNT  =-19 
Return 

If  IM0DES30  bit  6 = 1:  (IMU  caged) 

Perform  "ALARM"  with  TS  = 01520g 
Proceed  to  "V37BAD" 

If  MMNUMBER  = 70,  proceed  to  "P70" 

If  MMNUMBER  = 71,  proceed  to  "P71" 

If  MMNUMBER  = 0: 

If  FLAGWRD7  bit  6 (V37FLAG)  = 0,  proceed  to  "CANV37" 

(otherwise,  "SERVICER"  is  running;  cause  it  to  exit  to 
"CANV37") 

Switch  FLAGWRD7  bit  5 (AVEGFLG)  to  0 
End  job 

If  FLAGWRD2  bit  1 (NODOFLAG)  = 1: 

Perform  "ALARM"  with  TS  = 015 20g 
Proceed  to  "V37BAD" 

If  MMNUMBER  ^ low  7 bits  of  K;PREMM1^  for  some  i from  0 to  24 
Switch  bit  7 of  channel  11  to  1 (operator  error) 
Proceed  to  "V37BAD" 

MINDEX  = i for  which  MMNUMBER  = low  7 bits  of  KrPREMMl^ 

If  FLAGWRD7  bit  6 (V37FLAG)  0,  proceed  to  "CANV37" 

Switch  FLAGWRD7  bit  5 (AVEGFLAG)  to  0 
End  job 

Perform  "RELDSP" 

Proceed  to  "PINBRNCH"  (reinstitute  any  interrupted  display) 

SUPERBNK  = 0 


PGSR  - 5 


Perform  "INTSTALL" 


(wait  vintil  integration  is  free) 


POOH 


SEUDOPOO 


Switch  FLAGWRD5  bit  6 (3AXISFLG)  to  0 
Switch  FLAGWRD3  bit  15  (POOHFLAG)  to  0 
Switch  FLGWRDll  to  40000g 

Switch  FLAGWRD3  bits  9 (RO4FLAG)  and  U (GLOKFAIL)  to  0 
Switch  FLAGWRD6  bit  8 (MUNFLAG)  to  0 
Switch  DAPBOOIS  bit  9 (XOVINHIB)  to  0 
If  MMNUMBER  = 0,  proceed  to  "POOH" 

If  FLAGWRDO  bit  7 (RNDVZFLG)  and  9 (P25FLAG)  both  = 0; 

Switch  FLAGWRDO  bit  8 (IMDSE)  to  0 

DNLSTCOD  = K:DNLADMM1„^,_„^ 

M INDEX 

Inhibit  interrupts 


Proceed  to  "SEUDOPOO" 
Perform  "RELDSP" 


Inhibit  interrupts 

Switch  RADMODES  bits  10  (DESIGFLG)  and  15  (CDESFLAG)  to  0 
Switch  bit  2 of  channel  12  to  0 (disable  RR  Error  coimter) 

Switch  FLAGWRD2  bit  1 (NODOFLAG)  to  0 


Clear  P20,  P25  restart  logic  and  cause  "G0PR0G2"  to  restart  "STATINTl" 
Switch  FLAGWRDO  bits  7 (RNDVZFLG),  8 (IMUSE)  and  9 (P25FLAG)  to  0 
DNLSTCOD  = 0 
AGSWORD  = DNLSTCOD 
Perform  "ENGINOFl" 


Perform  "ALLCOAST" 
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RESET22 


DSPFLG^  = 77657g 

Switch  FLAGWRDl  bit  5 (TRACKFLG)  and  7 (UPDATFLG)  to  0 
If  MMNTMBER  = 0: 

Maintain  P20,  P25  restart  logic  and  clear  all  other 

MODREG  = 0 

Proceed  to  "G0PR0G2" 

If  MODREG  or  MMNUMBER  = 22: 

Switch  FLAGWRDO  bit  7 (RNDVZFLG),  bit  8 (IMUSE)  and  bit 
9 (P25FLAG)  to  0 

Switch  RADMODES  bit  10  (DESIGFLG)  and  15  (CDESFLAG)  to  0 
Switch  channel  12  bit  2 to  0 
Clear  P20,  P25  restart  logic 
Cause  "G0PR0G2"  to  start  "V37XEQ" 

Proceed  to  "G0PR0G2" 

If  MMNTMBER  i 20  or  25: 

If  FLAGWRDO  bit  7 (RNDVZFLG)  or  bit  9 (P25FLAG)  = 1: 

Proceed  to  5th  step  of  "RESET22” 

Proceed  to  "RESET22" 

If  MODREG  = 20  or  25: 

Proceed  to  4th  step  of  "RESET22" 

If  MMNTMBER  = 20  and  FLAGWRDO  bit  7 (RNDVZFLG)  = 1 and  bit  9 
(P25FLAG)  = 0,  or  if  MMNUMBER  = 25  and  FLAGWRDO  bit  9 (P25FLAG) 
= 1 and  bit  7 (RNDVZFLG)  = 0: 

Switch  FLAGWRDl  bit  5 (TRACKFLG)  and  7 (UPDATFLG)  to  1 

Maintain  P20,  P25  restart  logic  and  clear  all  other 

MODREG  = MMNTMBER 

Proceed  to  "G0PR0G2" 

Proceed  to  4th  step  of  "RESET22" 
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V37XEQ 


VBRQEXEC 


VBRQWAIT 


Inhibit  interrupts 


MMTEMP  = K:PREMMl^jj^P^^ 

ii  = bits  15-11  of  MMTEMP  (priority) 


BASETEMP  = K:FCADRMML 


MINDEX 


Establish  job  specified  in  BASETEMP 


MODREG  = MMNUMBER 
Establish  "DSPMMJOB" 


Perform  "RELDSP" 


(EBANK  information  In  (prii) 
bits  S-10  of  MMTEMP) 


(pr 30) 


Release  interrupt  inhibit 
End  job 

(Entered  form  "VERBFAN"  on  verb  30;  DSPTEMl^^  must  be  loaded 
with  three  single  precision  components  as  follows: 


DSPTEMIq  Opp  ppp  000  000  OOv 

DSPTEMl^  000  sss  sss  sss  sss 

DSPTEMI2  fff  ffO  OOx  xxO  eee 

where  "p"  represents  one  of  the  bits  of  the  five-bit  priority 
to  be  assigned  to  the  job;  "v"  is  a single  binary  bit  indicating 
whether  the  job  is  to  be  assigned  working  storage  (l)  or  not  (O); 
"s"  is  one  of  the  12  bits  of  the  "S-register"  portion  of  the 
address;  "f"  is  one  of  the  bits  of  the  five-bit  fixed-memory- 
bank  code;  "x"  is  one  of  the  bits  in  the  three-bit  fixed-bank- 
extension  code;  "e"  is  one  of  the  bits  in  the  three-bit  erasable 
memory-bank  code;  and  "0"  is  a binary  zero.) 

Perform  "RELDSP" 

Establish  job  whose  starting  address  is  contained  in  2CADR  form 
in  DSPTEMl^  and  DSPTEMI2,  with  priority  and  storage  allocation 

according  to  the  information  in  DSPTEMIq.  ("FINDVAC"  or  "NOVAC") 
End  job 

(Entered  from  "VERBFAN"  on  verb  31;  DSPTEMl  must  be  preloaded 

tp 

with  three  single  precision  components  as  follows: 
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DSPTEMIq  time  In  centlseconds  scaled  B14 

DSPTEMlI:  000  sss  sss  sss  sss 

DSPTEMl^  fff  ffO  OOx  xxO  eee 

where  "s,  f,  x"  and  "e"  have  the  meanings  described  above.) 
Perform  "RELDSP" 

Call  the  task  whose  starting  address  is  contained  in  2GADR  form 
in  DSPTEMl^  and  DSPTEMI2,  in  DSPTEMIq  centlseconds.  ("WAITLIST") 

End  job 

GOPROG  REDOGTR  = REDOCTR  + 1 (hardware  restart) 

RSBBQ  = address  of  step  performed  before  restart  occurred 

If  bit  4 of  DSPTAB^^  =1:  (no  attitude  lamp  on) 

Switch  bits  4 and  6 of  channel  12  to  1 

(coarse  align  discrete,  ICDU  Error  Counter  enable) 

Perform  "LIGHTSET" 

If  bits  15-11  of  ERESTORE  0; 

Perform  "STARTSUB" 

Proceed  to  "DOFSTRTl" 

If  ERESTORE  0: 

If  ERESTORE  SKEEP7; 

Perform  "STARTSUB" 

Proceed  to  "DOFSTRTl" 

EBANK  =:  bits  11-9  of  SKEEP4 

1 = SKEEP7 

E^  = SKEEP5 

i = SKEEP7  + 1 

= SKEEP6 

ERESTORE  = 0 

Perform  "STARTSUB" 

Switch  FLGWRDIO  bit  14  (INTFLAG)  to  0 

Switch  DSPTAB^^  to  100  000  xOO  xOx  000^ 

(bit  15  is  flag  for  output;  leave  bits  9,6,4  alone) 
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Switch  IM0DES30  to  Oil  111  xOO  Oxx  xOx^ 

(leave  IMU,  CDU,  and  both  FIFA  fail  monitor  bits  alone) 

DNLSTCOD  = AGSWORD 

Switch  bit  4 of  channel  14  to  1 (thrust  drive  discrete) 

If  FLAGWRD5  bit  7 (ENGONFLG)  = 1: 

Switch  bit  13  of  channel  11  to  1 (engine  on  discrete) 
Skip  next  line 

Switch  bit  14  of  channel  11  to  1 (engine  off  discrete) 
Froceed  to  ''G0FR0G3" 

LIGHTSET  If  bit  5 channel  16  = 1 and  channel  15  = 22g: 

Ferform  "STARTSUB" 

Froceed  to  "DOFSTART" 

Return 

ENEMA  Inhibit  interrupts 
Ferform  "STARTSBl" 

Skip  next  line 

G0FR0G2  Ferform  "STARTSB2'* 

G0FR0G2A  Ferform  "LIGHTSET" 

Switch  FLGWRDIO  bit  7 (REINTFLG)  and  bit  14  (INTFLAG)  to  0 
G0FR0G3  If  restart  information  is  stored  improperly: 

Ferform  "ALARM"  with  TS  = 01107g 
Froceed  to  "DOFSTRTl" 

Establish  "DSPMMJOB"  (pr30) 


Release  interrupt  inhibit 
Inhibit  interrupts 


(allows  possibility  of  interrupt) 
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If  bit  15  of  MODREG  = 1,  proceed  to  "ENDRSTRT" 

Proceed  to  "GOTOPOOH"  ("GOFLASH"  will  put  "DSPMMJOB"  to 

sleep,  leaving  program  number  blank) 
Restart  all  jobs  and  tasks  indicated  by  active  restart  groups 

ENDRSTRT  Proceed  to  "DUMMIJB2" 

GOTOPOOH  Switch  DAPBOOLS  bit  9 (XOVINHIB)  and  bit  6 (ULLAGER)  to  0 
Inhibit  interrupts 

Switch  FLAGWRD4  bit  1 (XDSPFLAG)  to  0 


ALARM 


ALARM2 


Release  interrupt  inhibit 

Proceed  to  "GOFLASH"  with  TS  = K;V37N99  (noun  not  processed) 

(if  terminate,  repeat  this  step;  if  proceed,  repeat  this 
step;  if  other  response,  repeat  this  step.) 

Inhibit  interrupts 

ALMCADRq  = "calling  address  + 1"  (S-register  portion) 

ADdCADR^  = BBANK  + SUPERBNK  (or'ed  into  bits  7-5) 


If  FAIIREGq  = 0: 


FAILREGq  — TS  (TS  contains  alarm  code) 

Proceed  to  "PROGLARM" 

If  FAILREGq  = 0: 

FAILREGq  = TS 
Proceed  to  "PROGLARM" 

FAILREGq  = TS 

Switch  bit  9 of  DSPTAB^^  to  1 and  flag  for  output 

Release  interrupt  inhibit 

Return 
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BAILOUT 


Inhibit  interrupts 


WHIMPER 


POODOO 


CURTAINS 


BAILOUTl 


POODOOl 


AIMHADRq  = "calling  address  + 1"  (S-register  portion) 

Perform  "ALARM2" 

Resume  (after  this  Resiime,  return  is  to  next  line) 

Proceed  to  "ENEMA" 

Inhibit  interrupts 

ALMCADRq  = "calling  address  + 1"  (S-register  portion) 

Perform  "ALARM2"  (TS  contains  the  alarm  code) 

Switch  FLAGWRD3  bit  5 (STATEFLG)  to  0 

t 

Switch  FLGWRDIO  bit  7 (REINTFLG)  to  0 

Switch  FLAGWRD2  bit  1 (NODOFLAG)  to  0 

If  FLAGWRD7  bit  6 (V37FLAG)  = 1;  proceed  to  "SERVIDLE" 

Make  all  restart  groups  inactive 

Proceed  to  "WHIMPER" 

Inhibit  intermpts 

Perform  "ALARM2"  with  TS  = 00217g 

Return  to  address  in  ALMCADR 

Inhibit  interrupts 

ALMCADR,  = TSl, 
dp  dp 

Perform  "ALARM2"  starting  at  second  line 

Inhibit  interrupts 

Proceed  to  "WHIMPER" 

Inhibit  interrupts 

ALMCADR^  = TSl, 
dp  dp 
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ABORT 

P06 


POSTAND 


Perform  ’'ALARM2"  starting  at  second  line 
Proceed  to  4th  line  of  "POODOO" 

Proceed  to  "WHIMPER" 

Switch  FLAGWRD2  bit  1 (NODOFLAG)  to  1 
Inhibit  interrupts 
TIME2SAV  = TIMENOW 

TSt,  = channel  3,  channel  4 (sampled  with  special  pre- 
^ caution  to  assure  that  the  two  halves  are  consistent) 

Release  interrupt  inhibit 

If  TIMENOW  was  incremented  during  the  last  1/3200  of  a second 
(channel  4 = xxx.5  centiseconds) ; (TIMENOW  incompatible  with 

channel  4) 

Proceed  to  second  step  of  "P06" 

TSt  = TSt  rounded  to  the  nearest  centisecond 
SCALSAVE  = TSt 
Inhibit  interrupts 
Perform  "RNDREFDR" 

Switch  FLAGWRDO  bit  8 (IMUSE)  and  bit  7 (RNDVZFLG)  to  0 

Switch  bit  11  of  channel  13  to  1 (enable  standby) 

Set  restart  tables  to  initiate  "POSTAND"  when  a restart  is 
triggered  by  the  recovery  from  standby 

Proceed  to  "GOPERFl"  with  TS  = 00062g 

(If  terminate,  repeat  this  step;  if  proceed,  repeat  this 
step;  if  other  response,  repeat  this  step.) 

Switch  bit  11  of  channel  13  to  0 (disable  standby) 

Inhibit  interrupts 

TIMENOW  = 0 

TSt,  = channel  3,  channel  4 (sampled  with  special  pre- 
^ caution  to  assure  that  the  two  halves  are  consistent) 
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Release  interrupt  inhibit 

If  TIMENOW  was  incremented  during  the  last  1/3200  of  a second 
(channel  4 = xxx.5  centiseconds) : 

Proceed  to  second  step  of  "POSTAND" 

TSt  = TSt  rounded  to  the  nearest  centisecond 

TS  = TSt  - SCALSAVE  (rescaled  from  B23  to  B28) 

Force  sign  agreoment  in  TS 

If  TS  < -0,  TS  = 2^^  + TS 

TSt  = TIME2SAV  + TS 

Force  sign  agreement  in  TSt 

TIMENOW  = TIMENOW  + TSt 

Switch  FLAGWRD2  bit  1 (NODOFLAG)  to  0 

Proceed  to  "GOTOPOOH" 

V37RET  If  FLAGWRDO  bit  7 (RNDVZFLG)  = 1: 

Cause  '^G0PR0G2"  to  restart  "P20LEMC1"  in  15  seconds 

Proceed  to  "CANV37" 

If  FLAGWRDO  bit  9 .(P25FLAG)  = 1: 

Cause  "G0PR0G2'*  to  restart  "P25LEM1'' 

Proceed  to  ''CANV37" 

ALARM!  Inhibit  interrupts 

ALMCADR,  = TSl , 
dp  dp 

Proceed  to  second  step  of  "ALARM2" 

VARALARM-  Inhibit  interrupts 

ALMCADRq  = "calling  address  + 1" 

Perform  "ALARM2" 

Proceed  to  ALMCADRq 


PGSR  - 14 


GCSHOLE 


Inhibit  interrupts 


ALMCADRq  = "calling  address  + 1"  (S-register  portion) 
Proceed  to  second  line  of  "POODOO"  with  TS  = 21103g 
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Qiisntities  in  Computations 


AGSWORD:  See  EXVB  section, 

ALMCADA:  Double  precision  storage  for  return  address  (address  in  most 
significant  half,  bank  information  in  least  significant  half)  of  the 
routine  that  generated  the  latest  alarm. 

BASETEMP:  Single  precision  storage  for  octal  address  of  program  to  be 
started  by  verb  37. 

BBANK:  A computer  hardware  cell  containing  in  bits  15-11  the  fixed 
memory  bank  (FBANK)  currently  being  used  and  in  bits  3-1  the 
erasable,  memory  bank  number, 

CDU  , CDU. : See  RADR  section. 

S Xt 

DELAILOC^  (1  = 0,1,2);  See  MATX  section. 

DNLSTCOD:  See  TELE  section. 

DSPFLG2;  See  DINT  section. 

DSPTAB^^;  See  INTR  section. 

DSPTEML:  See  DATA  section. 

E^:  Single  precision  memory  cell  whose  address  is  in  i. 

EBANK:  See  MATX  section. 

ERESTORE;  See  TEST  section. 

FAILREG,  (i  = 0,1,2):  Three  single  precision  registers  used  for  storage 
of  alarm  code  information.  FAILREG^  ^ are  zeroed  via  an  "error  reset", 
FAILREG^  is  unaltered.  All  three  registers  are  zeroed  by  a Verb  36 
(fresh  start).  FAILREG-  contains  the  first  alarm  code  generated  after 
the  "Error  Reset";  FAILREG^  contains  the  second;  and  FAILREG^  always 
contains  the  most  recent. 

K:770010CT:  Single  precision  constant  stored  as  77001g,  scaled  B-3 
in  units  of  revolutions  per  second.  Equation  value;  +0.00389. 
(Equation  value;  1.4  degrees  per  second.) 

K:DNLADMMlj^  (l  = 0-24):  Table  of  25  single  precision  indexes  which 

determine  the  downlist  sent  during  each  major  mode.  See  table  below, 

K:EBANK6:  Single  precision  constant  stored  as  03000g,  scaled  B6  and 
unitless.  Equation  value:  6. 

K:FCADRMM1^  (i  = 0-24):  Table  of  25  single  precision  addresses  of  the 
25  major  mode  programs.  See  table  below. 
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KiFULLAPS;  Single  precision  constant  stored  as  5050  x 2 , scaled 

Bl6  in  units  of  kilograms.  Equation  value;  5050. 

K;PREMM1^  (i  » 0-24):  Table  of  25  major  mode  numbers  with  associated 
EBANn  settings  and  priorities. 

K;MAXDB;  Single  precision  constant  stored  as  03434gJ  used  to  initial- 
ize the  attitude  deadband.  Corresponds  to  approMmately  5 degrees. 

K;RATESTRT:  Single  precision  constant  stored  as  77445g,  scaled  B-3  in 
units  of  revolutions/second.  Used  to  Initialize  location  -RATEDB 
(referred  to  as  RATEDB  in  DAPA  section)  in  "DOFSTRTl*' . 

K:STARTEB:  Single  precision  constant  stored  as  01400g,  scaled  B6  and 
unitless.  Equation  value:  3. 

K:STIKSTRT;  Single  precision  constant  stored  as  32321g,  scaled  B-15 
in  revolutions  per  second/RHC  counts.  Used  to  initialize  location 
STIKSENS  in  "DOFSTRTl" . 

^^;NDEX;  Single  precision  register  used  to  select  the  appropriate 
table  entries  for  a V37  selected  program  change  (loaded  based 
upon  equality  of  MMNUMBER  and  bits  7-1  of  K;PREMM1^  with  the 
value  of  i . ) 

MODREG;  See  DATA  section. 

lyiMNUMBER;  Single  precision  storage  for  the  desired  value  of  the  major 
mode  register,  scaled  B14  and  unitless. 

MMTEMP:  Single  precision  storage  for  the  number  of  the  program  being 
started  by  verb  37  (bits  lO-l)  and  for  the  priority  with  which  the 
program  is  to  be  started  (bits  15-11) • 

NEWJOB:  See  MATX  section. 

NVSAVE;  See  NWORD  in  the  DINT  section. 


RADMODES:  See  RADR  section. 

REDOCTR:  Single  precision  counter  set  to  zero  in  a fresh  start  and  in- 
cremented whenever  a hardware  restart  occurs}  scaled  B14  and  iinitless. 

RSBBQ:  Storage  for  the  value  of  the  address  where  a hardware  restart 
occurred.  The  most  significant  part  contains  the  BBANK  and  SUPERBNK 
information}  the  least  significant  part  contains  the  Q-register  in- 
formation. 

SCALSAVE:  Double  precision  value  of  the  standby  clock  (channels  3 and  4) 
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at  the  time  program  06  enables  standby,  scaled  B23  in  \inlts  of  centi- 
seconds. 

SKEEP5,  SKEEP6,  SKEEP7;  See  TEST  section. 

SUPEIIBNK:  See  MATX  section. 

TIM3,  TIME4,  TIME5:  See  "Major  Variables"  section. 

TIME2SAV;  Double  precision  value  of  TIMENOW  when  program  06  enables 
standby,  scaled  B28  in  units  of  centiseconds. 

TIMENOW;  See  EXVB  section. 
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MAJOR  MODE  CHANGE  CONSTANTS 


i K:FREMM1  K;FCADRMMI  K:DNLADMI^1 


prio 

EBANK 

MM 

(octal  address) 

0 

13 

7 

76 

P76 

2 

(RENDEZVU) 

1 

13 

7 

75 

P75 

2 

(RENDEZVU) 

2 

13 

7 

74 

P74 

2 

(RENDEZVU) 

3 

13 

7 

73 

P73 

2 

(RENDEZVU) 

4 

13 

7 

72 

P72 

2 

(RENDEZVU) 

5 

13 

7 

68 

LMDJUNK 

4 

(DESASCNT) 

6 

13 

7 

63 

P63LM 

4 

(DESASCNT) 

7 

13 

5 

57 

P57 

5 

(LUNRSALN) 

8 

13 

5 

52 

PR0G52 

0 

(COSTALIN) 

9 

13 

5 

51 

P51 

0 

(costalin) 

10 

13 

7 

47 

P47LM 

3 

(ORBMANUV) 

11 

13 

7 

42 

P42LM 

3 

(ORBMANUV) 

12 

13 

7 

41 

P41LM 

3 

(ORBMANUV) 

13 

13 

7 

40 

P40LM 

3 

(ORBMANUV) 

14 

13 

7 

35 

P35 

2 

(RENDEZVU) 

15 

13 

7 

34 

P34 

2 

(RENDEZVU) 

16 

13 

7 

33 

P33 

2 

(RENDEZVU) 

17 

13 

7 

32 

P32 

2 

(RENDEZVU) 

18 

13 

7 

30 

P30 

2 

(RENDEZVU) 

19 

13 

7 

25 

PaOG25 

2 

(RENDEZVU) 

20 

13 

7 

22 

PR0G22 

5 

( LUNRSALN ) 

21 

13 

7 

21 

PR0G21 

2 

(RENDEZVU) 

22 

13 

7 

20 

PR0G20 

2 

(RENDEZVU) 

23 

13 

7 

12 

P12LM 

4 

(DESASCNT) 

24 

13 

4 

06 

P06 

0 

(COSTALIN) 
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Radax  Control  Routines 


RRAUTCHK 


RRCDUCHK 


RRGIMON 


If  bit  2 of  channel  33  = bit  2 (AUTOMODE)  of  RADMODES: 

Proceed  to  "RRCDUCHK"  ( ON/OFF  status  of  RR  unchanged) 

Set  RADMODES  bit  2 (AUTOMODE)  = bit  2 of  channel  33 

Switch  bits  15  (CDESFLAC),  U (REMODFLG),  13  (RCDUOFLG), 

11  (REPOSMON)  and  1 (TURNONFL)  of  RADMODES  to  0 

If  RADMODES  bit  2 (AUTOMODE)  =1:  ( RR  just  turned  off  ) 

Switch  bit  2 of  channel  12  to  0 (disable  RRCDU  Error  Coimters) 

Proceed  to  "RRCDUCHK" 

Switch  RADMODES  bits  1 (TURNONFL)  and  13  (RCDUOFLG)  to  1 
Call  "RRTURNON"  in  0.01  second 
Proceed  to  "NORRGMON" 

If  bit  7 of  channel  30  = bit  7 (RCDUFAIL)  of  RADMODES: 

Proceed  to  "RRGIMON"  (RR  CDU  fall  discrete  unchanged) 

If  RADMODES  bit  2 (AUTOMODE)  = 1,  proceed  to  "NORRGMON" 

(RR  not  in  auto  mode;  might  be  reading  LR  data) 

Set  RADMODES  bit. 7 (RCDUFAIL)  = bit  7 of  channel  30 

If  RADMODES  bits  13  (RCDUOFLG),  7 (RCDUFLAG)  and  2 ( AUTOMODE) 

= 0,  and  FLAGWRDO  bit  7 (RNDVZFLG)  = 1: 

Perform  "ALARM"  with  TS  = 0051 5g 

Perform  "SETTRKF" 

If  FLAGWRD5  bit  4 (NORRMON)  = 1,  proceed  to  "NORRGMON" 

If  FLAGWRD7  bit  5 (AVEGFLAG)  = 1: 

If  FLAGWRD6  bit  8 (MUNFLAG)  = 1,  proceed  to  "NORRGMON" 

If  RADMODES  bit  14  (REMODFLG),  13  (RCDUOFLG),  11  (REPOSMON)  or 
2 (AUTOMODE)  = 1,  proceed  to  "NORRGMON" 
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NORRGMON 


RRTURNON 


RRZEROSB 


SETTRKF 


Perform  "RKLIMCHK"  with  TS^  = CDU^  and  TS^  = CDU 

0 t Is 

If  TSchk  =0;  (RR  positioned  out  of  limits) 

Switch  RADMODES  bit  11  (REPOSMON)  to  1 

Svritch  bits  14  and  2 of  channel  12  to  0 

(Disable  RR  tracker  and  RRCDU  Error  Counter) 

Call  "DORREPOS”  in  0.02  second 

If  RADMODES  bit  2 (AUTOMODE)  = 1: 

Switch  bit  1 of  channel  12  to  1 (Zero  RR  CDUs) 

Retiirn  ( to  caller  of  "RRAUTCHK"  in  the  "T4RUPT"  routine) 

Perform  "RRZEROSB" 

Delay  1 second 

Switch  RADMODES  bit  1 (TURNONFL)  to  0 (Turn-on  complete) 

End  task 

Switch  bit  1 of  channel  12  to  1 (Drive  RR  CDUs  to  zero) 

Delay  0.02  second 

CDU^  = 0 

CDU  = 0 
s 

Switch  bit  1 of  channel  12  to  0 (Release  RR  CDUs) 

Delay  10  seconds  (Allow  time  for  CDUs  to  match  gimbal  angles) 
Switch  RADMODES  bit  13  (R  DUOFLG)  to  0 

If  ICDU^I^  K:p25,  switch  RADMODES  bit  12  (ANTENFLG)  to  0 

If  |CDU  |>  K:p25,  switch  RADMODES  bit  12  (ANTENFLG)  to  1 
s 

Perform  "SETTRKF" 

Return 

If  bit  1 of  IMODES33  = 1,  return  (lamp  test  in  progress) 

TS  = 00200g  ( bit  8 = 1 ) 
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DORREPOS 


SETRRECR 


RRTONLY 


If  RADMODES  bit  13  (RCDUOFLG)  7 (RCDUFAIL)  jr  2 (AUTOMODE)  = 1: 

If  RADMODES  bit  4 (RRDATAFL)  =0,  TS  = OOOOOg  (bit  8=0) 
If  bit  8 of  DSPTAB^^  7^  bit  8 of  TS; 

Set  bit  8 of  DSPTAB^^  = bit  8 of  TS  (tracker  fail  light) 
Switch  bit  15  of  DSPTAB^^  to  1 (flag  for  output) 

Return 

Perform  ''SETRRECR" 

Delay  0.02  second 
ROES  = 0 

If  RADMODES  bit  12  (ANTENFLG)=  1,  RDES  = (-180°  for  Mode  II) 

Perform  "RRTONLY" 

RDES  = 0 

If  RADMODES  bit  12  (ANIENFLG)=  1,  RDES  = - Ktlsi  (-90°) 

Perform  "RRSONLr' 

Switch  RADMODES  bit  11  (REPOSMON)  to  0 (repositioning  con?)lete) 

If  RADMODES  bit  10  (DESIGFLG)  = 1,  proceed  to  "BEGDES" 

(someone  waiting  to  designate) 

Switch  bit  2 of  channel  12  to  0 (disable  RR  Error  Counter) 

End  task 

If  bit  2 of  channel  12  = 0;  (RR  Error  Counters  disabled) 

Switch  bit  2 of  channel  12  to  1 
LASTTCMD  = 0 
LASTSCMD  = 0 
Return 

RRRET  = return  address 
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RRINDEX  = 0 


RRSONLY 


RR1AX2 


RROUT 


Proceed  to  "RR1AX2" 
RRRET  = return  address 


RRINDEX  = 1 

If  RADMODES  bits  14  (REMODFLG)  and  11  (REPOSMON)  both  = 1: 

(Remode  requested  while  repositioning  in  progress) 

Switch  RADMODES  bit  11  (REPOSMON)  to  0 

If  RADMODES  bit  10  (DESIGFLG)  = 1,  proceed  to  "BEOIES" 

(Someone  waiting  to  designate) 

Switch  bit  2 of  channel  12  to  0 (disable  RRCDU  Error  Counter) 
End  task 


If 

If 

If 


RRINDEX  =0,  TS  = RDES  - CDU^  (one's  con5)lement  difference 

of  two's  coiqplement  angles) 


RRINDEX  = 1 , TS  = RDES  - CDU 

s 

ItsI  ^ K:0. 00555  or  RADMODES  bit  2 (AUTOMODE) 
via  RRRET 


return 


TANG^  = 0 for  i = 0 and  1 
TRUNNCMD„„t.„^„^  = K:RRSPGAIN  TS 


Perform  "RROUT" 


Delay  0.5  second 
Proceed  to  "RR1AX2" 


TS  = TRUNNCMD^ 

If  /TS/  > K:rrlimlt,  TS  = K:rrlimit  signTS 
CDUSCMD  = TS  - LASTSCMD 
LASTSCMD  = TS 
TS  = TRUNNCMDq 

If  |TS|  > Ktrrlimit,  TS  = K:rrlimit  signTS 
CDUTCMD  = TS  - LASTTCMD 
LASTTCMD  = TS 
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Switch  bits  12  and  11  of  channel  14  to  1 

(Send  contents  of  CDUTCMD  and  GDUSCMD  to  RR  CDU’s) 

Return 

RRDESSM  DESPIET  = return  address 

Switch  FLAGWRDO  bit  6 (RRNBSW)  to  0 
Perform  "CDUTRIG" 

Perform  "SMTONB" 

TSlos  = [SMNBMA'^  ^TARGET 
Perform  "RRANCLES" 

Inhibit  Interrupts 

Perform  "RRLIMCHK"  with  TSq  = MODEPRESq  and  TS^  = MCDDEPRES^ 

If  TSchk  = 0;  (not  within  limits  in  present  mode) 

If  FLAGWRD8  bit  8 (SURFFLAG)  = 1: 

RADCADR  = +0 
RADLIMCK  = 0 
Proceed  to  "DESRETRN" 

Perform  "RMDDINV" 

Perform  "RRLIMCHK''  with  TSq  = MODEALTq  and  TS^  = MODEALT^ 
If  TSchk  = 0;  (not  within  limits  of  either  mode) 

Perform  "RMDDINV" 

RADLIMCK  = 1 
RADCADR  = +0 
Proceed  to  "DESRETRN" 

Perform  "RMODINV" 

Switch  RADMODES  bit  14  (REMODFLG)  to  1 (request  remode) 
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RADLIMCK  = 2 


RRDESNB 


Proceed  to  "STARTDES" 


DESRET  = return  address 
Switch  PLAGWRD2  bit  12  (LOSCMFLG)  to  0 
DESCOUNT  = K;MAXTRYS 
Inhibit  Interrupts 

Perform  "RRLIMNB"  with  TSq  = TANC^  and  TS^  = TANG^ 

If  TSchk  = 0:  (not  within  limits  of  present  mode) 

Perform  "RMODINV" 

Perform  "RRLIMNB" 

If  TSchk  = 0;  (not  within  limits  in  either  mode) 
Perform  "RMODINV" 


Perform  "ALARM"  with  TS  = 00502g 
Inhibit  Interrupts 


Switch  RADMODES  bits  10  (DESIGFLG)  and  15  (CDESFLAG)  to  0 


Switch  bit  2 of  channel  12  to  0 (disable  RRCDU  Error 
Counters) 

End  job 

Perform  "RMODINV" 


Switch  RADMODES  bit  U (REMODFLG)  to  1 
Release  interrupt  inhibit 
TANGNB^  = TANG^  for  i = 0 and  1 

Perform  "RRNB"  (get  LOS  vector  in  NB  coordinates) 
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STARTDES 


DESRETRN 


RRLIMCHK 


M0DE2CHK 


RRANOLES 


RETARGET  = TS 

Switch  FLAGWRDO  bit  6 (RRNBSW)  to  1 
Inhibit  interrupts 

Switch  RADMODES  bit  10  (DESIGFLG)  to  1 
If  RADMODES  bit  11  (REPOSMON)  = 0:  (see  "DORREPOS") 

Perforin  "SETRRECR'’ 

Call  "BEGDES"  in  0.02  second 
If  RADCADR  7^  0,  end  job 
Release  Interrupt  inhibit 
Return  via  DESRET 

TSchk  = 1 (Entered  with  angles  in  two's  con^jlement  form) 
If  RADMODES  bit  12  (ANTENFLG)  = 0:  (Mode  l) 

If  |tSq|  > K:0. 30555,  TSchk  = 0 

If  \TS^  + K;5.5DEGS\  > K:0. 35833,  TSchk  = 0 

Return 

If  /TS^  + K;82DEffi/  > K:0.31667,  TSchk  = 0 

If  (TSqI  ^ K: 0.69444,  TSchk  = 0 

Return 

TSta  = arcsin(-TSlos  ) 

y 

TStb  = ^ - arc8in(-TSlos  ) 

y 

TSlos  = 0 

y 

TS  = unitTSloB 

O 

If  I TSlos j < 2“  : (unit  vector  poorly  defined) 

(trunnion  angle  nearly  90  degrees) 

Proceed  to  "LUNDESCH" 
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RRNB 


RRNBMPAC 


RMODINV 


SINTH  - TS^ 

COSTH  = TS^ 

Perform  "ARCTRIG"  (get  THETA  from  SINTH  and  COSTH) 

If  RADMODES  bit  12  (ANTENFLG)  = 0:  (Mode  l) 

MODEALTq  = TStb  converted  to  two's  complement  form 
MODEALT^  = "g"  THETA  similarly  converted 
MODEPRESq  = TSta  converted  to  two's  complement  form 
MODEPRES-j  = THETA  similarly  converted 
If  RADMODES  bit  12  (ANTENFLG ) = 1 : 

MODEALTq  = TSta  converted  to  two's  complement  form 

MODEALTq  = THETA  similarly  converted 

MODEPRESq  = TStb  converted  to  two's  complement  form 

MODEPRES-i  — ^ "t  THETA  similarly  converted 
Return 

TStr  = TANGNBq  converted  to  one's  complement  form 
TSsh  = TANGNB-i  converted  to  one's  complement  form 
Skip  next  two  lines 

TStr  = TS-]  converted  to  one ' s complement  form 
TSsh  - TS2  converted  to  one's  complement  form 
TS  = - sinTStr 

•7 

TS_  - cosTSsh  cosTStr 
TSjj.  = sinTSsh  cosTStr 
Return 

If  RADMODES  bit  12  (ANTENFLG)  = 1 : 

Switch  RADMODES  bit  12  (ANTENFLG)  to  0 (change  to  Mode  I) 
Return 
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Switch  RADMODES  bit  12  (MTENFLG)  to  1 
Return 


(change  to  Mode  II ) 


BE GOES  If  RADMODES  bit  14  (REMODFLG)  = 0,  proceed  to  "STDESIG" 

REMODE  RDES  = 0 

If  RADMODES  bit  12  (ANTENFLG)  = 1,  RDES  = -i 
Perforin  "RRTONLY" 

RDES  = K:m45DEGSR 
Perform  "RRSONLr* 

RDES  = K;m50DEGSR  (Mode  II) 

If  RADMODES  bit  12  (ANTENFLG)  = 0,  RDES  = RDES  + K:m80DEGSR 
Perform  "RRIONLY” 

RDES  = 0 

If  RADMODES  bit  12  (ANTENFLG)  = 0,  RDES  = - i 
Perform  "RRTONLr' 

RDES  = 0 

If  RADMODES  bit  12  (ANTENFLG)  = 0,  RDES  = -K:1si  (-90°) 
Perform  "RRSONLY” 

Perform  "RMODINV" 

Switch  RADMODES  bit  14  (RHIODFLG)  to  0 
If  RADMODES  bit  10  (DESIGFLG)  = 0,  proceed  to  "RGOODEND" 
STDESIG  If  RADMODES  bit  11  (REPOSMON)  = 1; 

Switch  RADMODES  bit  10  (DESIGFLG)  to  0 
Proceed  to  "RDBADEND" 
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If  RADMODES  bit  15  (CDESFLAG)  = 1,  proceed  to  "MOREDES" 

If  RADMODES  bit  10  (DESIGFLG)  = 0,  proceed  to  "ENDRADAR" 

If  DESCOUNT  > 0; 

DESCOUNT  = DESCOUNT  -1 

Proceed  to  "MOREDES" 

Switch  bits  14  and  2 of  channel  12  to  0 

(disable  RR  tracker  and  RR  CDU  Error  Counters) 

switch  RADMODES  bit  10  (DESIGFLG)  to  0 

Proceed  to  "RDBADEND" 

MOREDES  Establish  "DODES"  (pr26) 

Delay  0.5  second  (waitlist) 

Proceed  to  "STDESIG" 

DODES  TANGq  = CDU^ 

TANG.  = CDU 
\ s 

TSlos  = ^TARGET 

If  FLAGWRDO  bit  6 (RRNBSW)  = 0: 

Perform  "CDUTRIG' 

Perform  "SMTONB" 

TSlos  = (SMNBMATJ  unit(MLOSV  RRTARCET  + K:MCT0MS  LOSVEL) 

TStr  = TANGq  converted  to  one's  con^jlement  form 

TSsh  = TANG^  converted  to  one's  conplement  form 

TANG.  = cosTSsh  TSlos  - sinTSsh  TSlos 
1 X z 
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RRDESDUN 


I sinTStr  sinTSsh  \ 

TRUNNCMD^  = - K;RDESGAIN  ( cosTStr  | • TSlos 

^ \ sinTStr  cosTSsh  } 

If  RADMODES  bit  12  (ANTENFLG)  = 1,  TANG.  = - TANG^ 

(a  relay  in  the  RK  reverses  polarity  of  the  shaft  commands 
in  mode  II;  con?)ensate  by  changing  polarity  of  command.) 

TRUNNCMD^  = K:RDESGAIN  TANG^ 

(sinTSsh  cosTStr  \ 

-sinTStr  I 

cosTSsh  cosTStr/ 

If  FLAGWRDO  bit  6 (RRNBSW)  = 0; 

Perform  "NBTOSM" 

TS  = [nBEMMA"^  TS 

TSchk  = 0 

If  TS'PTARGET  < K;C0S1d2DG,  TSchk  = 1 

If  RADMODES  bit  15  (CDESFLAG)  = 1,  proceed  to  "DORROUT" 

If  TSchk  = 0 and  FLAGWRDO  bit  5 (LOKONSW)  = 0,  proceed  to  "RRDESDUN" 

If  TSchk  = 0 and  FLAGWRDO  bit  5 (LOKONSW)  = 1 : 

Switch  bit  14  of  channel  12  to  1 (enable  flR  tracker) 

If  bit  4 of  channel  33  = 1 , proceed  to  "DORROUT" 

(designate  until  data  good  discrete  is  present) 

TS  = RADMODES  (with  bit  10  forced  to  0) 

Inhibit  interrupts 

RADMODES  = TS 

Switch  FLAGWRD2  bit  12  (LOSCMFLG)  to  0 

Switch  bit  2 of  channel  12  to  0 (Disable  RR  Error  Counter) 

Release  interrupt  inhibit 
End  job 
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DORROUT  If  FLAGWRD2  bits  12  (LOSCMFLG)  or  U (SRCHOPTN)  = 1: 


RRZERO 


RRZ2 


TS  = NLOSV  piARGET  + i K:MCTOMS  LOSVEL 
^TARGET  = unltTS 
MLOSV  = |TS[ 

Inhibit  Interrupts 

If  RADMODES  bit  11  (REPOSMON)  = 0,  perform  "RROUT" 

If  FLAGWRD2  bit  12  (LOSCMFLG)  = 0,  proceed  to  "ENDOFJOB" 
If  LOSCOUNT  = 0; 


Remove  "STDESIG"  from  waitlist  if  it  is  there 
Release  interrupt  inhibit 
If  NEWJOB>  0,  perform  "CHANG1" 

If  NEWJOB  = +0,  proceed  to  "R21LEM2" 

LOSCOUNT  = LOSCOUNT  - 1 
Proceed  to  "ENDOFJOB" 

If  RADMODES  bit  1 (TURNONFL)  or  bit  11  (REPOSMON)  = 1; 

Call  "RGOODEND"  in  0.01  second 
Return 

Inhibit  interrupts 

Switch  RADMODES  bit  13  (RCDUOFLG)  to  1 
Call  "RRZ2"  in  0.01  second 

If  RADMODES  bit  2 (AUTOMODE)  = l,  perform  "ALARM"  with  TS  = 0051 Og 

Release  interrupt  inhibit 

Return 

Perform  "RRZEROSB" 

Proceed  to  "ENDRADAR" 
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R04Z  RSAMPDT  = KtlSECpI 

RTSTLOC  = 0 
RFAILCNT  = 0 
Inhibit  interrupts 

Set  RADMODES  bits  9 (ALTSCALE) , 6 (LRPOSFLG),  and  3 (RRRSFLAG) 
bits  9,  6,  and  3 of  channel  33 

Release  interrupt  inhibit 

If  FLAGWRD3  bit  9 (R04FLAG)  = 0:  (R77) 

RSAMPDT  = K;  250MSp1 

RTSTBASE  = 2 

RTSTMAX  = 6 

Call  "RADSAMP"  in  0.06  second 
Proceed  to  "PINBRNCH" 

OPTIONX^  = 1 
OPTIONXq  = 4 

Perform  " GOXDSPFR"  with  TS  = K:V04N12  (OPTIONXq,  OPTIONXJ 
(if  terminate,  proceed  to  "R04END" ; if  proceed,  skip 
next  two  steps;  other  response,  repeat  this  step) 

Perform  "BLANKET"  with  TS  = 00004g  (blank  R3) 

End  job 

RTSTDEX  = OPTIONXq 

R04X  If  RTSTDEX  < 1:  (Bits  3 and  2 are  both  0;  RR) 

RTSTBASE  = 0 

If  bit  2 of  channel  33  - 1 : (RR  not  in  AUTO  mode ) 

DSPTEM1  = 00201 g 
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If  bit  2 of  channel  33  = 1 : (continued) 


Proceed  to  " G0MARK4"  with  TS  = K;V50N25  (DSPTEMI ) 

(if  terminate,  proceed  to  "R04END" ; if  proceed, 
repeat  at  second  previous  step (to  assure  that  RR 
has  been  switched  to  AUTO);  other  response,  repeat 
at  previous  step . ) 

Switch  bit  14  of  channel  12  to  1 (enable  RR  tracker) 

RTSTMAX  = 2 

If  RTSTDEX  > 1 : (Bit  3 or  2 is  1 ; LR) 

RTSTBASE  = 2 
RTSTMAX  = 6 

Call  "RADSAMP"  in  RTSTMAX  centiseconds 


Release  interrupt  inhibit 
If  RTSTDEX  ^ 1 ; (RR) 


Proceed  to  " GOXDSPP'  with  TS  = K:V16N72  (CDU^  and  CDUg) 

(If  terminate,  proceed  to  "R04END" ; if  proceed,  continue 
at  next  step;  other  response,  repeat  this  step.) 


Proceed  to  "GOXDSPP'  with  TS  = K:V16N78  (DNRRANGE,  DNRRDOT, 

(if  terminate,  proceed  to  "R04END";if  proceed,  TTOTIG) 
continue  at  next  step;  other  response,  repeat  at 
previous  step.) 

If  RTSTDEX  > 1 ; (LR) 


Proceed  to  "GOXDSPP'  with  TS  = K:V16n66  (RSTACK^, channel  33) 
(If  terminate,  proceed  to  "R04END" ; if  proceed,  continue 
at  next  step;  other  response,  repeat  this  step.) 

Proceed  to  "GOXDSPP'  with  TS  = K:V16n67  (RSTACKq  2 /) 

(If  terminate,  proceed  to  "R04END" ; if  proceeaj  ’ 
continue  at  next  step;  other  response,  repeat  at 
previous  step.) 

RSAMPDT  = +0  (to  stop  "RADSAMP") 

Delay  2 seconds 
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R04END 


RADSAMP 


RSAMPDT  = KtlSECpI 
RTSTLOC  = 0 
If  RTSTDEX  ^ 1 , TS  = 2 
If  RTSTDEX  > 1 , TS  = 1 
RTSTDEX  = TS 
Proceed  to  "R04X" 

RSAMPDT  = +0 

Delay  1 .28  Seconds 

Inhibit  interrupts 

Switch  bit  14  of  channel  12  to  0 

Switch  FLAGWRD3  bit  9 (R04ELAG)  to 

Proceed  to  "ENDEXT" 

If  RSAMPDT  = +0,  end  task 

Call  "RADSAMP"  in  (|rSAMPDT/  - 1) 

Establish  "DORSAMP" 

RTSTDEX  = RTSTBASE  + RTSTLOC  / 2 
End  task 


(disable  RR  tracker) 
0 

centiseconds 

(pr25) 
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DORSAMP  If  RTSTDEX  = 0,  perform  "RRRANGE"  with  TSn  = 1 
If  RTSTDEX  = 1 , perform  "RRRDOT"  with  TSn  = 1 

If  RTSTDEX  = 2,  perform  "LRVELX"  with  TSn  = 1 

If  RTSTDEX  = 3,  perform  "LEVELY"  with  TSn  = 1 

If  RTSTDEX  = 4,  perform  "LRVELZ"  with  TSn  = 1 

If  RTSTDEX  = 5,  perform  "LRALT"  with  TSn  = 1 
Perform  "RADSTALL" 

If  RADGOOD  = 0,  RFAILCNT  = RFAILCNT  + 1 

Inhibit  interrupts 

If  FLAGWRD5  bit  11  (R77FLAG)  = 0: 

^STACKj^TSTIX)C  = SAMPLSUM^p 

If  RADMODES  bit  6 (LRPOSFLG)  bit  6 of  channel  33 
Perform  "ALARM"  with  TS  = 00522g 
RFAILCNT  = RFAILCNT  + 1 
If  RTSTLOC  RTSTMAX: 

RTSTLOC  = RTSTLOC  + 2 

End  job 
RTSTLOC  = 0 
End  job 

RRRANGE  TSset  = OOOIIg  (bits  1 and  4 = 1 ) 

Perform  "INITREAD"  with  TSn  = 1 
Return 
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RRRDOT  TSset  = 0001 2g  (bits  2 and  4 = l) 

Perform  "INITREAD"  with  TSn  = 1 
Return 

LRVELX  TSset  = 00014g  (bits  3 and  4 = 1 ) 
Perform  "INITREAD" 

Return 

LRVELY  TSset  = 0001 5g  (bits  1 , 3 and  4 = 1 ) 

Perform  "INITREAD" 

Return 

LRVELZ  TSset  = 000l6g  (bits  2,  3 and  4 = 1 ) 

Perform  "INITREAD" 

Retxim 

LRALT  TSset  = OOOIVg  (bits  1,  2,  3 and  4 = 1 ) 

Perform  "INITREAD"  with  TSn  = 1 
Return 

INITREAD  Inhibit  interrupts 

TIMEHOLD  = TSn  K:40ms 
NSAMP  = TSn  - 1 
SAMPLIM  = 2 TSn 


OIDATAGD  = bits  4>  5 and  8 of  channel  33 

(RR  data  good,  LR  pos  data  good,  LR  vel  data  good  discretes) 

TS  = TSset 

Perform  "RADSTART" 
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TIMEHOLD  = TIMEHOLD  + TIMENOW 


RADSTALL 


ENDRADAR 

RGOODEND 


SAMPLSUM  = 0 

Release  interrupt  inhibit 
Return 

Inhibit  interrupts 

If  RADCADR  > 0 or  if  RADCADR  < -1 ; 

TS1,  = return  address  plus  1;  FBANK  calling  address  of 
^calling  routine 

Proceed  to  "BAIL0UT1"  with  TS  = 31210g 
If  RADCADR  = -1:  (operation  already  complete  and  good) 

RADCADR  = +0 

Release  interrupt  inhibit 

RAD GOOD  = 1 

Return 

If  RADCADR  = -0;  (operation  already  conplete  and  bad) 
RADCADR  = +0 

Release  interrupt  inhibit 

RAD GOOD  = 0 

Return 

RADCADR  = return  address  (to  caller  of  "RADSTALL") 

Put  present  job  to  sleep 
When  awakened,  return  via  LOC 

If  RADMODES  bit  7 (RCDUFAIL)  = 0,  proceed  to  "RDBADEND" 

If  RADCADR  = +0; 

RADCADR  = -1 
End  task 


RADR  - 18 


If  RADCADR  = -0; 


RDBADEND 


RADAREAD 


RADCADR  = +0 
End  task 
LOG  = RADCADR 
RAD GOOD  = 1 

Wake  job  put  to  sleep  in  "RADSTALL" 

RADCADR  = +0 
End  task 

If  RADCADR  = ± 0: 

RADCADR  = -0 
End  task 
LOG  = RADCADR 
RAD GOOD  = 0 

Wake  job  put  to  sleep  in  "RADSTALL" 

RADCADR  = +0 
End  task 

(entered  on  radar  interrupt  about  85-95  ms  after  "INITREAD") 
TTOTIG  = TTOGO 

DNINDEX  = bits  of  channel  13  (radar  selection  bits) 

If  DNINDEX  7^  0:  (if  radar  select  bits  zero,  do  not  store  data 
for  downlist  (erasable  problems)) 

DNRADATAjjjj = RNRAD  (radar  data) 
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If  SAMPLIM  < 0: 


LRHEIGHT 


Perform  "ALARM"  with  TS  = 00520g 
Resme 

If  SAMPLIM  = 0: 

If  FLGWRD11  bit  15  (LRBYPASS)  = 0,  proceed  to  "BADRAD" 

If  FLAGWRD3  bit  9 (RO/inFLAG)  = 0,  perform  "ALARM" 
with  TS  = 00 521 g 

Proceed  to  "BADRAD" 

SimPLIM  = SAMPLIM  - 1 

If  bit  3 of  channel  13  = 0,  proceed  to  "RENDRAD" 

Perform  "R77CHECK" 

If  bits  1 and  2 channel  13  are  both  1,  proceed  to  "LRHEIGHT" 
(LR  range/altitude  measior ement ) 

TS^  = RNRAD  +K:LVELBIAS 
dp 

i = 8 

Perform  "DGCHECK"  (returns  only  if  data  is  good) 

If  NSAMP  > 0: 

NSAMP  = NSAMP  - 1 
Proceed  to  "RESAliPLE" 

Proceed  to  "GOODRAD" 
i = 5 

If  bit  9 of  RADMODES  (ALTSCALE)  ^ bit  9 of  channel  33: 

Proceed  to  "SCALCHNG"  with  j = 9 

TS , = RNRAD 

dp 
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If  bit  9 of  channel  33  - • (LR  range  high  scale) 


RENDRAD 


DGCHECK 


Perform  "DGCHECK” 

Proceed  to  "GOODRAD" 

If  RADMODES  bit  7 (RCDUFAIL)  = 0 or  if  RADMODES  bit  11 
(REPOSMON)  = 1,  proceed  to  "BADRAD" 

i = 4 

If  bit  1 of  channel  13  = 0:  (RR  range  rate  meas^arament ) 

TS^  = RNRAD  - K:RDOTBIAS 
dp 

Perform  "DGCHECK" 


Proceed  to  "GOODRAD" 

If  bit  3 of  RADMODES  (RRRSFLAG)  bit  3 of  channel  33: 

Proceed  to  "SCALCHNG"  with  j = 3 

TS  , = RNRAD 

dp 

If  bit  3 of  channel  33  = 1 : (RR  range  high  scale) 


TS^  = 8 TS , 
dp  dp 

Perform  "DGCHECK" 


Proceed  to  "GOODRAD" 

If  bit  i of  channel  33  0 and  bit  i of  OIDATAGD  = 0: 

(bit  8 is  LR  velocity  data  good,  bit  5 is  LR  altitude 
data  good,  bit  4 is  RR  data  good,  if  zero) 


SAMPLSUM  = SAMPLSUM  + TS^ 

dp 

Return  (with  good  sample) 

Set  bit  i of  OLDATAGD  = bit  i of  channel  33 
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RESAMPLE  If  SAMPLIM  > 0: 


SCALCHNG 


BADRAD 


GOODRAD 


TS  = 0001 Og 
Perform  "RADSTART" 
Resume 


Switch  bit  i of  RADMODES  to  1 

(bit  8 is  LRVELFLG,  bit  5 LRALTFLG,  bit  4 RRDATAFL) 

SAMPLSUM  = TS,  (return  with  bad  sample  rather  than  none 

^ because  no  more  tries  are  available) 

Perform  "RADLITES" 

If  FLGWRD11  bit  15  (LRBYPASS)  = 0,  proceed  to  "BADRAD" 

If  FLAGWRD3  bit  9 (R04FLAG)  = 0,  perform  "ALARM"  with  TS  = 00521 g 

Proceed  to  "BADRAD" 

Invert  RADMODES  bit  j 

(bit  9 is  ALTSCALE,  bit  3 is  RRRSFLAG) 

OLDATAGD  = bits  4,  5 and  8 of  channel  33  (data  good  bits) 

Switch  FLAGWRD5  bit  10  (RNGSCFLG)  to  1 

SAMPLIM  = -1 

Cause  "End  task"  instruction  in  "RDBADEND"  to  perform  the 
same  function  as  a "Resume"  instruction 

Proceed  to  "RDBADEND" 

SAMPLIM  = -1 

Switch  bit  i of  RADMODES  to  0 

(bit  8 is  LRVELFLG,  bit  5 is  LRALTFLG,  bit  4 is  RRDATAFL) 

Perform  "RADLITES" 

Cause  "End  task"  instruction  in"RG00DEND"  to  perform  the 
same  function  as  a "Resume"  instruction 

Proceed  to  "RGOODEND" 
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LRP0S2 


LRPOSCAN 


RRLIMNB 


Inhibit  Interrupts 

Switch  RADMODES  bit  6 (LRPOSFLG)  to  1 

If  bit  7 of  channel  33  = 0;  (already  in  position  two) 

Gall  "RGOODEND"  in  0.01  second 
Release  interrupt  inhibit 
Return 

Switch  bit  13  of  channel  12  to  1 (command  LR  to  position  2) 

Call  "LRPOSCAN"  in  6 seconds 
Release  interrupt  inhibit 
Return 

SAMPLIM  = I6g 
Delay  1 second 

If  bit  7 of  channel  33  = 0;  (position  2 achieved) 

Delay  2 seconds 

Switch  bit  13  of  channel  12  to  0 
Proceed  to  "RGOODEND" 

If  SAMPLIM  > 0; 

SAMPLIM  = SAMPLIM  - 1 

Proceed  to  second  step  of  "LRPOSCAN" 

Switch  bit  13  of  channel  12  to  0 (terminate  positioning  commaiids) 
Proceed  to  "RDBADERD" 

TSchk  = 1 

If  RADMODES  bit  12  (ANTENFLG)  = 1,  proceed  to  "MODE2CHK" 
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If  (TSqI  > K:0. 30555,  TSchk  = 0 

If  TS^  > 0 and  (TS^  + K:5.5DEGS;  > K:0. 35833,  TSchk  = 0 
If  TS^  0 and  |TS^  + K:20.5DEGS|  >K:0. 35833,  TSchk  = 0 
Return 

LUNDESCH  If  FLAGWRD8  bit  8 (SURFFLAG)  = 1: 

RADLIMCK  = 0 
RADCADR  = + 0 
Proceed  to  "DESRETRN" 

If  FLAGWRDO  bit  7 (RNDVZFLG)  = 0,  end  job 
Perform  "RMODINV 


RADLIMCK  = 1 
RiiDCADR  = + 0 


Proceed  to  "DESTRETRN" 

R77CHECK  If  FLAGWRD5  bit  11  (R77FLAG)  = 0,  ret\irn 

Set  bits  5 (LRALTFLG)  and  8 (LRVELFLG)  of  RADMODES  = 
bits  5 and  8 of  channel  33 

Cause  "End  task"  instruction  in  "RGOODEND"  to  perform  the 
same  function  as  a "Resume"  instruction 


Proceed  to  "RGOODEND" 


RADSTART  TS^  = LOSCALAR 


TS^  = low  5 bits  of  TS^ 

RADDEL  = low  5 bits  of  ( 00040g  - TS^  ) 


If  RADDEL  < 00002g,  proceed  to  "RADSTART" 
Set  bits  TS  of  channel  13  to  1 
RADTIME  = - TS^ 

Return 


(if  a T5  interrupt  1 ; 
scheduled  to  occur  in 
I/I6  th  of  a centi- 
second,  then  these 
operations  repeat  \int  : 
the  interrupt  has 
occurred) 
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C13STALL 


1 

RADLITES 


I 


LITIT 


ONLITES 


If  bit  4 of  channel  13  - 0>  return 

TS  = LOSCALAR  + RADTIME  (LOSCALAR  may  have  overflowed 

once  since  RADTIME  was  last 
If  TS  i K:90MSCALR  + RADDEL  , return  loaded,  but  this  occurrance 

has  been  compensated  for  in 
If  TS  < (K:90MSCALR  + K:mDTSCALR  + RADDEL),  return  the  coding) 

Proceed  to  second  step  of  "C13STALL" 

If  i <5,  proceed  to  second  step  of  "SETTRKF" 

If  i > 5:  (LR  velocity  data  good) 

k = + 1 

TS  = 00004g 

j = 3 

i = 8 

If  i = 5:  (LR  altitude  data  good) 

k = 0 

TS  = 000 20g 
j = 5 
i = 5 

If  bit  i of  RADMODES  = 1,  proceed  to  "ONLITES" 

If  bit  (1  + k)  of  FLGWRD11  = 1,  proceed  to  second  step  of  "SETTRKF" 
TS  = OOOOOg 

If  bit  j of  DSPTAB.^  '=f  bit  j of  TS:  (bit  5 is  LR  altitude 

fail  lamp) 

Set  bit  j of  DSPTAB.^  = bit  j of  TS  (bit  3 is  LR  velocity 

fail  lamp) 

Switch  bit  15  of  DSPTAB^^  to  1 
Return 

Switch  bit  (1  + k)  of  FLGWRD11  to  0 
Proceed  to  "LITIT" 
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Quantities  in  Computations 


CDU^,  CDU^:  LGC  input  counters  incremented  directly  from  the  Coupling 

Data  Unit  to  maintain  LGC  knowledge  of  the  RR  trunnion  and  shaft 
angles,  respectively.  Single  precision  angles  stored  in  two’s  complement 
form  and  scaled  B-1  in  units  of  revolutions. 

CDUSCMD,  CDUTCMD:  LGC  output  counters  connected  to  the  RR  shaft  and 

trunnion  channels  of  the  CDU.  The  contents  of  each  of  these  counters 
is  a rate  command  scaled  B14  in  imits  of  RR  pulses  (one’s  complement 
form)  and  is  sent  to  its  respective  CDU  Error  Counter  by  setting  the 
appropriate  enabling  discrete  in  channel  14.  See  definition  of 
K:RRSPGAIN. 

COSTH:  See  COOR  section. 

DESCOUNT:  Single  precision  counter  defining  the  maximum  amount  of  time 

allowed  for  an  attempt  to  designate,  scaled  BI4  and  unitless. 

DESRET:  A single  precision  octal  return  address  storage  cell. 

DN INDEX:  A single  precision  index  for  selection  of  appropriate  downlink 

buffer  cell  for  radar  data.  DNINDEX  = 1 , 2,  4,  5>  6 or  7 for  RR 
range,  RR  range-rate,  LR  X-velocity,  LR  Y-velocity,  LR  Z-velocity  and 
LR  altitude  data,  respectively;  scaled  BI4  and  unitless. 

DNRADATA^:  Special  storage  for  downlink  of  radar  data,  i = 1,  2,  4>  5,  6, 

and  7 to  index  six  single  precision  cells  (consecutive  except 
between  i = 2 and  4)  alternately  labelled  DNRRANGE,  DNRRDOT,  DNLRVELX, 
DNLRVELY,  DNLRVELZ  AND  DNLRALT,  respectively. 

DSPTAB^^:  See  INTR  section. 

DSPTEM1 ; Temporary  storage  cell  used  mainly  for  display  interface  purposes. 

IMODES33:  See  INTR  section. 
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K:0. 00555:  Single  precision  constant  stored  as  -.00555>  program  notation 

"-.00555" > scaled  B-1  in  units  of  revolutions.  Equation  value: 

+0.002775-  (Equivalent  to  +1.0  degree.) 

Note:  Because  a constant  is  stored  in  one's  complement  form,  its, 

equation  value  changes  if  it  is  compared  with  the  absolute  value  of  a 

negative  two's  complement  nimiber.  In  such  a comparison,  a single 

K—  1 y 

precision  constant  assumes  an  equation  value  of  "A  +2  " where  b is 

the  scale  factor  of  the  constant  and  A is  the  stated  equation  value 
of  the  constant.  In  the  case  of  the  constant  "K:p25"  for  instance, 

A is  0.25  and  b is  -1. 

K: 0.30555,  K:5.5DEGS,  K: 0.35833:  Three  single  precision  constants  foe 

checking  whether  the  radar  position  angles  are  within  the  bounds  of  RR 
Mode  I.  Stored  as  -0.30555)  O.03056,  and  -0.35833)  scaled  B-1  in 
units  of  revolutions.  Equation  values:  +0.152775)  0.01528  and 
+0.179165)  respectively.  See  note  above.  (Equivalent  to  +55  degrees, 
5.5  degrees,  and  +64-5  degrees.) 

K:0. 31667,  K:82DEGS,  K:0. 69444:  Three  single  precision  constants  for 

checking  whether  the  radar  position  angles  are  within  the  bounds  of  RR 
Mode  II.  Stored  as  -0.31667,  0.45556  and  -.69444)  scaled  B-1  in 
units  of  revolutions.  Equation  values:  +0.158335)  0.22778,  and 
+0.34772.  See  note  above.  (Equivalent  to  +57  degrees,  82  degrees 
and  +125  degrees.) 

The  limits  of  Mode  I are:  -55°  - trunnion  - 55°  and  -70°  - shaft  - 59°. 
The  limits  of  Mode  II  are:  125°  trunnion  < -125°  and  -139°  < shaft 
- -25°.  The  latter  corresponds  to  limits  on  the  LOS  angle  of  41°  and 
155°. 

K:1s:f:  Single  precision  constant,  program  notation  "HALF"  stored  as  0.5, 

scaled  B-1  in  units  of  revolutions.  Equation  value  when  used  as  a 

—1 5 

two's  complement,  negative  niimber:  0.25  - 2 . (Equivalent  to  about 

90  degrees . ) 

K:1SECp1:  Single  precision  constant  stored  as  101  x 2 scaled  BI4  in 

units  of  centiseconds.  Equation  value:  1Q1. 
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K:20.5DEGS:  Single  precision  constant  stored  as  0.11389,  scaled  B-1 

in  units  of  revolutions.  Equation  value:  0.05695.  (Equivalent  to 
20 . 5 degrees . ) 

K:250MSp1:  Single  precision  constant  stored  as  26  x 2 scaled  B14 

in  units  of  centiseconds.  Equation  value:  26. 

K:40ms:  Single  precision  constant,  program  notation  "BIT3",  stored  as 

00004g,  scaled  B14  in  units  of  centiseconds.  Equation  value:  4. 
(Equivalent  to  half  the  nominal  value  of  one  radar  sampling  cycle.) 

_9 

K:90MSCALR:  Single  precision  constant  stored  as  9 x 2 , scaled  B9  in  units 

of  centiseconds.  Equation  value  9.  (Equivalent  to  90  milliseconds.) 

K:C0S1d2DG:  Double  precision  constant  stored  as  0.999961923  x 2 scaled 

B2  and  unitless.  Equation  value:  0.99996192. 

K:LVELBIAS:  Single  precision  constant  stored  as  -12288  x 2 scaled  B14 

in  Tjnits  like  those  of  RNRAD.  Equation  value:  -12288.  (Program  comment 
states,  "Landing  radar  bias  for  153.6  kc.") 

K:m45DEGSR:  Single  precision  constant  stored  as  70000g,  scaled  B-1  in 

■units  of  revolutions.  Equation  value  when  used  as  a two's  complement 
nmber:  -0.125.  (Equivalent  to  - 45  degrees.) 

K:m50DEGSR:  Single  precision  constant  stored  as  -0.27778,  scaled  B-1  in  units 

of  revolutions.  Equation  value  when  used  as  a two's  complement 
number:  -0.13892.  (Equivalent  to  -50.00976  degrees.) 

K:m80DEGSR:  Single  precision  constant  stored  as  -0.44444,  scaled  B-1  in 

units  of  revolutions.  Equation  value  when  used  as  a two's  complement 
number:  -0.22225.  (Equivalent  to  -80.00244  degrees.) 

K:mDTSCALR:  Single  precision  constant  stored  as  -.59375  x 2 scaled  ,B9 

in  xinits  of  centiseconds.  Equation  value  -.59375.  (Equivalent  to 
-5.9375  milliseconds) 

K:MAXTRYS:  Single  precision  constant  stored  as  60  x 2~^^,  scaled  B14  and 

unitless.  Equation  value:  60.  (Equivalent  to  30  seconds  of  time  for 
RR  designate.) 
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-1  ^ 

K:MCTOMS:  Double  precision  constant  stored  as  100  x 2 scaled  B13  in 

units  of  centiseconds.  Equation  value:  100. 

K:p25:  Single  precision  constant,  program  notation  "-.5",  stored  as 

-0.5,  scaled  B-1  in  units  of  revolutions.  Equation  value:  +0.25. 
(Equivalent  to  +90  degrees.) 

K:RDESGA.IN:  Single  precision  constant  stored  as  0.53624,  used  to  convert 

from  units  of  radians  to  units  of  revolutions  as  well  as  to  apply  a 
gain  to  the  designated  output.  Scaled  B-1  in  units  of  revolutions  per 
radian.  Equation  value:  1 .6846 5/2 TT',  (Program  comment  states,  "Tries 
toinull  0.5  error  in  0.5  second."  RDESGAIN/RRSPGAIN  5?  1.4.) 

-28 

K:RD0TBIAS:  Double  precision  constant  stored  as  17000  x 2 , scaled  B28 

in  units  of  radar  counts  (same  as  RNRAD) . Equation  value:  17000. 

K:rrlimit:  Single  precision  constant,  program  notation  "-RRLIMIT",  stored 

as  -384  X 2”^^,  scaled  B14  in  units  of  RR  drive  pulses.  Equation 
value:  384.  (See  K:RRSPGAIN  for  explanation.) 

K:RRSPGAIN:  Single  precision  constant  stored  as  0.59062,  scaled  B15  in 

units  of  RR  drive  pulses  per  revolution  of  error.  Equation  value: 
19353.  (Equivalent  to  0.7  x 2sec  ^ x 360  deg/rev  x (10/384)  ^ pulses 
per  degree  per  second.  The  first  two  terms  "null  0.7  of  the  error  in 
second,"  and  the  fourth  is  derived  from  the  fact  that  a saturated 
error  counter  causes  a drive  rate  of  10  degrees  per  second.) 

LASTSCMD,  LASTTCMD:  Storage  for  the  previous  value  of  total  RR  shaft  and 
trunnion  position  deviation;  scaled  B14  in  units  of  RR  drive  pulses. 
Used  to  convert  present  position  deviation  into  a desired  rate  command 
to  be  inserted  into  CDUSCMD  or  CDUTCMD. 

LOG:  See  MATX  section. 

LOSCALAR:  A 14  bit  register  corresponding  to  channel  4 of  the  computer. 

It  is  incremented  1 bit  every  1/3200  of  a second  and  is  driven  by 
a 102.4  kc  signal  from  the  computer  oscillator.  It  overflows  (and 
propagated  to  channel  3)  every  5.12  seconds.  This  register  is  0.005 
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second  out  of  phase  with  the  TIMENOW  registers.  It  is  equivalent  to 
a single  precision  time  cell  scaled  B9  in  units  of  centiseconds. 

LOSCOUNT:  Single  precision  counter  defining  the  interval  between  compu- 

tation of  a new  line-of-sight  vector,  scaled  B14  and  unitless. 

LOSVEL:  See  RNAV  section. 

MLOSV : See  RNAV  section. 

MODEALTq,  MODEALT^:  Value  of  the  trunnion  and  shaft  angles,  respectively, 

which  are  necessary  to  point  the  RR  along  the  desired  line-of-sight 
in  the  alternate  mode  of  the  RR.  Single  precision  angles  in  two's  com- 
plement form,  scaled  B-1  in  units  of  revolutions.  Program  notation 
"MODEB". 

MODEPRESq,  MODEPRES^ : Value  of  the  trunnion  and  shaft  angles,  respectively, 

which  are  necessary  to  point  the  RR  along  the  desired  line-of-sight 
in  the  present  mode  of  the  RR.  Single  precision  angles  in  two's  com- 
plement form,  scaled  B-1  in  units  of  revolutions.  Program  notation 
"MODEA" . 

NEWJOB:  See  MATX  section. 

NSAMP:  A single  precision  counter,  scaled  BI4.  Controls  the  niomber  of 

sampling  cycles  in  the  total  sampling  interval  for  LR  velocity  measure- 
ments . 

OIDATAGD:  A single  precision  cell  containing  the  status  of  radar  "data 

good"  discretes  at  the  beginning  of  a sample.  (See  RADMODES) 

OPTIONXp,  OPTIONX^:  See  EXVB  section. 

RADCADR:  Single  precision  octal  storage  for  address  to  return  to 

program  that  is  sampling  the  radar  and  waiting  for  sample  to  be 
completed . 

RADGOOD:  Temporary  variable  introduced  as  a substitute  for  variable 

rettirn  address;  set  to  1 or  0 to  indicate  whether  a radar  operation 
was  successfully  completed  or  not. 

RADDEL:  Computed  in  "RADSTART"  it  is  a single  precision  time  until  the  next 
T5  interrupt,  scaled  B9  in  units  of  centiseconds.  Derived  from  the  low 
five  bits  of  LOSCALAR. 
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RADLIMCK:  Temporary  variable  indication  which  of  three  return  options 

from  "RRDESSM"  is  taken. 

RADMODES:  A flagword  whose  bits  have  the  following  significance  when 

set  ( 1 ) : 

Bit  Mnemonic  Meaning 

15  CDESFLAG  Continuous  designate;  used  in  conjunction  with  bit  10 
14  REMODFLG  RR  remode  required 

13  RCDUOFLG  RR  seroing  in  progress 

12  ANTENFLG  RR  in  Mode  II  (in  Mode  I if  zero) 

11  RiPOEMON  RR  repositioning  in  progress;  RR  was  outside  of 
prescrived  limits 

10  DESIGFLG  RR  designation  in  progress 

9 ALTSGALE  LR  range  high  scale  (low  scale  if  bit  is  zero) 

8 LRVELFLG  LR  velocity  data  bad  (LR  vel  data  good  if  bit  is  zero) 

7 RCDUFAIL  RR  CDU  operative  (RR  CDU  failed  if  bit  is  zero) 

6 IHPOSFLG  LR  commanded  to  and  presumed  to  be  in  position  #2 

5 LEIALTFLG  LR  position  data  bad  (LR  pos  data  good  if  bit  is  zero) 

4 RRDATAFL  RR  data  bad  (if  zero,  the  RR  data  is  "good'^  the  RR 

tracker  has  acquired  a target,  hopefully  the  GSM  and 
hopefully  not  a side  lobe). 

3 RRRSFLAG  RR  range  high  scale  (low  scale  if  bit  is  zero) 

2 AUTOMODE  RR  not  turned  on  or  not  in  automatic  mode  of  opera- 

tion (if  zero,  the  RR  is  on  and  it  is  in  the 
automatic  mode) 

1 TURNONFL  RR  turn-on  in  progress 

RADTIME:  Single  precision  storage  for  the  complement  of  the  value  of 

LOSCALAR  at  the  time  bit  4 of  channel  13  was  set,  scaled  B9  in 
units  of  centiseconds. 

RDES:  Desired  RR  position  angle  (shaft  or  trunnion);  a single  precision 

vrariable  in  two's  complement  form,  scaled  B-1  in  units  of  revolutions. 

RFAILCNT:  Single  precision  counter  scaled  BI4  and  used  to  keep  track  of 

the  number  of  unsuccessful  attempts  to  read  the  radar  data. 


RADR  - 31 


RiJRAD:  Single  precision  LGC  counter  advanced  directly  by  whichever  radar 


circuit  is  enabled 

Samole  Type 

for  sampling,  scaled  BI4  in  units  of  counts. 

Value  of  1 count 

RRRDOT 

RRRANGE 

-0. 191 35344  meters/second 

-0.6278  fps 

low  scale 

2.859024  meters 

9.38  feet 

high  scale 

22.872192  meters 

75.04  feet 

LRVELX 

-0.1962912  meters/second 

-O.644O  fps 

LRVELY 

0.3694176  meters/second 

1.212  fps 

LRVELZ 

LRALT 

0 . 2642006  meters/ second 

0.8668  fps 

lowscale 

0.3288792  meters 

1.0790  feet 

high  scale 

1 .64440  meters 

5.3950  feet 

RRINDEX:  Single  precision  index  to  indicate  whether  the  content  of  RDES 
is  a desired  shaft  angle  (l)  or  a desired  trunnion  angle  (O),  scaled 
BU. 

RRRET:  Single  precision  octal  return  address  storage. 

RETARGET:  Desired  line-of-sight  vector,  a double  precision  unit  vector 

scaled  B1  in  stable  member  or  navigation  base  coordinates  (see  FLAGWRDO 
bit  6). 

RSAMPDT:  A cell  used  for  storage  of  the  low-speed  sampling  interval,  in 

centiseconds  scaled  BI4. 

RSTACK^:  A series  of  4 double  precision  cells  loaded  with  radar  sample 

data  for  display  in  noxms  66,  67  and  (i  = 0,  2,  4,  6). 

RTSTBASE:  Single  precision  quantity  scaled  BI4  used  to  set  RTSTDEX  for 

LR  or  RR  sampling  in  an  automatic  sampling  mode. 

RTSTDEX:  An  option  loaded  by  the  astronout  or  set  by  the  program  to  desig- 

nate the  specific  radar  data  to  be  sampled  single  precision,  scaled  BI4. 
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RTSTLOC:  A single  precision  index  used  to  position  sampled  data  in  the 

dovmlink  communication  cells  . 

RTSTMAX:  A single  precision  limit  on  the  number  of  RSTACK^  cells  to  be 
loaded,  scaled  BI4. 

SAMPLIM:  A limit  on  the  number  of  sampling  cycles  that  may  be  executed  in 

a given  sampling  interval  to  limit  the  number  of  bad  samples  that 
may  be  attempted  before  the  sampling  is  abandoned,  scaled  BI4. 

SAMPLSUM:  Double  precision  total  of  radar  data  accumulated  in  n sampling 

intervals  (n  always  1 for  RR  and  LRALT),  scaled  B28  in  units  of  radar 
input  counts. 

Value  for  1 s-imple 
-0. 191 35344  meters/second 
2.859024  meters 
-0.1962912 
0.3694176 
0.2642006 
0.3288792 


meters/ second 
meters/ second 
meters/ second 
meters 


Sample  Type 
RRRDOT 
RRRANGE 
LRVELX 
LRVELY 
LRVELZ 
LRALT 

[SHRLMA"^  : See  COOR  section. 

SINTH;  See  COOR  section. 

TANGq,  TANG^ : Single  precision  storage  for  desired  values  of  or  desired 

changes  in  the  RR  trvinnion  and  shaft  angles,  respectively.  Scaled  B-1  in 
two's  complement  form  in  the  "RRDESNB"  and  "R21LEM"  routines.  Scaled  B2 
in  units  of  radians  (one's  complement  form)  in  the  "DODES"  routine. 

TANGNBq,  TANGNB^ : Temporary  two's  complement  storage  (astronout  desired 

or  radar  marked)  radar  position  angles  (trunnion  and  shaft,  respectively), 
scaled  B-1  in  units  of  revolutions. 


THETA:  See  COOR  section. 


TIMEHOLD:  Double  precision  time  at  the  middle  of  the  total  sampling 

interval  ( assimaing  no  bad  samples),  scaled  B28  in  units  of  centi- 
seconds. 
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TIMENOW: 


See  EXVB  section. 


TRUNNCMDq  ^ : Single  precision  storage  for  the  desired  values  of  the 

RR  trimnion  and  shaft  angle  drive  rates,  respectively.  Scaled 
BI4  in  units  of  RR  drive  pulses.  An  alternate  mnemonic  for  TRUNNCMD 
is  SHAFTCMD. 

TTOGO:  See  BURN  section. 

TTOTIG:  Double  precision  time  to  TIG,  loaded  in  the  radar  read  routine 

"RADAREAD”  at  the  time  of  the  radar  reading,  scaled  B28  in  units  of 
centiseconds. 
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RNAV 


Rendezvous  Navigation 


PR0G20 

(PR0G22) 

ORBCHGO 


If  FLAGWRD8  bit  8 (SURFFLAG)  = 0:  (pr26) 

Switch  FLAGWRD1  bit  8 (VEHUPFLG)  to  0 

Proceed  to  "PR0G20A" 

Switch  FLAGWRD1  bit  8 (VEHUPFLG)  to  1 

0PTI0N2  =1  (GSM  orbit  option) 

Proceed  to  "G0PERF4'’  with  0PTI0N1  = 0001 2^ 

(if  terminate,  proceed  to  "GOTOPOOH";  if  proceed,  continue 
at  next  step;  other  response,  repeat  this  step.) 

If  0PTI0N2  = 1,  proceed  to  "PR0G20A" 

Proceed  to  "GO FLASH"  with  TS  = K:V06N33 

(if  terminate,  proceed  to  "GOTOPOOH";  if  proceed,  continue 
with  next  step;  other  response,  repeat  this  step.) 

Perform  " INTSTALL" 

'^^NCHTM  = 

TDEC1  = TIG 

Switch  FLAGWRD3  bits  4 (INTYPFLG),  3 (VINTFLAG) , 2 (d60R9FLG) 
and  1 (DIMOFLAG)  to  0 

Perform  " INTEOIV" 

PUBL  = MTT 

TDEC1  = TAT 

Perform  "INTSTALL" 

Switch  FLAGWRD3  bit  3 (VINTFLAG)  to  1 

Switch  FLAGWRD3  bits  4 (INTYPFLG)  and  1 (DIMOFLAG)  to  0 
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If  FLAGWfiD5  bit  1 (RENDWFLG)  = 1: 

Switch  FLAGWRD3  bits  1 (DIMOFLAG)  and  2 (D60R9FL.G)  to  1 
Perform  "INTEGRV" 

VSUBC  = VATT 
RSUBC  = MTT 

UC3M  = miit(RSUBL»^unit(RSUBC^»VSUBC)) 

CSTH  = unit(RSUBC)*UCSM 
SNTH  = V>  - CSTH^' 

RVEC  = ^UBC 
WEC  = -VSUBC 

Switch  FLAGWRD7  bit  9 (RVSW)  to  0 
Perform  "TIMETHET'' 

NEWVEL  = -TS 

- — V 

NEWPOS  = TS 

_ _ P 

"^^TRANSTM  " 

NCSMVEL  = |pWVEL|  unit ( unit (NEWPOSi^RSUBL)*pWPOS) 

Perform  "INTSTALL" 

TET  = 

RRECT  = NEWPOS 
RCV  = NEWPOS 
VRECT  = NCSMVEL 
VCV  = NCSMVEL 
TDELTAV  = 0 
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TNUV  = 0 


PR0G2CA 


P20LEM1 


P20LEMA 


TC  = 0 
XPREV  = 0 
PBODY  - 2 
Perform  "MOVEACSM" 

Switch  FLAGWRD8  bit  12  (CMOONFLG)  to  1 
Perform  "SVDWN1 " 

Set  FLAGWRD8  bit  12  (CMOONFLG)  = FLAGWRDO  bit  12  (MOONFLAG) 
Perform  "INTWAKE1" 

Perform  "R02B0TH"  (IMU  status  check  routine) 

Switch  FLAGWRD1  bits  5 (TRACKFLG)  and  7 (UPDATFLG)  to  1 
Switch  FLAGWRDO  bit  7 (RNDVZFLG)  to  1 

Switch  FLAGWRD2  bits  14  (SRCHOPTN)  and  13  (ACMODFLG)  to  0 
Switch  FLAGWRD3  bit  9 (RO4FLAG)  to  0 
Switch  FLAGWRD5  bit  4 (NORRMON)  to  0 
Switch  FLAGWRD2  bit  12  (LOSCMFLG)  to  0 

Switch  RADMODES  bits  10  and  15  (DESIGFLG  ) and  (CDESFLAG)  = 0 
Switch  bit  2 channel  12  = 0 
TRKMKCNT  = 0 
TDEC1  = TIMENOW 

Perform  "LPS20.1"  (get  RR  target  vector) 

If  MLOSV  ^ K:FHNM; 

Perform  "PRIOLARM"  with  TS  = 005263 

(if  terminate,  proceed  to  "TRMTRACK";  if  proceed 
repeat  this  step;  other  response,  proceed  to  "P20LEM1 " , ) 

End  j ob 

If  FLAGWRD8  bit  8 (SURFFLAG)  = 0,  perform  "R6ILEM'' 
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P20LEMB 


P20LEMB7 


P20LEMB1 


P20LEMB3 


Change  priority  to  26g 

If  FLAGWRD1  bit  5 (TRACKFLG)  = 0,  proceed  to  ''P20LEMWT" 

If  bit  2 of  channel  33-0,  proceed  to  "P20LEMB3"  (RR  auto  mode) 
If  MODREG  20  and  if  MODREG  22: 


Perform  "PRIOLARM"  with  TS  = 0051/^ 

(if  terminate,  proceed  to  "TRHTRACK" ; if  proceed,  pro- 
ceed to  "P20LEMB";  other  response,  proceed  to 
"P20LEMB''.) 


End  job 

Proceed  to  "G0PERF1"  with  TS  = 00201- 

(if  terminate,  proceed  to  "TRMTRACK”;  if  proceed,  proceed 
to  "P20IiEMB";  other  response,  continue  at  next  step.) 

If  FLAGWRD8  bit  8 (SURFFLAG)  = 1: 

Switch  bit  7 of  channel  11  to  1 (operator  error  lamp) 

Proceed  to  "P20LEMB" 

Perform  "R23EEM"  (manual  acquisition  monitor) 

Switch  FLAGWRD2  bit  13  (ACMODFLG)  to  1 
Proceed  to  •’P20LEMB" 

If  RADMODES  bit  13  (RCDUOFLG)  = 1:  (RR  just  turned  on  and 

still  zeroing) 

Delay  2.5  seconds 
Proceed  to  "P20LEMB3'’ 

If  FLAGWRD2  bit  U (SRCHOPTN)  or  13  (ACMODFLG)  = 1: 

Switch  FLAGWRD2  bits  14  (SRCHOPTN)  and  13  (ACMODFLG)  to  0 
Proceed  to  "P20LiEIMWT" 
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P20LEMC3 


TDEC1  = TIMENOW 


P20LEMC 


P20LEMD1 


P20LEMF 

P20LEWT 

P20LEMC1 


Perform  "UPPSV" 

If  FLAGWEDO  bit  7 (MDVZFLG)  - 0,  end  job 

If  FLAGWRD1  bit  5 (TRACKFLG)  = 1,  proceed  to  "P20LEMF" 

Call  "P20LEMD1"  in  15  seconds 
End  job 

If  FLAGWED1  bit  5 (TRACKFLG)  =0:  (stall  until  TRACKFLG 

is  set  again,  then 

Call  "P20LEMD1 " in  15  seconds  continue  at  automatic 

acquisition) 

End  task 

Establish  "P20LEMC3"  (pr26) 

End  task 

Perform  "R21LEM" 

Call  "P20LEMC1"  in  2.5  seconds 
End  job 

If  FLAGWRDO  bit  7 (RNDVZFLG)  - 0,  end  task 
If  FLAGWRD1  bit  5 (TRACKFLG)  = 0: 

Call  "P20LEMC1"  in  15  seconds 
End  task 

Establish  "R22LEM42"  (pr26) 

End  task 
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PR0G21 


0PTI0N2  = 1 


P21VSAVE 


Proceed  to  «aOPERF4"  with  OPT ION 1 = 2 

(if  tezmlnate^  proceed  to  "GOTOPOOH" ; if  proceed,  continue 
at  next  step;  other  response,  repeat  this  step.) 

DSPTEM1 , = 0 

dp 

Proceed  to  "GOFLASH"  with  TS  = K:V06N34  (get  time  in  DSPTEM1 ) 

(if  terminate,  proceed  to  "GOTOPOOH";  if  proceed, 
continue  at  the  next  step;  other  response,  repeat  this  step.) 

TS  = DSPTEM1 , 
dp 

If  TS  = 0,  TS  = TIMENOW 
Perform  "INTSTALL" 

If  FUGWRDO  bit  11  (P21FLAG)  = 1: 

Proceed  to  •’P21C0NT'' 

Switch  FLAGWRD3  bit  3 (VINTFLAG)  to  0 
If  OPTION 2 ^2:  (CSM  option) 

Switch  FLAGWRD3  bit  3 (VINTFLAG)  to  1 
Switch  FUGWRD3  bits  1 (DIMOFLAG)  and  4 (INTYPFLG)  to  0 
Perform  "INTEGRV" 

P21TIME  = TAT 

P21BASER  = MTT  (scaled  B29  or  B27) 

P21BASEV  = VATT  (scaled  B7  or  B5) 

P21VEL  = jVATTj  (insured  scaling  of  B7  for  N91  display) 

P21GAM  = arcsin  (unit  MTT  • VATT  / P21VEL)  (MTT-B29,  VATT-B7) 
P210RIG  = PBODY  (PBODY  in  index  register  2) 

If  OPTION 2 - 1: 

If  FLAGWRD8  bit  8 (SURFFLAG)  = 1: 

Skip  next  line 

Switch  FLAGWRDO  bit  11  (P21FLAG)  to  1 
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Switch  FLAGWJID3  bit  12  (LUNAFLAG)  to  0 
If  P210RIG  ^ 0 

Switch  FLAGWRD3  bit  12  (LUNAFLAG)  to  1 
^PHA  = RATT 
TS^  = TAT 

Switch  FLAGWRD1  bit  13  (ERADFLAG)  to  0 
Perform  "LAT-LONG" 

P21ALT  = ALT  K:K.01  (ALT/lOO  for  N91  display) 

Proceed  to  "GOFLASH"  with  TS  = K:V06N43  (LAT,  LONG,  ALT) 

(if  terminate,  proceed  to  "GOTOPOOH";  if  proceed,  proceed 
to  "GOTOPOOH";  other  response,  continue  at  next  step.) 

DSPTEM1(jp  = P21TIME  + K:600SEC 

Proceed  to  the  third  step  of  "PR0G21 " 

P21 PONT  RCV  = P21 BASER 

VCV  = P21BASEV 

TET  = P21TIME 

Switch  FLAGWRD3  bit  1 (DIMOFLAG)  to  0 
Switch  FLAGWRDO  bit  12  (MOONFLAG)  to  0 
If  PBODY  ^ 0; 

Switch  FLAGWRDO.  bit  12  ( MOONFLAG)  to  1 
Perform  "INTEGRVS" 

Proceed  to  "P21VSAVE" 

PR0G25  Perform  "R02B0TH"  (pr26) 

Switch  FLAGWRD1  bit  5 (TRACKFLG)  to  1 
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Switch  FLAGWRDO  bit  9 (P25FLAG)  to  1 
Switch  FLAGWRDO  bit  7 (RNDVZFLG)  to  0 


P25LEM1  If  FLAGWRDO  bit  9 (P25FLAG)  = 0,  end  job 
If  FLAGWRD1  bit  5 (TRACKFLG)  = 0: 

Delay  60  seconds 

Establish  '’P25LEM1 " (prU) 

End  job 
R65CNTR  = 7 
Perform  "R65LEM" 

Proceed  to  "P25LEM1" 

LPS20.1  LS21X  = return  address 

If  FLAGWED2  bit  12  (LOSCMFLG)  = 1 : 

If  FLAGWRD8  bit  8 (SURFFLAG)  = 1,  proceed  to  "CSMINT" 
Perform  "LEMCONIC" 

LMPOS  = RATT 
LMVEL  = VATT 
TDEC1  = TAT 

CSMINT  Perform  "CSMCONIC" 

TS  = [rEFSMMAT]  (VATT  - mVEL) 

Remove  "STDESIG"  from  waitlist  if  it  is  there 

LOSVEL  = TS 

TS  = RATT  - LMPOS 

If  FLAGWRDO  bit  7 (RNDVZFLG)  = 1 : 

If  OVFIND  ^ 0,  OVFIND  = 0 
TS^=  unit^TS  x 2^j 
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If  OWIND  0: 


(OWIND  reset  to  O) 


Perform  "PRIOLAEM"  with  TS  = 00526^ 

(if  terminate,  proceed  to  "TRMTRACK";  if 
proceed,  repeat  this  step;  other  response, 
proceed  to  "P20LEM1".) 

End  job 

If  FLAGWRDO  bit  7 (RNDVZFLG)  = 0; 


TS  = unit  TS 

If  OVFIND  ^ O;  (OVFIND  reset  to  0) 


Perform  "PRIOLARM"  with  TS  = 00526^ 

(if  terminate,  proceed  to  "TRMTRACK";  if 
proceed,  repeat  this  step;  other  response, 
proceed  to  "P20LEM1".) 


End  j ob 

^TARGET  = [^FSMMAT^  unit  TS 
MLOSV  = I TS  j 

Switch  FLAGWRDO  bit  6 (RRNBSW)  to  0 


Proceed  to  LS21X 


UPPSV  LS21X  = return  address 
Perform  "INTSTALL" 


Perform  "SETIFLGS" 

If  FLAGWRD5  bit  1 (RENDWFLG)  = 1 : 

Switch  FLAGWRD3  bit  1 (DIMOFLAG)  to  1 
If  FLAGWRD8  bit  8 (SURFFLAG)  = 0; 

Switch  FLAGWRD3  bit  2 (D60R9FLG)  to  1 
If  FLAGWRD1  bit  8 ("VEHUPFLG)  = 0: 

Switch  FLAGWRD3  bit  3 (VINTFLAG)  to  0 
Perform  "INTEGRV" 


Perform  "INTSTALL" 

Switch  FLAGWRD3  bit  3 (VINTFLAG)  to  1 
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UPFSV4 


R61LEM 


R65LHM 

R61C+L01 


(If  FLAGWRD1  bit  8 (VEHUPFLG)  =0:) 

TDEC1  = TETLEM 

Proceed  to  "UPPSV4" 

Switch  FMGWRD3  bit  3 (VINTFLAG)  to  1 
Perform  "INTEGRV" 

Perform  "INTSTALL" 

TDEC1  = TETCSM 

Switch  FLAGWRD3  bit  3 (VINTFLAG)  to  0 
Perform  "SETIFLGS" 

Perform  "INTEGRV" 

If  FLAGWRD8  bit  8 (SURFFLAG)  = 0: 

Proceed  to  "P20LEMC" 

LMPOS  = RCVLEM  (rescaled  by  2~^) 
mVEL  = VCVLEM  (rescaled  by  2"^) 

Retiirn  via  LS21X 
GENRET  = return  address 
Switch  FLAGWRD1  bit  10  (R61FLAG)  to  1 
Proceed  to  "R61C+L02" 

GENRET  = return  address 

Switch  F1AGWRD1  bit  10  (R61FLAG)  to  0 

If  bit  4 of  channel  33  ==  1 , proceed  to  "R61C+L02" 

Switch  FLAGWRD3  bit  9 (R04FLAG)  to  1 

Perform  "RRRDOT" 

Perform  "RADSTALL" 

Perform  "RRRANGE" 
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Perform  "RADSTALL" 


Switch  FLAGWRD3  bit  9 (RO4FLAG)  to  0 
R61C-»L02  If  FLAGWRD1  bit  5 (TRACKFLG)  = 0: 

Proceed  to  "P20LEMWT" 

SC AXIS  = K:UNITZ 

TDEC1  = TIMENOW  + K:3SEC0NDS 

Perform  "LPS20.1"  (get  RR  target  vector) 

POINTVSM  = RRTARGET 

Inhibit  interrupts 

TScdu  = CDUD  (CDUD  =(CDUXD,  CDUYD,  GDUZD)) 
Release  interrupt  inhibit 
Perform  "VECPNT1" 

THETAD  = TS  (THETAD  = (TSpj^^,  TS^p^p^,  TSpg^)) 
If  FLAGWRD1  bit  5 (TRACKFLG)  = 0: 

Proceed  to  "P20LEMWT" 

If  bit  10  of  channel  30  or  bit  I4  of  channel  31  = 1 
Perform  "BALLANGS" 

Proceed  to  "R61C+L06" 

TSref  = RRTARGET 
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Perform  "CDUTRIG" 


R61C+L06 


Perform  "SMTONB" 

TS  „ = rSMNBMA:0  TS  , 

- ref  L.  - ref 

If  TSj.gf.2,  - K;C0S15DEG^0: 

Inhibit  interrupts 
Perform  "ZATTEROR" 

Perform  "SETMINDB" 

Switch  FLAGWRD5  bit  6 (3AXISFLG)  to  0 
Switch  FLAGWRD4  bit  12  (PDSPFLAG)  to  1 
Perform  "R60LEM” 

Inhibit  interrupts 
Perform  "RESTORDB" 

Switch  FLAGWRD4  bit  12  (PDSPFLAG)  to  0 
Proceed  to  "R61C+L06" 

Inhibit  interrupts 
CDUD^  = 

CDUDy  = 

CDUD^  = TSp3j 

Release  interrupt  inhibit 

If  FLAGWRD1  bit  10  (R61FLAG)  = 1 or  R65CNTR  = 0,  return 
via  GENRET 

R65CNTR  = R65CNTR  - 1 
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Delay  6 seconds 
Establish  "RblC+LOl" 


(pr  26) 


R21LEM 


R21LEM10 

R21LEM2 

R21LEM1 


Proceed  to  "ENDOFJOB" 

Switch  bit  14  channel  12  to  0 
If  FLA.GWRD8  bit  8 (SURFFIAG)  = 0: 

TANGq  = 0 

TANG^  = 0 

If  FLAGWRD8  bit  8 (SURFFIAG)  = 1 : 

If  RADMODES  bit  12  (ANTENFLG)  = 1: 

Proceed  to  "R21LEM10" 

TANGq  = i (180°) 

TANG-i  = -i  (-90°) 

Switch  FLAGWRDO  bit  5 (LOKONSW)  to  0 
Perform  "RRDESNB" 

Perform  "RADSTALL" 

If  RADGOOD  = 0: 

Perform  "PRIOLARM"  with  TS  = 00503^ 

(If  terminate,  proceed  to  "TRHTRACK";  if  proceed, 
proceed  to  "R2i-LEM"  ; other  response,  proceed 
to  "P20IEMC3".) 

End  job 

Switch  FLAGWRD2  bit  12  (LOSCMFLG)  to  1 
DESCOUNT  = K:MAXTRIES 

LOSCOUNT  = 3 

TDEC1  = TIMENOW  + K: HALFSEC 

Perform  "LPS20.1"  (get  RR  target  vector) 
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Switch  FIAGWRDO  bit  5 (LOKONSW)  to  1 
Switch  FLA.GWRD5  bit  4 (NORRMON)  to  0 
Perform  "RRDESSM" 

If  RADLIMSK  = 0;  (not  within  mode  2 limits  on  lunar  surface) 


Proceed  to  "R21LEM4’' 

If  RADLIMCK  = 1;  (not  within  limits  in  either  mode) 
Proceed  to  ."P20LEMA.’' 

(Otherwise,  RADLIMCK  = 2) 


Perform  "RADSTALL" 

If  RADGOOD  = 0 : (lock-on  not  achieved) 


Perform  "PRIOLARM"  with  TS  = 00503^ 

(if  terminate,  proceed  to  "TRHTRACK";  if  proceed, 
proceed  to  "R24LEM" ; other  response,  proceed 
to  "P20LEMC3".) 


End  j ob 

Switch  FLAGWRD2  bit  12  (LOSCMFLG)  to  0 

If  FLAGWRD8  bit  8 (SURFFLAG)  = 1,  proceed  to  "P20LEMWT" 


Proceed  to  "R21DISP" 


R21LEM4  REPOSCNT  = K:MAXTRIES 

Switch  FLAGWRDO  bit  10  (FSPASFLG)  to  1 
Switch  FLAGWRD2  bit  12  (LOSCMFLG)  to  0 
REPOSTM  = TIMENOW  + K:TENSEC 
TDEC1  = TIMENOW  + K:TENSEC 
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60TIMES  Perform  "LPS20.1" 


Perform  "RRDESSM" 

If  RADLIMCK  = 0: 

If  REPOSCNT  = 0:  (looked  600  seconds  ahead  did  not  find) 

Perform  "pRIOLARM"  with  TS  = 530rt 
(All  responses  go  to  "TRMTRACK" ) 

End  job 

REPOSCNT  = REPOSCNT  - 1 
REPOSTM  = REPOSTM+K  rTENSEC 

TDEC1  = REPOSTM  (old  designate  time  plus  10  seconds) 
Proceed  to  "60TIMES" 

If  RADLIMCK  = 1 : 

End  of  job 
If  RADLIMCK  = 2: 

Remove  "BEGDES"  from  waitlist 
If  FLAGWRDO  bit  10  (FSPASFLG)  = 0: 

Proceed  to  "R21LEM8" 

Switch  FLAGWRDO  bit  10  (FSPASFLG)  to  0 
REPOSTM  = REPOSTM+K  rTENSEC 

TDEC1  = REPOSTM  (old  designate  time  plus  10  seconds) 
Proceed  to  "60TIMES" 
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R21LEM8  TDEC1  = REPOSTM 


Perform  "UPPSV" 

Switch  RADMODES  bit  15  (CDESFLAG)  to  1 
Switch  FLAGWRDO  bit  5 (LOKONSW)  to  0 
Switch  FLAGWRD5  bit  4 (NORRMON)  to  1 
Perform  "RRDESNB" 

Call  "R21LEM9"  in  (REPOSTM-TIMENOW  seconds) 

End  of  job 

R21 LEM9  Remove  "STDESIG"  from  waitlist 

Switch  RADMODES  bit  10  and  15  (DESIGFLG)  and  (CDESFLAG)  = 0 
Switch  bit  2 of  channel  12  = 0 

Establish  "R21LEM10"  (pr26) 

End  task 

R21DISP  Perform  "G0PERF2R"  with  TS  = K;V06N72,  (CDUt  ^ CDUg) 

(if  terminate,  proceed  to  "TRMTRACK";  if  proceed,  proceed 
to  ''P20LEMWT'';  other  response,  repeat  this  step.) 

Perform  "BLANKET"  with  TS  = 001 OOg 

End  of  j ob 

R22LEM42  If  FLAGWRD8  bit  8 (SURFFLAG)  = 0: 

R65CNTR  = 2 
Perform  "R65LEM" 

Proceed  to  "R22LEM" 

Proceed  to  "R22LEM"  in  2 seconds 
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R22LEM 


If  FLAGWRDO  bit  7 (RKDVZFLG)  = 0,  end  job 

If  FLAGWRD1  bit  5 (TRACKFLG)  = 0,  proceed  to  "R22WAIT" 

If  bit  14  of  channel  12=0:  (RR  tracker  disabled) 

Proceed  to  "P20LEMA" 

If  bit  2 of  channel  33  = 1 : (RR  AUTO  mode  switch  not  set) 
Proceed  to  second  step  of  "P20LEMB7" 

If  RADMODES  bit  13  (RCDUOFLG)  = 1 
Proceed  to  "R22LEM42" 

Perform  "LRS22.1" 

If  TSerror  = 1 , proceed  to  "P20LEMC" 

If  TSerror  = 2:  (actual  LOS  differs  from  computed  LOS) 

Perform  "PRIOLARM"  with  TS  = 005258 

(if  terminate,  proceed  to  "TRMTRACK";  if  proceed, 
skip  next  step;  other  response,  repeat  this  step.) 

End  job 

Proceed  to  "PRIODSP"  with  TS  = K:V06N05  (display  deviation) 
(if  terminate,  proceed  to  "TRMTRACK";  if  proceed, 
continue  at  next  step;  other  response,  proceed  to 
"P20LEMC". ) 

If  FLAGWRD8  bit  8 (SURFFLAG)  = 0: 

If  FLAGWRD1  bit  5 (TRACKFLG)  = 0,  proceed  to  "R22WAIT" 

If  arccosRRBORSITz  K :30DEG : 

Perform  "R61LEM" 

Proceed  to  "R22WAIT" 
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If  FLAGWRD1  bit  6 (NOUPFIAG)  = 1: 

Proceed  to  "R22LEM42" 

If  FIAGWEDI  bit  7 (UPDATFLG)  = 0; 

Proceed  to  "R22LEM42" 

Perform  "LSR22.3’' 

TRKMKCNT  = TRKMKCNT  + 1 
If  FIAGWRD8  bit  8 (SURFFIAG)  =0: 

R65CNTR  = 5 
Perform  "R65LEM’' 

Proceed  to  "R22LEM" 

Proceed  to  "R22LEM"  in  2 seconds 
R22LEM96  N49FLA.G  = 0 

Establish  "N49DSP"  (pr27) 

If  N49FLA.G  = 0,  repeat  this  step  (delay  until  N49FIAG  O) 
If  N49FLAG  <0: 

If  N49FIAG  = - 2,  proceed  to  ''R22LEM" 

Proceed  to  "ASTOK" 

Return  via  LGRET 

R22WAIT  Gall  "P20LEMC1"  in  15  seconds 

Proceed  to  second  step  of  ’'P20IEMWT" 
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R22RSTRT  Perform  "RRRDOT" 


(if  a restart  occurs  while  reading  radar 
come  here) 


Perform  "RADSTALL" 

If  RADGOOD  = 0,  proceed  to  "P20LEMC" 

(could  not  read  radar) 

Proceed  to  "R22LEM" 

N49DSP  Proceed  to  "PRIODSP"  with  TS=  K:V06N4.9 

(if  terminate,  set  N49FLAG  to  - 2 and  end  job;  if 
proceed,  set  N49FLAG  = -1  and  end  job;  other 
response,  set  N49FLAG  to  + value  and  end  job.) 


R23LEM  Switch  FLAGWRD5  bit  % (NORHMON)  to  1 

Perform  "SETMINDB"  with  interrupts  inhibited 

Switch  bit  14  of  channel  12  to  1 (RR  track  enable) 

Proceed  to  "G0PERF1"  with  TS  = 00205o  (request  manual  acquisition) 
(if  terminate,  proceed  to  "R23LEM2";  if  proceed,  continue 
at  next  step;  other  response,  proceed  to  "R23LEM3".) 

Inhibit  interrupts 

Perform  "RRLIMCHK"  with  TS^  = GDU.  and  TS.  = CDU 

U 0 Is 

If  TSchk  = 0:  (Manual  acquisition  not  within  limits) 

Perform  "PRIDLARM"  with  TS  = 00501 g 

(if  terminate,  proceed  to  "R23LEM2’' ; if  proceed, 
repeat  this  step;  other  response,  proceed  to  "R23LEM3".) 

End  job 

Perform  "RESTORDB" 

Release  interrupt  inhibit 

Switch  FLAGWRD5  bit  4 (NORRMON)  to  0 

Proceed  to  "P20LEMB1" 
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R23LEM2 


R23LEM3 


R24LEM 


R24END 


R24LEM3 


Svitch  FLAGIWRD5  bit  4 (NORRMON)  to  0 
Proceed  to  "TRMTRACK" 

Perform  "R61LEM" 

Proceed  to  third  step  of  "R23LEIM" 

Switch  FLAGWRD2  bit  U (SRCHOPTN)  td  1 
Switch  FLAGWRD2  bit  12  (LOSCMFLG)  to  0 
DATAGOOD  = 0 
OMEGDISP  = 0 

Perform  "PRIODSPR"  with  TS  = K;V16n80  (monitor  DATAGOOD,  OMECDISP) 
(If  terminate,  proceed  to  "TRMTRACK";  if  proceed,  proceed 
to  "R24END";  other  response,  "R24LEM3".) 

Proceed  to  "LRS24.1" 


Remove  "CALLDGCH"  from  waitlist  (kill  it) 

Switch  RADMODES  bits  10  (DESIGELG)  and  15  (CDESELAG)  to  0 
Switch  bit  2 of  channel  12  to  0 (disable  RR  GDI!  error  counters) 
Proceed  to  "P20LEM1" 

Remove  "CALLDGCH"  from  waitlist  (kill  it) 

Switch  RADMODES  bits  10  (DESIGELG)  and  15  (CDESELAG)  to  0 
Switch  bit  2 of  channel  12  to  0 (disable  RRCDU  Error  Counters) 


Delay  0.5  second 

If  FLAGWRD8  bit  8 (SURFFLAG)  = 0: 
Perform  "R61LEM" 

RADCADR  = +0 
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Proceed  to  fifth  step  of  "R24LEM" 


LRS22.1 


READRDOT 


Switch  FLAGWRD5  bit  10  (RNGSCFLG)  to  0 
Inhibit  interrupts 

Set  RADMODES  bit  3 (RRRSFLAS)  = bit  3 of  channel  33  (RR  range 

scale) 

Release  interrupt  inhibit 

Perform  "RRRDOT"  (read  RR  range-rate) 

Perform  "RADSTALL" 

If  RADGOOD  = 0: 

TS  error  = 1 
Return 

Inhibit  interrupts 

(Save  for  downlink  storage) 

TS„.  = TIMEHOLD 

RDOTMSAV  = SAMPLSUM 

TS^  = CDUf 

TS,  = CDUZ 
4 

TS^  = CDUX 

TS^  = TIMENOW 

TANGq  = CDU^ 

TANG.  = CDU 
1 s 

Release  interrupt  inhibit 

Perform  "RRRANGE"  (read  RR  range) 

Perform  "RADSTALL" 
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If  RADGOOD  = 0: 


If  FLAGWRD5  bit  10  (RNGSCFLG)  = 1: 

Proceed  to  "PiEADRDOT" 

TSerror  = 1 
Retiirn 

Inhibit  interrupts 

RANGRDOT  = DNRRANGE 

MKTIME  = TS„, 

AIG  = TS^ 

AMG  = TS, 

4 

TANGNB„  = TANG" 

0 u 

TANGNB^  = TANG^ 

AOG  = TS^ 

RDOTM  = K:RDOTCONV  TSrdot  (scaled  to  (meters/centisecond)/2'^) 
RRTRUN  = TANGq  converted  to  one ' s complement  form 
RRSHAFT  = TANG^  simlarly  converted 
RM  = K:RANGCONV  SAMPLSUM 

Perform  "RRNB"  (determine  actual  LOS  from  radar  position  angles) 
PBORSIT  = TS 
TDEC1  = TS^ 

Perform  "LPS20.1"  (get  estimate  of  LOS  based  on  present  state 

vector  information) 
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Perform  "CD*TR*GS"  with  ANG  = (A.OG,  AIG,  AMG) 

Perform  "SMTONB" 

TS  = |smnbmat]  ^target 

DSPTEM1  = arcsin  (TS  • RRBORSIT)  (angular  error  between 

the  two ) 

If  DSPTTOfl^  KrTHREEDEG: 

TSerror  = 2 
Return 
TSerror  = 0 
Return 

LSR22.3  If  FLAGWRD8  bit  8 (SURFFLAG)  = 1 : 

Proceed  to  "LSR22.4" 

Switch  FLAGWRDS  bit  9 (DMENFLG)  to  1 
If  FLAGWRD1  bit  8 (VEHUPFLG)  = 1 : 

Perform  "INTSTALL" 

Switch  FLAGWRD3  bit  3 ( VINTFLAG)  to  0 
Perform  "SETIFLGS" 

TDEC1  = MKTIME 

Perform  "INTEGRV"  (LM) 

Perform  "INTSTALL" 

Switch  FLAGWRD3  bit  1 (DIMOFLAG)  to  0 
If  FLAGWRD5  bit  1 (RENDWFLG)  = 1: 

Switch  FLAGWRD3  bits  1 (DIMOFLAG)  and  2 (D60R9FLG)  to  1 
Switch  FLAGWRD3  bits  3 (VINTFLAG) and  5 (STATEFLG)  to  1 
Switch  FLAGWRD3  bit  4 (INTYPFLG)  to  0 
TDEC1  = MKTIME 
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(If  FLAGWRD1  bits  (ATEHUPFLG)  = 1:) 


Perform  "INTEGRV" 


If  FLAGWRD5  bit  1 (RENDWFLG)  = 0: 


Perform  "WLINT" 


Proceed  to  "RANGEBQ" 


Perform  "INTSTALL" 


Switch  FLAGWRD3  bit  3 (VINTFLAG)  to  1 


Perform  "SETIFLGS" 


TDEC1  = MKTIME 


Perform  "INTEGRV" 


Perform  "INTSTALL" 


Switch  FLAGWRD3  bit  1 (DIMOFLAG)  to  0 
If  FLAGWRD5  bit  1 (RENDWFLG)  = 1 : 

Switch  FLAGWRD3  bits  1 (DIMOFLAG)  and  2 (D60R9FLG)  to  1 
Switch  FLAGWRD3  bits  3 (VINTFLAG)  and  4 (INTYPFLG)  to  0 
Switch  FLAGWRD3  bit  5 (STATEFLG)  to  1 
TDEC1  = MKTIME 


Perform  "INTEGRV" 


If  FLAGWRD5  bit  1 (RENDWFLG)  = 0; 


Perform  "WLINIT" 


Proceed  to  "RANGEBQ" 


LSR22./ 


Perform  "INTSTALL" 

Switch  FLAGWRD3  bit  5 ( STATEFLG)  to  1 


(Only  two  flag 
settings  necessary 
because  of  SURFFLAG  = 1 ) 
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1 


Switch  FLAGWRD3  blt3  (VINTFLAG)  to  0 
TDEC1  = MKTIME 
Perform  "INTEGRV" 

Switch  FLAGWRD5  bit  9 (DMENFLG)  to  0 
Perform  "INTSTALL" 

If  TRKMKCNT  = 0: 

Perform  "WLINIT" 

Switch  FLAGWIID3  bit  3 (VINTFLAG)  to  1 

Perform  "SETIFLGS"  (Standard  flag  setting  for  integration) 
TDEC1  = MKTIME 
Perform  "INTEGRV" 

Proceed  to  "RANGEBQ" 

Switch  FLAGWRD3  bits  1 (DIMOFLAG)  and  3 (VINTFLAG)  to  1 
Switch  FLAGWRD3  bits  2 (D60R9FLG)  and  4 (INTYPFLG)  to  0 
TDEC1  = MKTIME 
Perform  "INTEGRV" 

Proceed  to  "RANGEBQ" 
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RANGEBQ  If  FLAGWRD8  bit  8 (SUEFFLAG)  = 0 : 

R65CNTR  = 0 
Perform  "R65LEM'! 

WHCHREAD  = 1 (RANGE  code  in  N49) 

TSrlc  = DELTACSM  + RCVCSM  - DELTALEM  - RCVLEM  (scaling  controlled 

by  LMOONFLG) 

ULC  = unitTSrlc  (quasi-floating  point) 

BVECTORq  = ULC 

If  FLAGWRD1  bit  8 (VEHUPFLG)  = 0,  BVECTORq  = - ULC 

BVECTOR^  = 0 

BVECTOR^  = 0 

DELTAQ  = RM  - I TSrlc  | 

VARIANCE  = RANGEVAR  [ TSrlc 

If  VARIANCE  £ RVARMIN,  VARIANCE  = RVARMIN 

Perform  "LGCUPDTE" 

WHCHREAD  = 2 (R-RATE  code  in  N49) 

TSrlc  = DELTACSM  + RCVCSM  - DELTALEM  - RCVLEM 
ULC  = unitTSrlc  (quasi-floating  point) 

BVECTOR^  = TSrlc 

If  FLAGWRD1  bit  8 (VEHUPFLG)  = 0,  BVECTOR^  = - TSrlc 

TSvlc  = pVCSM  + VCVCSM  - NUVLEM  - VCVLEM 

TSrdot  = ULC  • TSvlc 

VARIANCE  = RATEVAR  TSrdot^ 

If  VARIANCE  < WARMIN,  VARIANCE  = WARMIN 
DELTAQ  = j TSrlc  I (RDOTM  - TSrdot) 

BVECTORq  = (ULC  * TSvlc)  * ULC 
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If  FLAGWRD1  bit  8 (VEHUPFLG)  = 0,  BVECTORq  = - BVECTORq 
BVECTOR2  = 0 

VARIANCE  = VARIANCE  | TSrlc|  ^ 

Perform  "LGCUPDTE" 

If  FLAGWRD8  bit  8 (SURFFLAC)  = 1,  return  (to  caller  of  "LSR22.3") 
MG  = (AOG,  AIG,  AMG) 

Perform  "CD*TR*GS'' 

Perform  "NBTOSM" 

pBref  = [REFSMMA^'^[NBSMMA^  KzUNITX 
pBref  = [rEFSMMAtJ'^  §JBSMMA^  K:  UNITY 
MBref  = ]feFSMMAT3  [nBSMMA'^  KrUNITZ 
TSrlc  = DELTACSM  + RCVCSM  - DELTALEM  - RCVLEM 
ULC  = unitT^Srlc 
SINTHETA  = - ULC  • YNB^^^ 

RXZ  = |TSrlc|V  1 - SINTHETA^’ 

WHCHREaD  = 3 (shaft  code  in  N49) 

SINTH  = ULC  • 

COSTH  = ULC  • zm^^f 

Perform  "ARCTAN" 

DELTAQ  = RXZ  (K:2PId8  RRSHAFT  - K:2PId8  THETA  - X789^) 

BVECTORq  = - unit(ULC*pB^g^) 

If  FLAGWRD1  bit  8 (VEHUPFLG)  = 0,  BVECTORq  = - BVECTORq 

BVECTORq  = 0 

BVECTOR2  = (RXZ  ,0,0) 
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VARIANCE  = RXZ^  (SHAFTVAR  + K:IMUVAR) 

Perform  "LGCUPDTE" 

TSrlc  = DELTACSM  + RCVCSM  - DELTALEM  - RCVLEM 

ULC  = unitTSrlc 

SINTHETA  = - ULC  . YNB  „ 

— — ref 

RXZ  = |TSrlc|Yl  - SINTHETA^ 

WHCHREAD  = 4 (trunnion  code  in  N49) 

BVECTORq  = - (ULC  * Il®pef)  * 

If  FLAGWRD1  bit  8 (VEHUPFLC)  = 0,  BVECTORq  = - BVECTORq 
BVECTOR-i  = 0 

BVECTOR2  = (0,  RXZ,  0) 

VARIANCE  = RXZ^  (TRUNVAR  + K:IMUVAR) 

DELTAQ  = RXZ  (K:2PId8  RRTRUN  - K;2PId8  arcsinS INTHETA  - X789y.) 
Perform  "LGCUPDTE" 

Return  (to  caller  of"LSR22,3") 

LRS24.1  NSRCHPNT  = 0 

Switch  bit  14  of  channel  12  to  1 (enable  RR  tracker) 

If  FLAGWRD2  bit  14  (SRCHOPTN)  = 0,  end  job 

Inhibit  interrupts 

Call  "CALLDGCH"  in  6 seconds 

Release  interrupt  inhibit 

If  RADMODES  bit  14  (REMODFLG)  = 1 , end  job 

TDEC1  = TIMENOW  + K:1 .5SECS 

Perform  "LEMCONIC" 

RLMSRCH  = MTT 


RNAV  - 28 


TSv  = VATT 
TDEC1  = TAT 
Perform  "CSMCONIC" 

LOSDESRD  = unit(MTT  - ^MSRCH) 

VXRCM  = unit(unitVATT..*  MTT) 

LOSVEL  = (rEFSMMA'^  (VATT  - TSv) 

If  NSRCHPNT  = 0; 

^TARGET  = LOSDESRD 

If  NSRCHPNT  = 1 ; 

UXVECT  = unit (VXRCM  * LOSDESRD) 

UYVECT  = unit (LOSDESRD  * UXVECT) 

RRTARCET  = (rEFSMMA'^  unit (KtOFFSTFAC  UXVECT  + LOSDESRD) 
If  NSRCHPNT  > 1 : 

UXVECTPR  = UXVECT 
UYVECTPR  = UYVECT 

IPCVECT  = unit(K:SIN60DEC  UYVECTPR  + K:C0S60DEG  ffiCVECTPR) 
UYVECT  = unit(K:C0S60DEG  UYVECTPR  - K:SIN60DEG  UXVECTPR) 
^TARGET  = [rEFSMMAtJ  unit(K:OFFSTFAC  UYVECT  + LOSDESRD) 
Inhibit  interrupts 

If  RR  designate  routines  are  being  used,  terminate  other  user 
when  he  reaches  "STDESIG" 

Switch  RADMODES  bit  15  (CDESFLAC)  bo  1 

Perform  "RRDESSM" 
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If  RADLIMCHK  4 2: 


(not  within  limits) 


OMEGCALC 


CALLDGCH 


DATGDCHK 


Perform  "ALARM"  with  TS  = 00527g 
Inhibit  interrupts 

Remove  any  calls  to  "CALLDGCH"  from  waitlist 

Proceed  to  "ENDOFJOB" 

TANGNBq  = CDU^ 

TANGNB.  = CDU 
1 s 

Perform  "RRNB"  (get  LOS  vector  in  nav.  base  coordinates) 
OMEGDISP  = arccos  TS 

z 

Proceed  to  "ENDOFJOB" 

If  FLAGWRDO  bit  7 (RNDVZFLG)  =0,  end  task 

Establish  "DATGDCHK"  (pr25) 

End  task 

If  bit  4 of  channel  33  = 0:  (RR  data  good) 

DATA GOOD  = K: ALLIS 
Inhibit  interrupts 

If  RR  designate  routines  are  running,  terminate  them 
when  they  reach  "STDESIG" 

Proceed  to  "ENDOFJOB" 

If  NSRCHPNT  = 6,  proceed  to  "LRS24,1" 

NSRCHPNT  = NSRCHPNT  + 1 

Proceed  to  second  step  of  "LRS24.1" 
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R29  If  RADMODES  bit  10  (DESIGFLG)  = 1,  proceed  to  ’'R29.L0S" 

Inhibit  interrupts  ( note:"R29''  will  not  work  because  of 

the  anomaly  described  imder 

Switch  RADMODES  bit  10  (DESIGFLG)  to  1 "R29DPAS2"  on  page 

RNAV  - 35  ) 

Switch  bit  14  of  channel  12  to  0 (disable  tracker) 

Switch  FLAGWRD2  bit  12  (LOSCMFLG)  to  0 
Switch  FLAGWRDO  bit  1 (OLDESFLG)  to  0 
Perform  "SETRRECR" 

If  RADMODES  bit  12  (ANTENFLG)=  1: 

Call  "PREP0S29"  in  0.01  second 
Switch  RADMODES  bit  11  (REPOSMON)  to  1 
Proceed  to  "N0R29N0W" 

Establish  "R29REM0J"  (pr21 ) 

Switch  RADMODES  bit  10  (DESIGELG)  to  0 
Switch  RADMODES  bit  14  (REMODFLG)  to  1 
Proceed  to  "N0R29N0W" 

R29.L0S  TS^  = TIMENOW  - PIPTIME 

TS  = RCSM  - R + TS^  (VCSM  - V) 

If  FLAGWRD2  bit  12  (LOSCMFLG)  = 1,  proceed  to  "N0R29N0W" 

Switch  FLAGWRD2  bit  12  (LOSCMFLG)  to  1 
LOSSM  = TS 

L0SVDTd4  = K:.5SECB17  (VCSM  - V) 

Switch  FLAGWRD2  bit  12  (LOSCMFLG)  to  0 

If  FLAGWRDO  bit  1 (OLDESFLG)  = 1,  proceed  to  "N0R29N0W" 

Inhibit  interrupts 

Switch  FLAGWRDO  bit  1 (OLDESFLG)  to  1 
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TS  = 100 


R29REM0J 


PREP0S29 


R29READ 


R29RDJ0B 


If  PIPCTR  >0,  TS  = 4 
Call  "BEGDES29"  in  TS  centiseconds 
Release  interrupt  inhibit 
Proceed  to  "N0R29N0W" 

Call  "REMODE"  in  0.01  second 
Perform  "RADSTALL" 

End  job 

RDES  = -i  (-180°) 

Perform  "RRTONLY" 

Switch  RADMODES  bit  11  (REPOSMON)  to  0 
End  task 

Establish  "R29RDJ0B"  (pr26) 

Delay  2 seconds 

If  FUGWRD3  bit  9 (READRFLG)  = 1,  proceed  to  "R29READ" 
End  task 

If  FLAGWRD3  bit  11  (N0R29FLG)  = 1,  proceed  to  "ENDRRD29" 
If  RADMODES  bit  2 (AUTOMODE)  = 1,  proceed  to  "ENDRRD29" 
Perform  "RRRDOT" 


Perform  "RADSTALL" 

If  RADGOOD  = 0,  proceed  to  "ENDRRD29" 
TS^  = TIMEHOLD 
Inhibit  interrupts 


T9  = 

CDITT 

'^^CDUS  = 
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R29RANCa; 


ENDRRD29 


TS™„  = CDU 
CDUy  y 

TS„„  = CDU 
CDUz  z 

= CDU 

CDUx  X 


Perform  " RERAN GE" 


Perform  "RADSTALL" 

If  RADGOOD  = 0: 

If  FLAGWRD5  bit  10  (RNGSCFLG)  = 0,  proceed  to  "ENDRRD29" 
Switch  FLAGWRD5  bit  10  (RNGSCFLG)  to  0 
Proceed  to  "R29RANGE" 


Inhibit  interrupts 
RMq  = DNRADATA^ 

RM^  = DNRADATA2 
MKTIME  = TS^ 


TANGNBq  = TS^j3^ 
TANGNB^  = TS^py3 


AIG  = TS 


CDUy 


AMG  = TS 


CDUz 
AOG  = TSpj^^^ 

TRKMKCNT  = 1 


Release  interrupt  inhibit 
End  j ob 
TRKMKCNT  = 0 

Switch  FLAGWRD3  bit  9 (READRFLG)  to  0 
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End  j ob 

BEa)ES29  Establish  "R29D0DES" 


(pr21 ) 


R29D0DES 


Delay  0.5  second 

If  RADMODES  bit  10  (DESIGFLG)  =0,  end  task 
If  FLAGWRD2  bit  12  (LOSCMFLG)  = 1: 

Delay  0.01  second 

Proceed  to  third  line  of  "BEGDES29" 
Switch  FLAaA/RD2  bit  12  (LOSCMFLG)  to  1 
Proceed  to  "BE(3DES29" 

TANG  = 1 

If  TANG  > 0,  TSsm  = LOSSM 
If  TANG  = 0: 

LOSSM  = LOSSM  + L0SVDTd4 
TSsm  = LOSSM  + L0SVDTd4 

2®L0SSM  = ““  2®®" 

If  TABG  > 0: 

Inhibit  interrupts 

'^^CDUT  “ 

T^CDUS  = ®Us 

ANG  = (CDU  , CDU  , CDU  ) 

— y’  z X 

Perform  "QUICTRIG" 

Perform  "SMTONB" 
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ULOSNB  = (SMNBMA'^  -^LOSSM 

If  TANG  = 0,  proceed  to  "R29DPAS2" 
Inhibit  interrupts 


TANG  = 0 

TS  , = cos  TS„„_ 

cost  sp  CDUT 

TS  . , = sin  TS™™ 

Sint  sp  CDUT 

TS  . = sin  TS™™ 

sins  sp  CDUS 

TS  = cos  TSp^.„ 

coss  sp  CDUS 

TSm  = TS  TS  , ULOSNB  - TS  . . ULOSNB  + TS  . TS  . ULOSNB 
coss  cost  z Sint  y cost  sins  x 

TSm  = 2 TSm  (cosine  of  angle  between  actual  LOS  and  radar  LOS) 


If  TS  = +1 : (TS  = +1  for  positive  overflow  of  TSm) 


R29DPAS2 


Switch  bit  14  of  channel  12  to  1 (self  track  enable) 

Release  interrupt  inhibit 

Proceed  to  second  step  of  "R29D0DES" 

TANG^  = TS  ULOSNB  - TS  . ULOSNB 
0 coss  X sins  z 

TSm  = TS  . , TS  . ULOSNB  + TS  , ULOSNB  + TS  TS  . , ULOSNB 
Sint  sins  X cost  y coss  sint 

SHAFTCMD  = K:R29GAIN  TRUNNCMD  (note:  This  is  an  anomaly  which 

makes  "R29"  inoperable. 

TRUNNCMD  = K:R29GAIN  TSm  The  instruction  should  be 

^ "SHAFTCMD  = K:R29GAIN  TANGq" ) 

If  bit  4 of  channel  33  = 1 : (RR  tracker  not  locked  on) 


z 


Perform  "RROUT" 


Switch  FLAGWRD2  bit  12  (LOSCMFLG)  to  0 


End  job 

Switch  RADMODES  bit  10  (RRDESFLG)  to  0 

Switch  bit  2 of  channel  12  to  0 (disable  RRCDU  Error  Counters) 
Switch  FLAGWRD3  bit  9 (READRFLG)  to  1 
TS  = 100 
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If  PIPCTR  >0,  TS  = 4 
Call  "R29READ"  in  TS  centiseconds 
Switch  FLAGWRD2  bit  12  (LOSCMFLG)  to  0 
End  job 

WLINIT  p = WRENDPOS 
V = WRENDVEL 

If  FLAGWRD8  bit  8 (SURFFLAG)  =1: 
p = WSURFPOS 
V = WSURFVEL 


s = 

WSHAFT 

t = 

WTRUN 

0 

0 

0 

0 

0 

0 

0 

-n 

0 

0 

p 

0 

0 

0 

0 

0 

0 

0 

0 

0 

p 

0 

0 

0 

0 

0 

0 

0 

0 

0 

V 

0 

0 

0 

0 

0 

= 

0 

0 

0 

0 

V 

0 

0 

0 

0 

0 

0 

0 

0 

0 

V 

0 

0 

0 

0 

0 

0 

0 

0 

0 

s 

0 

0 

0 

0 

0 

0 

0 

0 

0 

t 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

Switch  FLAGWRD5  bit  1 (RENDWFLG)  to  1 

TRKMKCNT  = 0 

Return 

LGCUPDTE  LGEEIET  = return  address 
Perform  "INC0RP1" 

R22DISPR  = IDELTAXqI 
R22DISPV  = |dELTAxJ 

If  R22DISPR  > RMAX  or  if  R22DISPV  > VMAX: 

Proceed  to  "R22LEM96"  (get  astronaut  OK) 
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ASTOK 


Perform  " INC0RP2" 


INC0RP1 


INC0R2-3 


Return  via  LCKET 


EC31ESS  = return  address 


2^0 


^^1 


ZI2 


y 


" 12^2-32 

^13^3^33 


T ' . 


11^19^29^3^ 


BVECTORq  + 
BVECTORq  + 
BVECTORq  + 


iii 

K9W59W6J 


BVECTORq  + 
BVECTORq + 
BVECTORq + 


'^71^81^91 
f;72f;82j;9#^^''^°''2 

^73^23^9 J 

rw7,Wg  W9, 

'^76^86^96 


j^77j^87j^9 

j^78j^88jj9 

^79^89^9'^ 


^VECT0R2 


If  FLAGWRD  5 bit  9 (DMENFLG)  = 0,  ZI^  = 0 

TS  = VARIANCE  + ZIq  • ZIq  + ZI^  ’ ZI^  + ZI2  * ZI2 

GAMMA  = 1 / ( VVARIANCE  TS'  + TS) 

Proceed  to  "NEWZCOMP" 


OMEGAq  = ZIq 


OMEGA^  = ZIq 


OMEGA2  = ZIq 


JS2“52^62|  2I1 

l“43“53”63j 


+ ZI^ 


11^76^86^9^ 


+ ZI2 


+ ZI. 


+ ZI2 


^1  7^0  *7! 

.«19'49“3^ 


If  FLAGWRD5  bit  9 (DMENFLG)  = 0,  gMEGA2  = 


0 


DELTAXq  = OMEGAq  DELTAQ  / TS 
DELTAX^  = OMEGAq  DELTAQ  / TS 
DELTAX2  = gMEGA2  DELTAQ  / TS 
Return  via  EGRESS 
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NEWZCOMP 


INC0RP2 


Set  TS^  to  the  largest  jZI^j  (i  = 0,  1,  2) 

TS2  = (number  of  leading  zeros  in  TS^ ) - 2 

Shift  each  ZI^  left  by  TS2  places  (i  = 0,  1,  2) 

Proceed  to  "INC0R2-3"  (effect  of  TS2  taken  into  account  in 

subsequent  scaling  shifts) 

EGRESS  = return  address 


Perform  "INTSTALL"  (wait  until  orbital  integration  is  free) 

OMEGAMq  = GAMMA  OMEGA^ 

OMEGAM^  = GAMMA  OMEGA^ 

OMEGAM2  = GAMMA  OMEGA2 

Switch  FLGWRD10  bit  7 (REINTFLG)  to  1 

(Assure  that  this  job  retains  control  of  the 
integration  routines  even  in  case  of  a restart) 


Wi^  W2^  W3- 

“11  "21  “31' 

^12  ^22  ^^32 

*^12  S2  S2 

- 

^13  ^23  ^^33 

W^3  W23  W33 

zi/ 

!•  • 

k zj 

W4I  ""si  ^6l' 

\i  Si  Si 

2b' 

^^42  ^52  ^62 

= 

S2  ^52  ^62 

- 

2b" 

> S3  S3J 

^53  ^63 

7T  ^ 
ZIq 

“ d 

(OMEGAMq  , OMEGAMq  , 
X y 


0MAEGAM„  ) 


(0MEGAM.J  , OMEGAMq  , OMEGAMq  ) 
X y z 


If  FLAGWRD5  bit  9 (DMENFEG)  = 0,  skip 


71  Si  Si 

Si  Si  Si 

^b  ■ 

72  ^82  S2 

^^72  ^82  S2 

- 

2b" 

73  ^83  S3 

W73  Wg3  Wq3 

ZIq^ 

- 

z 

r- 

14  S4  S4 

^14  S4  S4 

"ZI^ 

15  S5  S5 

^15  S5  S5 

- 

ZIi" 

16  Se  S6 

Se  Sb  Sb 

ZI^^ 

. Z 

next  step 


(OMEGAM2  ,0MEGAM2  , OMEGAM2  ) 


(OMEGAMq  , OMEGAMq  , OMEGAMq  ) 
X y z 
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FAZC 


^44  ^54  ^64 
\5  ^55  ^65 

- 

“44  “54  “64 
“45  “55  “65 

_ 

•zii‘ 

\6  ^56  ^66 

“46  “56  “66 

ZI^^ 

Z 

(OMEGAM^  jOMEGAM^  ,OMEGAM^  ) 
X y z 


If  FLAGWRD5  bit  9 (DMENFLG)  = 0,  proceed  to  "FAZC" 

1 


^74  ^84  ^94 

^74  ^84  ^94 

1 

ZI 

^75  ^85  ^95 

W75  ^85  ^95 

- 

ZI 

^76  ^86  ^96 

’'^76  ^86  ^96 

ZI 

A “ 

f*  •*" 

p. 

WWW 

17  27  37 

Wi7  'A^rj 

Zi 

^18  ^28  ^38 

^18  ^28  ^38 

- 

ZI 

Wi9  W2Q  W^c 

^19  ^29  ^39 

ZI 

r* 

L 

-m 

r '-1 

• 

W47  Wq^ 

'^47  *^57  '^67 

ZI 

^*^48  ^58  ^68 

= 

^48  ^58  ^68 

- 

ZI 

W^9  Wqq 

W49  W^g 

ZI 

L 

_ 

W77  Wg^  Wg^ 

W77  Wg^  Wg^ 

ZI 

’'^78  ^^88  ^98 

zr 

^78  ^88  ^98 

- 

ZI 

W79  WgQ  Wqq 

W79  Wgg  Wgg 

ZI 

TX789  = X789  + DELTAXq 

If  FLAGWRD1 

bit 

8 (VEHUPFLG)  = 1 

If  FLAGWRD1 

bit 

8 (VEHUPFLG)  = 0,  ] 

(OMEGAMg  ,0MEGAM2  ,0MEGAM2  ) 
X y z 


(OMEGAMq  jOMEGAMq  jOMEGAMq  ) 
X y z 


(OMEGAMq  , OMEGAMq  , OMEGAMq  ) 
X y z 


(OMEGAMq  jOMEGAMg  , OMEGAMq  ) 
X y z 


TS  = TDELTAV  + DELTAXq 

■(scaling  controlled  by  LMOONFLG,  bit  11  of  FLAGWRD8) 
If  overflow: 


RCV  = DELTAXq  + RCV 


VCV  = DELTAXq  + VCV 
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(if  overflow:) 

Perform  "RECTIFY" 

Proceed  to  "FAZAB3" 

TDELTAV  = TS 

TS  = raUV  + DELTAX^ 

If  overflow: 

VCV  = DELTAX^  + VCV 
Perform  "RECTIFY" 

Proceed  to  "FAZAB3" 
raUV  = TS 

FAZAB3  If  FLAGWRD1  bit  8 (VEHUPFLC)  = 1 : 
Perform  "MOVEACSM" 

Perform  "SVDWN1" 

If  FLAGWRD1  bit  8 (VEHUPFLC)  = 0: 
Perform  "MOVEALEM" 

Perform  "SVDWN2" 

If  FLAGWRD5  bit  9 (DMENFLG)  = 1 : 

X789  = TX789 
Perform  " INTWAKE" 

Return  via  EGRESS 

V67GALL  If  OVFIND  = 1,  Switch  OVFIND  to  0 

Switch  FLAGWRD7  bit  8 (v67FLAG)  to  0 
Perform  "INTSTALL" 
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WWBIAS  for  i = 1-9:' 

WWPOS  = for  i = 1-9 

WWVEL  = for  i = 1-9^ 

If  OWIND  ^0:  -. 

OWIND  = 0 
WWPOS  = K:DPPOSMAX 


(rescaled  for 
display) 

(if  one  over- 
flows, all 
limited  to 
posmax) 


WWVEL  = K:DPPOSMAX 
WWBIAS  = K:DPPOSMAX 
If  WWPOS  > K:FT99999: 

WWPOS  = K;FT99999 
Perform  "INTWAKE" 

T^n^os  = 

^^mL  = 

Tobias  = 

Proceed  to  "GOXDSPF"  with  TS  = K:V06N99  (WWPOS,  WWVEL,  WWBIAS) 

(if  terminate,  proceed  to  "ENDEXT";  if  proceed,  proceed  to 
next  step;  other  response,  repeat  this  step.) 

If  - WWVEL  + TS^^pQg  - WWPOS  + TS^bIAS  " ^ ° input) 

Switch  FLAGWRD7  bit  8 (V67FLAG)  to  1 

If  FLAGWIID7  bit  8 (V67FLAG)  = 0,  proceed  to  "ENDEXT" 

TSq  = WWPOS  (double  precision  - rescaled  for  Internal  use) 

TS^  = WWVEL  (double  precision) 

TS2  = WWBIAS  (double  precision  - rescaled  for  Internal  use) 
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If  FLAGWRD8  bit  8 (SURFFLAG)  = 1 : 


WSURFPOS  = TSq  . single  precision 

WSURFVEL  = TS^  single  precision 

WTRUN  = TS2  single  precision 

WSHAFT  = TS^  single  precision 

Switch  FLAGWRD5  bit  1 (RENDWFLG)  to  0 
Proceed  to  "ENDEXT" 


WRENDPOS  = TS 


0 


WRENDVEL  = TS 


1 


single  precision 
single  precision 
single  precision 
^2  single  precision 

Switch  FLAGWRD5  bit  1 (RENDWFLG)  to  0 
Proceed  to  "ENDEXT" 


WTRUN  = TS. 


WSHAFT  = TS. 
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DSPRRLOS  Establish  "RRLOSDSP" 


(pr05) 


RRLOSDSP 


Change  priority  to  04g 

Perform  "GOXDSPFR"  with  TS  = K:V16N56  (RR-AZ,RR-ELEV) 
(Any  response,  switch  bit  5 of  EXTVBACT  to  0 
and  end  job.) 

Perform  "BLANKET"  with  TS  = 00004g  (Blank  R3) 

End  job 
TS-,  = CDUt 
TS2.=  CDUg 
Perform  "RRNBMPAC" 

TS  = unit  (TS  , 0,  TS  ) 

6 X Z 

TS  = TS 
— a — 

COSTH  = TS  . K:UNITZ 

— e — 

SINTH  = KiUNITX  • TS 

— — e 

Perform  "ARCTRIG" 

If  THETA  < 0,  THETA  = 1 + THETA 

RR-ELEV  = THETA 

SINTH  = TS  . K; UNITY 
“a  — 

COSTH  = TS  . TS 

— a — e 

Perform  "ARCTRIG" 

If  THETA  <0,  THETA  = 1 + THETA 
RR-AZ  = THETA 
Delay  1 second 

If  bit  5 of  EXTVBACT  = 1 , proceed  to  "RRLOSDSP" 

Proceed  to  "ENDEXT" 
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Quantities  in  Computations 


ALPHAV:  See  ORBI  section. 

ANG;  See  COOR  section, 

AOG,  AIG,  AMG:  Single  precision  storage  for  ICDU  angles,  scaled  B-1  in 

units  of  revolutions  and  stored  in  two's  complement  form, 

BVECTORq:  Double  precision  vector  defining  the  resolution  of  a navigation 

measurement  into  corrections  to  the  position  components  of  the  state 
vector  and  the  Wnnatrixj  scaled  B1  and  unitless  or  scaled  B2  in  units 
of  meters  per  centisecond.  Scaling  is  changed  depending  on  whether 
BVECTORq  or  B^VEGTOR^  has  the  largest  unsealed  magnitude.  That  term 
is  then  normalized  and  BVECTORq,  BVECTORq , DELTAQ  and  VARIANCE 
are  rescaled  by  the  same  amount. 

BVECTORq : Double  precision  vector  defining  the  resolution  of  a navigation 

measurement  into  corrections  to  the  velocity  components  of  the  state 
vector  and  the  W-matrixj  scaled  B21  in  units  of  meters.  Scaling 
change  is  described  in  BVECTORq. 

BVECTOR^:  Double  precision  vector  defining  the  resolution  of  a navigation 

measurement  into  corrections  to  the  Rendezvous  Radar  position  biases 
(shaft  and  trunnion)  and  the  RR  components  of  the  W-matrix;  scaled 
B25  in  units  of  meters. 

CDU. , CDU  : See  RADR  section. 

u S 

CDU:  See  COOR  section. 

CDUD:  See  DAPA  section. 

GOSTH:  See  COOR  section. 

CSTH:  See  CONG  section. 

DATAGOOD:  Single  precision  display  register  used  in  Routine  24  to 

indicate  .to  the  astronaut  that  the  RR  has  acquired  a target. 
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DELTACSM,  DELTALEM:  See  RCVCSM  in  ORBI  section. 

DELTAQ;  Double  precision  difference  between  measured  and  predicted  values 
of  a navigation  measurement;  range  measurement  scaled  B29  (earth)  or 
B27  (moon)  in  units  of  meters;  range-rate  measurement  scaled  B30 
(earth)  or  B28  (moon)  in  units  of  meters  squared  per  centisecond;  RR 
position  angle  measurement  scaled  B29  (earth)  or  B27  (moon)  in  units 
of  meters.  Scaling  change  described  in  BVECTORq. 

DELTAXqZ  Double  precision  position  correction  vector  scaled  B29  (earth) 
or  B27  (moon)  in  units  of  meters. 

DELTAX^ : Double  precision  velocity  correction  vector,  scaled  B7  (earth) 

or  B5  (moon)  in  units  of  meters  per  centisecond. 

DELTAX2:  Double  precision  Rendezvous  Radar  position  bias  correction 

vector  (shaft  and  trunnion  with  third  component  zero)  scaled  B5  (earth) 
or  B3  (moon)  in  units  of  radians. 

DESGOUNT;  See  RADR  section. 

DNRADATA^:  See  RADR  section. 

DSPTEM1  : Temporary  storage  cell  used  mainly  for  display  interface  purposes. 

EGRESS:  Single  precision  octal  return  address  storage  cell. 

GAMMA;  Double  precision  weighting  factor  in  update  of  W-matrix,  scaled 

_2 

B40  in  units  of  meters  or  B48  in  units  of  centisecondd  squared  per 
meter^. 

GENRET:  Single  precision  octal  return  address  storage  cell. 

—1 7 

K:.53ECB17:  Double  precision  constant  stored  as  50  x 2 scaled 
in  units  of  centiseconds . Equation  value  50. 

K:1.5SECS:  Double  precision  constant  stored  as  1 50  x 2~^®  in  units  of 
centiseconds. 

K:1dSQRT3:  Double  precision  constant  stored  as  0.5773502,  scaled  BO 
and  unitless.  Equation  value:  0.5773502. 
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K:2PId8:  Double  precision  constant  stored  as  3.141592653  x 2"^  scaled 

B3  and  unitless.  Equation  value:  6.283185306. 

K:30DEG:  Double  precision  constant  stored  as  0.083333333,  scaled  BO  in 

units  of  revolutions.  Equation  value:  0.083333333.  (Equivalent  to 
30  degrees . ) 

K:30DGRES:  Double  precision  constant  stored  as  0.083333333,  scaled  BO  in 
units  of  revolutions.  Equation  value:  0.083333333.  (Equivalent  to 
30  degrees.) 

K:3SEC0NDS:  Double  precision  constant  stored  as  300  x 2“^®  scaled  B28  in 
units  of  centiseconds.  Equation  value:  300.  (Equivalent  to  3.0 
seconds . ) 

K:600SEC:  Double  precision  constant  stored  as  60000  x 2”^®,  scaled  B28 

in  units  of  centiseconds.  Equation  value:  60000.  (Equivalent  to 
1 0 minutes . ) 

K.'ALLIS:  Single  precision  constant  stored  as  11111  x 2“"*^,  scaled  B14 

and  unities  s . Eqmtion  value : 11111. 

I K:C0S15DEG:  Double  precision  constant  stored  as  0.96593  x 2~\  scaled 
B1  and  unitless.  Equation  value:  cosine  of  1 5 degree. 

K:C0S60DEG:  Double  precision  constant  stored  as  0.5,  scaled 

BO  and  unitless.  Equation  value:  0.5. 

K :DPP0SMAX : Double  precision  constant  stored  as  37777g  37777g. 

-20 

K:FHNM:  Double  precision  constant  stored  as  740800  x 2 , scaled 

B20  in  units  of  meters.  Equation  value:  740800.  (Equivalent  to 
400  nautical  miles.) 

K:FT99999:  Double  precision  constant  stored  as  30479  x 2~^^,  scaled 
B19  in  units  of  meters. 

K:HALFSEC:  Double  precision  constant  stored  as  50  x 2“28^  scaled 

B28  in  units  of  centiseconds.  Equation  value:  50. 

K:IMUVAR:  Double  precision  constant  stored  as  10“^  x 21^,  scaled 

B-12  in  units  of  radians  squared.  Equation  value:  10“^. 

K:K.01:  Double  precision  constant  stored  as  .01, scaled  BO. 

Used  to  convert  output  from  "LAT-LONG"  from  units  of  meters 
to  meters/lOO. 

K:MAXTRIES:  Single  precision  constant  stored  as  60  x 2~14,  sealed 
B14  and  unitless.  Equation  value:  60. 
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K;OFFSTFAC:  Double  precision  constant  stored  as  0.05678,  scaled  BO  and 
unitless.  Equation  value:  0.05678. 

KtONEDEG:  Double  precision  constant  stored  as  0.00277777,  scaled  BO  in 

units  of  revolutions.  Equation  value  0.00277777.  (Equivalent  to 
one  degree. ) 

K:0NESEK;  See  ATTM  section. 

KtRANGCONV:  Double  precision  constant  stored  as  2.859024  x 2 , scaled 

B3  in  units  of  meters  per  count.  Equation  value:  2.859024. 
(Eqiiivalent  to  9.38  feet  per  count  or  2.859  meters  per  count.) 

K:RD0TC0NV:  Double  precision  constant  stored  as  -0.0019135344  x 

scaled  B-7  in  units  of  meters  per  centisecond  per  count.  Equation 
value:  -0.0019135344.  (Equivalent  to  -0.6278  fps  or  -0.19135  meters 
per  second  per  count.) 

K:RE29GAIN:  Single  precision  constant  stored  as  -0.53624,  used  to  convert 
from  units  of  radians  to  units  of  revolutions  as  well  as  to  apply 
a gain  to  the  designated  output.  Scaled  B-1  in  units  of  revolutions 
per  radian.  Equation  value:  1.68465/217. 

K:SIN60DEG:  Double  precision  constant  stored  as  0.86603,  scaled  BO  and 
unities s.  Equation  value:  0.86603. 

K:SQRr2:  Double  precision  constant  stored  as  0.005523436,  scaled  B8 

and  unitless.  Equation  value:  1.414. 

K:TENDEG:  Double  precision  constant  stored  as  0.02777777,  scaled  BO  in 

units  of  revolutions.  Equation  value:  0.02777777.  (Equivalent  to 
10  degrees.) 

—28 

K:TENSEC:  Double  precision  constant  stored  as  1000  x 10~  scaled  B28 

in  units  of  centlseconds . Equation  value:  1000.  (Equivalent  to 
10  seconds.) 

K:THREEDEG:  Double  precision  constant  stored  as  0.008333333,  scaled  BO 

in  units  of  revolutions.  Equation  value:  0.008333333.  (Equivalent 
to  3.0  degrees.) 

K:LINITX,  K: unity,  K:UNITZ:  Double  precision  constant  unit  vectors, 
scaled  B1  and  unitless.  Equation  value:  (l,  0,  0),  (O,  1,  O), 
and  (O,  0,  1),  respectively. 
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LGRET;  Single  precision  octal  return  address  storage  cell. 

I^OS:  Double  precision  temporary  storage  vector  of  the  LM  position, 

scaled  B29  in  units  of  meters. 

l^EL:  Double  precision  temporary  storage  vector  of  the  LM  velocity, 

scaled  B7  in  units  of  meters  per  centisecond. 

LOSCOUNT:  See  RADR  section. 

LOSDESRD:  Double  precision  desired  line-of-sight  vector  from  the  LM  to 

the  GSM,  a unit  vector  scaled  B1  and  unitless. 

LOSSM:  Double  precision  LOS  vector,  scaled  B24  in  units  of  meters. 

L0SVDTd4:  Double  precision  LOS  vector  derived  from  -g-  second  of  LOS 

velocity,  scaled  B24  in  units  of  meters. 

LOSVEL:  Double  precision  velocity  vector  of  GSM  with  respect  to  LM, 

scdled  B7  in  units  of  meters  per  centisecond. 

LS21X:  Single  precision  octal  return  address  storage  cell. 

MKTIME:  Double  precision  time  at  which  a mark  incorporation  is  begun 

and  IMU  and  RR  position  angles  are  read  from  the  GDU,  scaled  B28  in 
units  of  centiseconds . 

MLOSV:  Double  precision  magnitude  of  the  LOS  vector,  scaled  B29  in  units 

of  meters  if  FLAGWRDO  bit  7=0,  scaled  B20  otherwise.  (See  RNAV  - 8) 

MODREG:  See  DATA  section. 

MUDEX:  See  GONG  section. 

N49FLAG:  Single  precison  flag  to  control  the  delay  in  "R22LEM96" . 

[NBSMMAT]  : See  GOOR  section. 

NGSMVEL:  Double  precision  velocity  vector  for  the  velocity  after  a plane 

change  in  routine  "ORBCHGO" , scaled  B7  (earth)  or  B5  (moon)  in  units 
of  meters  per  centisecond. 


RNAV  - 48 


NEWPOS:  Double  precision  position  vector  for  the  state  prior  to  a 

plane  change  maneuver,  scaled  B29  (earth)  or  B27  (moon)  in  units 
of  meters. 

NEWVEL:  Double  precision  velocity  vector  for  the  state  prior  to  a 

plane  change  maneuver,  scaled  B7  (earth)  or  B5  (moon)  in  units  of 
meters  per  centisecond. 

NSRCHPNT:  Single  precision  counter  to  direct  the  search  pattern  in  routine 

24  to  one  of  its  six  options,  scaled  B14  and  unitless. 

NUVCSM,  NUVLEM:  See  RCVGSM  in  ORBI  section. 

OMEGAq:  Double  precision  vector  containing  part  of  the  weighting  factors 

to  determine  the  impact  of  a navigation  measurement  on  each  of  the 
position  components  of  the  state  vector  and  W-matrix;  scaled  B39  in  units 
of  meters  or  B43  in  units  of  meters  cubed  per  centisecond,  for 
no  "NEWZCOMP" . 

OMEGA^ : Double  precision  vector  containing  part  of  the  weighting  factors 

to  determine  the  impact  of  a navigation  measurement  on  each  of  the 
velocity  components  of  the  state  vector  and  W-matrix;  scaled  B20  in 
units  of  meters  squared  per  centisecond  or  B24  in  units  of  meters 
cubed  per  centisecond  squared,  for  no  "NEWZCOMP". 

OMEGA2:  Double  precision' vector  containing  part  of  the  weighting  factors 

to  determine  the  impact  of  a navigation  measurement  on  each  of  the 
Rendezvous  Radar  position  biases  and  the  RR  components  of  the  W-matrix; 
scaled  B25  in  units  of  meters,  for  no  "NEWZCOMP". 

OMEGAMq,  O^GAM^  , OMEGAM2:  Double  precision  product  of  GAMMA  with  OMEGA^, 

OMEGA^ , and  OMEGA2,  with  variable  scaling  and  units. 

OMEGDISP:  Double  precision  angle  between  line-of-sight  vector  and  LM  +Z 

axis,  scaled  BO  in  units  of  revolutions. 

0PTI0N1,  0PTI0N2:  See  DATA  section. 

OPTIONXq,  OPTIONX^:  See  EXVB  section. 
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OVFIND:  Single  precision  cell  which  is  set  to  some  non-zero  value  if 

an  overflow  occurs. 

P21ALT:  Value  of  ALT  K:K.01  computed  in  "P21SAVE"  for  (optional) 

display  in  R1  of  N91 , scale  factor  B29,  units  (meters/l OO) : see 
K:K.01  . 

P21BASER:  .Value  of  P21  "base"  vector  for  position,  scale  factor  B29 
(earth)  or  B27  (moon),  units  meters  (earth/moon) . Loaded  after 
completion  of  intergration  to  specified  input  time,  and  used  to  init- 
ialize the  integration  if  bit  11  (P21FLAG)  of  FLAGWRDO  =1,  thus  per- 
mitting computation  time  to  be  saved  if  it  is  desired  to  iterate  about 
a point  which  is  a number  of  orbital  integration  time  steps  removed 
from  the  "permanent"  CSM/LM  state  vector. 

P21BASEV;  Value  of  P21  "base"  vector  for  velocity,  scale  factor  B7  (earth) 
or  B5  (moon),  units  meters/centisecond.  See  P21BASER. 

P21GAM:  Value  of  flight  path  angle  computed  in  "P21VSAVE"  for  (optional) 

display  in  R3  of  N91  , scale  factor  BO,  units  revolutions. 

P210RIG:  Single  precision  cell  used  to  determine  scaling  pertaining 
to  either  earth  or  moon  centered  vectors;  value  of  0 (earth), 

2 (moon)  scaled  B14* 

P21TIME:  Cell  used  to  retain  time  information,  scale  factor  B28,  units 
centiseconds . Used  in  P21  to  contain  the  time  tag  of  P21  BASER  and 
P21BASEV,  and  to  permit  the  incrementing  of  the  time  for  which  the 
N34  display  is  generated. 

P21VEL;  Double  precision  storage  for  the  magnitude  of  the  predicted 

velocity  of  the  vehicle  (crew  option  CSM  or  LM)  at  the  time  specified 
in  Noun  34>  scaled  B7  in  units  of  meters/centisecond. 

PBODY : See  ORBI.  section. 
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PHI: 


Double  precision  angle  between  the  LOS  and  the  Z nav.  base 
axis,  scaled  BO  in  units  of  revolutions. 

PIPCTR:  See  SERV  section. 

POINTVSM:  See  SERV  section. 

R:  See  SERV  section. 

R22DISPR,  R22DISPV:  Double  precision  registers  for  display  of  navi- 
gation update  to  position  and  velocity,  scaled  B29  and  B7  in  units  of 
meters  and  meters  per  centisecond  respectively.  (Listing  mnemonics 
R22DISP  and  R22DISP+3). 

R65CNTR:  Single  precision  number  of  passes  at  six  second  intervals  to 
be  accomplished  of  routine  65,  scaled  BI4  and  unitless. 

RADGOOD,  RADMODES:  See  RADR  section. 

RANGEVAR:  Double  precision,  pad  loaded  variance  expected  in  measured 

range,  scaled  B-12  and  unitless.  Previously  a fixed  memory  constant 
with  an  equation  value  of  0.0033333  squared. 

RANGRDOT:  Double  precision  word  used  to  store  DNRADATA  „ for  downlink  use. 

RATEVAR:  Double  precision,  pad  loaded  variance  expected  in  measured 
range  rate,  scaled  B-12  and  unitless.  Previously  a fixed  memory 
constant  with  an  equation  value  of  0.0043333  squared. 


RATT: 

See 

ORBI 

section. 

RCSM: 

See 

SERV 

section . 

RCV: 

See 

CONG 

section. 
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^VCSM,  ^LEM:  See  ORBI  section. 


RDOTM:  Double  precision  measured  range  rate,  scaled  B7  in  units  of 

meters  per  centisecond. 

[REFSMMAT]  : See  COOR  section. 

REPOSCNT:  Single  precision  cell  used  as  a counter  for  limiting  the  number 

of  calls  to  integration  in  R21 , scaled  BI4. 


REPOSTM:  Double  precision  storage  used  to  save  the  time  of  the  state 

vectors  used  in  the  previous  RR  target  vector  calculation,  scaled  B28 
in  units  of  centlseconds . 

RLMSRCH;  Double  precision  LM  position  vector  scaled  B29  in  units  of  meters. 

RM:  Double  precision  magnitude  of  measured  range,  scaled  B29  in 

units  of  meters.  Also  used  in  routine  29  as  two  single  precision 
storage  cells  (RMq  and  RM-| ) for  downlink.  They  are  Identical  to 
DNRADATA-j  and  DNRADATA2,  respectively. 

RMAX:  Maximum  value  of  position  update  allowed  without  astronaut 

approval,  scaled  B19  in  units  of  meters.  (Single  precision) 

RRr-AZ;  Double  precision  angle  measured  from  the  X-Z  nav  base  plane 

to  the  RR  LOS  vector,  scaled  BO  in  units  of  revolutions. 

RRBORSIT:  Double  precision  measured  line-of-sight  vector,  a unit  vector 


scaled  B1 , lonitless  and  expressed  in  nav.  base  coordinates. 

RRECT:  See  CONG  section. 

rr_ELEV;  Double  precision  angle  measured  from  the  Z nav.  base  axis  to 


the  projection  of  the  RR  LOS  vector  in  the  X-Z  nav.  base  plane,  scaled 


BO  in  units  of  revolutions. 
RRLIMCHK:  See  RADR  section. 


RRSHAFT:  Double  precision  measured  value  of  Rendezvous  Radar  shaft  angle, 

scaled' BO  in  units  of  revolutions. 


^TARGET:  See  RADR  section. 

RRTRIM:  Double  precision  measured  value  of  Rendezvous  Radar  trunnion 

angle,  scaled  BO  in  units  of  revolutions. 

^UBC;  Double  precision  GSM  position  storage  vector  used  in  the 

"ORBCHGO"  routine,  scaled  B29  (earth)  or  B27  (moon)  in  iinits  of  meters. 
^UBL:  Double  precision  LEM  position  storage  vector  used  in  the 

"ORBCHGO"  routine,  scaled  B29  (earth)  or  B27  (moon)  in  iinits  of  meters. 
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RVARMIN : Single  precision,  pad  loaded  minimum  expected  value  of  VARIANCE 

in  a range  measurement,  scaled  B12  in  units  of  meters  squared.  Changed 
by  the  program  to  a triple  precision  value  scaled  B40  in  units  of 
meters  squared.  Previously  a fixed  memory  constant  with  an  equation 
value  of  8.1  squared  meters  squared  or  27  squared  feet  squared. 

RVEC : See  CONC  section. 

RXZ:  Double  precision  component  of  the  line-of-sight  vector  in  the  IW 

X-Z  plane,  scaled  B29  (earth)  or  B27  (moon)  in  units  of  meters. 

SAMPLSUM:  See  RADR  section. 

SCAXIS:  See  ATTM  section. 

SHAFTCMD;  An  alternate  mnemonic  for  TRUNNCMD^  , see  RADR  section. 

SHAFTVAR:  Single  precision  variance  associated  with  the  measured  value  of 

the  Rendezvous  Radar  shaft  angle,  scaled  B-12  in  units  of  radians  squared. 

SINTH:  See  COOR  section. 

SINTHETA:  Double  precision  sine  of  the  RR  trunnion  angle,  scaled  B1  and 

unitless. 

(SMNBMATJ : See  COOR  section. 

SNTH:  See  CONC  section. 

SRCHTIME:  Double  precision  timebase  for  RR  search  routine,  scaled  B28 

in  units  of  centiseconds. 

T:  See  CONC  section. 

TANG„  See  RADR  section, 

u,  1 

TANGNBq  See  RADR  section. 

TAT:  See  ORB I section. 

TC:  See  RCVCSM  description  in  ORBI  section. 

TDEC1:  See  ORBI  section. 

TDELTAV,  TNUV:  See  ORBI  section. 
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TETLEM:  See  RCVCSM  in  ORBI  section. 

THETA:  See  COOR  section. 

THETAD:  See  ATTM  section. 

TIG:  See  BURN  section. 

TIMEHOID:  See  RADR  section. 

TIMENOW:  See  EXVB  section. 

TRKMKCNT:  Single  precision  count  of  number  of  navigation  updates  made 

daring  P20  or  P22,  scaled  BI4  and  unitless.  Cell  also  used  in  R29 
to  indicate  data  storage  for  downlink;  1 - data  stored,  0 - data  not 
stored. 

TRUNNCMDq:  See  RADR  section. 

TRUNVAR:  Single  precision  variance  associated  with  the  measured  value 

of  the  RR  trunnion  angle,  scaled  B-12  in  units  of  radians  squared. 

TX789'.  Temporary  storage  for  updated  X789  vector. 

UCad:  Double  precision  unit  vector  of  the  estimated  GSM  position  at 

the  orbit  change  maneuver  point,  scaled  B1  and  xmitless. 

UIXD:  Computed  line-of-sight  vector,  a unit  vector  scaled  B1. 

ULOSNB:  Double  precision  unit  vector  of  the  RR  LOS  in  nav.  based 

coordinates,  scaled  B1  and  unitless. 

V:  See  SERV  section. 

VARIANCE:  Triple  precision  variance  associated  with  a navigation 

measurement,  scaled  B40  in  \inits  of  meters  squared  or  B42  in  imits  of 
meters^  per  centisecond  squared.  Scaling  changed  as  described  in 
BVECTOR  in  this  section. 

VATT:  See  ORBI  section. 

VCai:  See  SERV  section. 

VCV:  See  CONC  section. 

VCVCSM,  VCVLEM:  See  RCVCSM  description  in  ORBI  section. 
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VMAX:  Maximum  value  of  velocity  update  allowed  without  astronaut  approval, 

scaled  B7  in  units  of  meters  per  centisecond,  single  precision. 

VRECT:  See  CONG  section. 


VSUBC:  Double  precision  GSM  velocity  storage  vector  used  in  the  "ORBGHGO" 

routine  scaled  B7  (earth)  or  B5  (moon)  in  units  of  meters  per  centisecond. 

WARMIN:  Single  precision,  pad  loaded  minimum  expected  value  of  range  rate 

measurement  variance,  scaled  B-12  in  units  of  meters  squared  per  centi- 
second squared.  Ghanged  by  the  program  to  a double  precision  value 
scaled  B4  in  the  same  units . Previously  a fixed  memory  constant  with  an 
equation  value  of  0.0013  squared  meters  squared  per  centisecond  squared 
or  0.44  squared  feet  squared  per  second  squared. 


VXRGM:  Double  precision  unit  vector  defining  the  GSM  orbital  plane  for 

the  RR  search  routine,  scaled  B1  and  unitless. 


Double  precision  "error  transition  matrix,"  a 9x9  matrix  (whose  last 
three  rows  and  columns  are  not  always  maintained)  defined  such  that  the 
covariance  matrix  E equals  W . The  individual  elements  of  the  matrix 
are  denoted  by  two  subscripts,  the  first  indicating  the  row,  the  second 
indicating  the  column.  The  first  three  rows  are  scaled  B19  in  units  of 


meters;  the  middle  three  rows  are  scaled  BO  in  units  of  meters  per  centi- 
second; the  last  three  rows  are  scaled  B-5  in  units  of  radians.  Because 
of  LOG  limitations  on  vector  manipulations,  the  elements  of  the  W-matrix 


are  stored  in  the  following  order; 


Address 

Standard 

Notation 

Address 

Standard 

Notation 

Address 

wto 

^11 

^22 

Wi3 

W+54 

^42 

^52 

^43 

W+108 

W+2 

W+56 

W+110 

W+4 

W+58 

W+1 12 

W+6 

W+60 

W+114 

W+8 

W+62 

W+1 16 

W+10 

W+64 

W+1 18 

W+12 

W+66 

W+1 20 

W+46 

79 

39 

W+100 

y68 

^69 

W+1 54 

W+48 

W+102 

W+1 56 

W+50 

W+104 

W+1  58 

W+52 

W+106 

W+1 60 

Standard 

Notation 


W 

W 

W 

W 

W 

W 

W 


71 
81 

91 

72 
82 

92 

73 


,98 

,79 

.89 

99 


55 


RNAV  - 


In  other  words: 


0 

6 

12 

18 

24 

30 

36 

42 

48 

2 

8 

U 

20 

26 

32 

38 

44 

50 

4 

10 

16 

22 

28 

34 

40 

46 

52 

54 

60 

66 

72 

78 

84 

90 

96 

102 

56 

62 

68 

74 

80 

86 

92 

98 

104 

58 

64 

70 

76 

82 

88 

94 

100 

106 

108 

114 

120 

126 

132 

138 

144 

150 

156 

110 

116 

122 

128 

134 

140 

146 

152 

158 

112 

118 

124 

130 

136 

142 

148 

154 

160 

WHCHREAD:  Single  precision  code  to  indicate  which  navigation  measure- 
ment is  being  incorporated  into  a state  vector  scaled  B14  ( 1-range, 
2-range  rate,  3-shaft,  and  4-trunnion). 


WRENDPOS,  WRENDVEL,  WSURFPOS,  WSURFVEL,  WSHAFT,  WTRUW:  Sin^e  precision 
initial  estimates  for  the  uncorrelated  variance  in  spacecraft  position, 
spacecraft  velocity  in  flight  and  on  the  surface,  and  Rendezvous  Radar 
position  estimates,  scaled  BI4,  BO,  BI4,  BO,  B-5,  B-5  in  units  of 
meters,  meters  per  centlsecond,  meters,  meters  per  centisecond,  radians 
and  radilans  respectively. 


WWPOS,  WWEL,  WWBIAS:  Double  precision  square  roots  of  the  sums  of  the 
squares  of  the  X-position,  X-velocity,  and  shaft  elements  of  the  W- 
matrix,  scaled  B19,  BO,  and  B5,  respectively,  in  units  of  meters, 
meters  per  centlsecond,  and  radians. 


X789:  Double  precision  vector  containing  the  best  estimate  of  bias 
necessary  to  offset  RR  position  error,  scaled  B5  (earth)  or  B3 
(moon)  in  units  of  radians. 


XNBpef)  j^NBI.ef>  ZNBref:  Double  precision  \init  vectors  in  the  directions 
of  the  LM  +X,  +Y  and  +Z  navigation  base  axes  respectively,  scaled  B1 
and  unitless;  expressed  in  reference  coordinates. 

XPREV:  See  CONG  section. 

2I0)  2I]_,  ZI2:  Double  precision  intermediate  vector  quantities  in  the 
navigation  measurement  updates  of  the  state  vector  and  the  W-matrix, 
scaled  B20  in  units  of  meters  or  B24  in  units  of  meters  squared  per 
centlsecond,  before  "NEWZCOMP"  shifts. 


RNAV  - 56 


Servicer 


PREREAD 


READACCS 


FIPASR 


Establish  "LASTBIAS"  (pr2l ) 

Perform  "PIPASR"  skipping  first  step  (PIPTIMEI  unchanged) 
Switch  FLAGWRD7  bits  6 (V37FLAG)  and  5 (AVEGFLAG)  to  1 
Switch  FLAGWRD2  bit  15  (DRIFTFLG)  to  0 


Establish  "NORMLIZE"  (pr22) 

Delay  2 seconds 

TIME5  = TIMES  - 1 slgn(TIME5  - 16377) 

Perform  "PIPASR" 

Establish  "SERVICER"  (pr20) 

Switch  bit  9 of  channel  11  to  1 (test  connector  output) 

If  FLAGWRD7  bit  5 (AVEGFLAG)  = 0: 

AVEGEXIT  = "AVGEND" 

End  task 

If  FLAGWRD6  bit  8 (MURFLAG)  = 1 : 

PIPCTR  = 7 

Call  "RIOjRII"  in  0.2  second 
Call  "READACCS"  in  2 seconds 
End  task 

PIPTIMEI  = TIMENOW 

DELV  = 0 
z 

DELV  = 0 

y 

DELV  = 0 
xis 

TEM  = - PIPA 

DELV  = PIPA  (single  precision  into  more  significant 

PIPA  “0  ( O)  halves  of  DELV  components) 

PGUIDE  = PIPTIMEI  - PIPTIME 


SERV  - 1 


NORMLIZE 


SERVICER 


CDUTEMP  = GDU 
PIPATMP  = DELV 
Retiarn 

If  FLAGWRD6  bit  8 (MUNFLAG)  = 1 : 

R = [rEFSMMA^  mi 

Perform  "MUNGRAV"  with  TSr  = R 

V = [refsmmat]  TOI 

PYP  = unit(VCSM  * RCSM) 

If  FLAGWRD6  bit  8 (MUNFLAG)  = 0: 

Perform  "CALCGRAV"  with  TSr  = Ml 
Inhibit  interrupts 

Perform  "COPYCYC"  skipping  first  two  steps  (MASS  unchanged) 
Release  interrupt  inhibit 
End  job 

IdPIPADT  = K:PRI031 
Perform  "l/PIPA" 

ABDELV  = I DELV  | 

ABDVCONV  = K:KPIP  ABDELV 
MASS1  = MASS 

If  FLAGWRD8  bit  8 (SURFFLAG)  = 0: 

TSv  = K; DPS VEX 

If  FLGWRD10  bit  13  (APSFLAG)  =1,  TSv  = K;APSVEX 
MASS1  = MASSI  + MASS  ABDVCONV  / TSv 
DVTOTAL  = DVTOTAL  + K:KPIP1  | DELV  | 

Perform  "QUICTRIG"  with  ANG  = CDDTEMP 


PBPIP  = (COSIGA  COSMGA,  SINMGA,  - SINIGA  COSMGA) 


ZNBPIP  = COSIGA  COSOGA  - SINIGA  SINUGA  SINMGA 
z 

ZNBPIP  = - SINOGA  COSMGA 

y 

ZNBPIP  = COSOGA  SINIGA  + COSIGA  SINOGA  SINMGA 

X 

YNBPIP  = PBPIP  * J^PIP 

AVERACaiG  If  FLAGWRD6  bit  8 (MUNFLAG)  = 1 , perform  "RVBOTH" 

If  FLAGWRD6  bit  8 (MUNFLAG)  = 0,  perform  "CALCRVG" 

Perform  "COPYCYC" 

PIPATMP  = 0 

Switch  FLAGWRD2  bit  11  (STEERSW)  to  0 
If  FLAGWRD7  bit  7 (IDLEFLAG)  = 0; 

If  FLAGWRD6  bit  2 (AUXFLAG)  = 1 ; 

Proceed  to  "DVMON" 

Switch  FLAGWRD6  bit  2 (AUXFLAG)  to  1 
Switch  DAPBOOLS  bit  14  (USEQRJTS)  to  1 
Proceed  to  "SERVOUT" 

Switch  FLAGWRD6  bit  2 (AUXFLAG)  to  0 
Switch  DAPBOOLS  bit  14  ( USEQRJTS)  to  1 
Proceed  to  "SERVOUT" 

DVMON  If  ABDELV  < DVTHRUSH: 

If  DVCNTR  = 0: 

If  "COMFAIL"  is  already  active:  (determined  from 

restart  tables) 

Proceed  to  "SERVOUT" 

Establish  "COMFAIL"  (pr25) 

Proceed  to  "SERVOUT" 


SERV  - 3 


SERVOUT 


COPYCYG 


SERVEXIT 


(If  ABDELV<  DVTHRUSH;) 

DVCNTR  = DVCNTR  - 1 
Inhibit  interrupts 
Perform  "STOPRATE" 

Switch  DAPBOOLS  bit  U (USEQRJTS)  to  1 
Proceed  to  "SERVOUT" 

Switch  FLAGWRD2  bit  11  (STEERSW)  to  1 
DVCNTR  = 1 

If  FLGWRD10  bit  13  (APSFLAG)  = 0; 

If  bit  9 of  channel  32  = 1 : 

Switch  DAPBOOLS  bit  14  (USEQRJTS)  to  0 
Proceed  to  "SERVOUT" 

Switch  DAPBOOLS  bit  14  (USEQRJTS)  to  1 
Release  interrupt  inhibit 
Perform  "I/ACCS" 

Proceed  to  AVEGEXIT 
Inhibit  interrupts 
MASS  = MASS1 
ffiT  = GDT1 
PIPTIME  = PIPTIME1 
VN  = VN1 
M = pi 
Return 
End  job 


SERV  - 4 


AVGEND 


IdPIPADT  = less  significant  half  of  PIPTIME 
Switch  FLAGWRD2  bit  15  (DRIFTFLG)  to  1 
Perform  "PIPFREE" 


SERVIDLE 


CALCRVG 


Switch  bit  9 of  channel  11  to  0 (test  connector  output) 

Switch  FLAGWRD3  bit  11  (N0R29FLG)  to  1 

Switch  FLAGWRD7  bit  11  (SWANDISP)  to  0 

Switch  FLAGWRD6  bit  8 (MUNFLAG)  to  0 

Perform  "AVETOMID" 

Switch  FLAGWRD7  bit  6 (V37FLAG)  to  0 
Proceed  to  "V37RET" 

AVEGEXIT  = "SERVEXIT" 

Switch  FLAGWRD7  bit  7 (IDLEFLAG)  to  1 

Switch  FLGWRD11  to  40000g  (bypass  all  LR  updates) 

If  FLAGWRD6  bit  8 (MUNFLAG)  = 1 : 

Maintain  Group  2 in  restart  logic 
Maintain  Group  5 in  restart  logic 
Establish  "GOTOPOOH"  in  Group  4 of  restart  logic 
Clear  all  other  restart  logic 
Proceed  to  "WHIlfPER" 

DELVREF  = K:KPIP1  DELV  [rEFSMMAt] 

RN1  = + PGUIDE  (VN  + i DELVREF  + i GDT) 

Perform  "CALCOIAV"  with  TSr  = Ml 
VN1  = VN  + DELVREF  + i (GDT  + GDT1 ) 

Return 


SERV  - 5 


CALC GRAY 


RVBOTH 


RMAGSQ  = I TSr| ^ 

UNITR  = unitTSr 

If  RTX2  = 0:  (earth  orbit) 


TSsel  = KiTJNITZ  • UNITR 
TS  = (1  - 5 TSsel^)  / 20 
TSrdr  = K;RESQ  / RMAGSQ 

UNITGOBL  = TSrdr  K:20J  TS  UNITR  + TSrdr  K:2j  TSsel  KtUNITZ 
GDT1  = K;mMUr)Tj^^^2  (UNITGOBL  + UNITR)  / RMAGSQ 
If  RTX2  = 2:  (lunar  orbit) 

GDT1  = K;iiiMUDTj^^^2  UNITR  / RMAGSQ 
Return 


R1S  = RCSM  + PGUIDE  (VCSM  + i GCSM) 


Perform  "MUNGRAV"  with  TSr  = R1S 
VIS  = VCSM  + i (^SM  + ®T1) 

^SM  = GDT1 

RCSM  = R1S 

VCSM  = VIS 

TSdv  = K:KPIP2  DELV 

R1S  = R + PGUIDE  (V  + i TSdv  + i GDT) 


Perform  "MUNffiAV"  with  TSr  = R1S 
VIS  = V + TSdv  + i (GDT  + GDT1 ) 


ABVEL  = I V1 S 
HDOTDISP  = raiTR  • VIS 
DELVS  = R1S  ^ WM 


HCALC  = 


R1S 


- LANDMAG 


Proceed  to  '’MUNRETRN” 


SERV  - 6 


MUNGRAV  UNITE  = unltTSr 


MUNRETRN 


HIGATJOB 


RMAGSQ  = l^rl  ^ 

GDT1  = KtmMUDT^  UNITE  / EMAGSQ 
E-3turn 

If  FLGWED11  bit  15  (LEBYPASS)  = 1,  proceed  to  "C0PYCYC1" 

If  FLGWED11  bit  9 (XOEFLG)  = 0: 

If  HCALC -<iK;30kft: 

Switch  DAPBOOLS  bit  9 (XOVINHIB)  to  1 
Switch  FLGWED11  bit  9 (XOEFLG)  to  1 
If  FLGWED11  bit  10  (NOLEEEAD)  = 1,  proceed  to  "CONTSEEV" 

If  FLGWED11  bit  3 (N0511FLG)  = 1,  proceed  to  "UPDATCHK" 

If  FLGWED11  bit  11  (PSTHIGAT)  = 1: 

If  bit  7 of  channel  33  = 0:  (LE  in  position  #2) 

Proceed  to  "UPDATCHK” 

Perform  "ALAEM"  with  TS  = 0051 1g 
Proceed  to  "CONTSEEV” 

If  TTF  <-  EPCETIME  or  XNBPIP  <EPCETQSW: 

X 

If  bit  6 of  channel  33  = 0:  (LE  in  position  #1 ) 

Proceed  to  "UPDATCHK" 

Perform  "ALAEM"  with  TS  = 0051 1g 
Proceed  to  "CONTSEEV" 

Establish  "HIGATJOB"  (pr32) 

Switch  FLGWED11  bits  11  (PSTHIGAT)  and  10  (NOLEEEAD)  to  1 
Proceed  to  the  second  step  of  "CONTSEEV" 

Perform  "LEP0S2" 

Perform  "EADSTALL" 


SEEV  - 7 


If  RADGOOD  = 0: 


(bad  return  from  "RADSTALL") 


POS ALARM 


POSGOOD 


P1CHK 


P2CHK 


UPDATCHK 


Perform  "PRIOLARM"  with  TS  = 005 23g 

(If  terminate,  end  job;  if  proceed,  proceed  to  ”P1CHK" 
if  other  response,  proceed  to  "P2CHK".) 

End  job 

Change  job  priority  to  23  (pr23) 

Perform  "SETP0S2" 

Switch  FLGWRD11  bit  6 (LP0S2FLG)  to  1 
Switch  FLOWED 11  bit  10  (NOLRREAD)  to  0 
End  job 

Switch  FLGWRD11  bit  3 (NO5IIFLG)  to  1 

If  bit  6 of  channel  33  = 0:  (LR  in  position  #1 ) 

Switch  FLGWRD11  bit  10  (NOLRREAD)  to  0 
End  job 

Proceed  to  "POSGOOD” 

If  bit  7 of  channel  33  = 0;  (LR  in  position  #2) 

Proceed  to  "POSGOOD" 

Proceed  to  "POSALAEM" 

If  FLGWRD11  bit  10  (NOLRREAD)  = 1,  proceed  to  "CONTSERV" 

If  FLGWRD11  bit  4 (RNGEDATA)  = 0,  proceed  to  "VMEASCHK" 

TSh  = pEAMNB  [XNBPIP] 

TS  = RADSKAL  TSh  • (VIS  + pLVS) 

If  RADMODES  bit  9 (ALTSCBIT)  = 0,  TS  = SKALSKAL  TS 
DELTAH  = KrHSCAL  (TS  + HMEAS ) TSh  • UNITE  - HCALC 
If  FLGWRD11  bit  11  (PSTHIGAT)  = 0,  proceed  to  "NOREASON" 

TS  = I DELTAH  j - DELCJFIX  - HCALC  / 8 
LRLCTR  = LRLCTR  + 1 


SERV  - 8 


NOREASON 


VMEASCHK 


If  TS^  0:  (DELTAH  too  large) 

If  LRRCTR  ^ 0 and  LRLCTR  - LRRCTR  < 4: 

Switch  FLGWRD11  bit  1 (HFLSHFLG)  to  1 
LRRCTR  = LRLCTR 
Proceed  to  "VMEASCHK" 

Switch  FLGWRD11  bit  1 (HFLSHFLG)  to  0 

If  FLGWRD11  bit  8 (LRINH)  = 0,  proceed  to  "VMEASCHK" 

If  HCALC^  LRHMAX,  proceed  to  "VMEASCHK" 

TS  = DELTAH  LRWH  (LRHMAX  - HCALC)  / LRHMAX 
TSr  = R1S  + TS  UNITR 
Perform  "MUNGRAV" 

R1S  = TSr 

If  FLGWRD11  bit  7 (VELDATA)  = 0,  proceed  to  "VALTCHK" 
MG  = LRCDU 
Perform  "QUICTRIG" 

If  VSELECT  = 0,  TSuv  = VZBEAMNB 

If  VSELECT  = 1 , TSuv  = VYBEAMNB 

If  VSELECT  = 2,  TSuv  = VXBEAMNB 

Perform  "NBTOSM" 

j = 2 VSELECT 

VBEAM  = [nBSMMA'^  TSuv 

TSgv  = GDT  (LRVTIME  - PIPTIME ) / K:2SECb28 

TS  = TSgv  + V + K:KPIP1  PIPTEM  + pLVS 

VEST  = TS  • PEAM 

DELTAV  = K:VSCAL.  VMEAS  - VEST 
J 

TS  = |DELTAV|  - (|pj  / 8 + K:7.5fps) 


SERV  - 9 


LRMCTR  = LRMCTR  + 1 


WSTOR 


If  TS  >0:  (DELTAV  too  large) 

If  LRSCTR  i-  0 and  LRMCTR  - LRSCTR  < 4: 

Switch  FLGWRD11  bit  2 (VFLSHFLG)  to  1 
LRSCTR  = LRMCTR 

If  VSELECT  = 0,  switch  FLGWRD11  bit  12  (VXINH)  to  1 


Proceed  to  "VALTCHK" 


Switch  FLGWRD11  bit  2 (VFLSHFLG)  to  0 
If  FLGWRD11  bit  12  (VXINH)  = 1: 

Switch  FLGWRD11  bit  12  (VXINH)  to  0 
If  VSELECT  = 2,  proceed  to  "VALTCHK" 

If  FLGWRD11  bit  8 (LRINH)  = 0,  proceed  to  "VALTCHK" 
If  ABVEL<  LRVF; 


TS  = LRWVF. 


VSELECT 


Proceed  to  "WSTOR" 


If  IRVMAX  :£  ABVEL: 
TS  = 0 


Proceed  to  "WSTOR" 

TS  = LRWV^ggj^p^  (LRVMAX  - ABVEL)  / LRVMAX 
If  MODREG  >■  64: 

TS  = LRWVFF 
TS^p  = (TS,  0) 

TSv  = VIS  + TS^  DELTAV  VBEAM 
VIS  = TSv 


Proceed  to  "VALTCHK" 


SERV  - 10 


VALTCHK  If  FLGWED11  bit  5 (READVEL)  = 0: 


If  ABVEL  > K;6KETdSEC,  proceed  to  "CONTSERV” 
Switch  FLGWRD11  bit  5 (READVEL)  to  1 
Establish  "LRVJOB"  (pr32) 

CONTSERV  Inhibit  interrupts 

Switch  FLGWRD11  bits  4 (RNGEDATA)  and  7 (VELDATA)  to  0 


C0PYCYC1  If  FLAGWRD3  bit  9 (READRFLG)  = 1 or  FLAGWRD3  bit  11  (N0R29FLG)  = 1 
or  RADMODES  bit  13  (RCDUOBIT)  = 1 or  RADMODES  bit  2 (AUTOMBIT)  = 1: 

Switch  RADMODES  bit  10  (DESIGBIT)  to  0 

Proceed  to  "N0R29N0W" 

If  RADMODES  bit  14  (REMODBIT)  and  bit  11  (REPOSBIT)  = 0: 


Proceed  to  "R29" 


N0R29N0W 


Release  interrupt  inhibit 


HCALC  = |R1S|  - LANDMAG 

HCALC1  = HCALC 

ALTBITS  = K:ALTC0NV, HCALC 


UHZP  = unit(yNITR  * UHYP) 

pi  = pS  [rEFSMMA'^  (=  [^FSMMA^'^  pS) 

pi  = VIS  [refsmmatJ 

TS  = K:ARC0NV1  |piTR  * Vis|  ^ / |ps| 


Inhibit  interrupts 


RUNIT  = UNITR 
- sp  -* 

DALTRATE  = TS 
sp 

R = pS 


V = ps 

Return 


(to  caller  of  ’'RVBOTH"  ) 


SERV  - 11 


LRHJOB 


Perform  "LRALT" 


Perform  "RADSTALL" 

If  RADGOOD  = 0: 

If  FLAGWRD5  bit  1 0 (RNGSCFLG)  = 1 ; 

Switch  FLAGWRD5  bit  10  (RNGSCFLG)  to  0 
End  job 
STILBADH  = 2 
End  job 

If  STILBADH > 0: 

STILBADH  = STILBADH  - 1 
End  job 

Inhibit  interrupts 
HMEAS  = SAMPLSUM 
MKTIME  = PIPTIME1 
AIG  = CDUTEMP 

7 

AMG  = CDUTEMP 

z 

AOG  = CDUTEMP 

X 

Switch  FLGWRD11  bit  4 (RNGEDATA)  to  1 
Release  interrupt  inhibit 
End  job 

LRVJOB  Call  "RDGIMS"  in  o.17  second 
TSn  = 5 

If  VSELECT  = 0,  perform  "LRVELX" 


SERV  - 12 


If  V3ELECT  = 1 , perform  "LRVELZ" 

If  VSELECT  = 2,  perform  "LRVELY" 
Perform  "RADSTALL" 

If  RADGOOD  = 0: 

STILBADV  = 2 
Proceed  to  "ENDLRV" 

If  STILBADV > 0: 

STILBADV  = STILBADV  - 1 
Proceed  to  "ENDLRV" 

Inhibit  interrupts 
VMEAS  = SAMPLSUM 
LRVTIMDL  = LRVTIME 
mCDUDL  = LRCDU 

Switch  FLGWRD11  bit  7 (VELDATA)  to  1 
ENDLRV  If  VSELECT  = 0,  VSELECT  = 3 
VSELECT  = VSELECT  - 1 
End  job 

RDGIMS  LRVTIME  = TIMENOW 
yiCDU  = CDU 
PIPTEM  = PIPA 
End  task 


SERV  - 13 


R10.R11  If  FLAGWRD7  bit  5 (AVEGFLAG)  =0,  end  task 


If  PIPCTR  = 0;  (PIPTIME  + 1.95  seconds) 

If  FLGWRD11  bit  15  (LRBYPASS)  = 0 
and  bit  10  (NOLRREAD)  = 0: 

Establish  "LRHJOB"  (pr32) 

Skip  next  two  (2)  steps 

PIPCTR1  = PIPCTR  - 1 

Call  "RIOjRII"  in  0.25  second 

If  FLGWRD11  bit  1 (HFLSHFLG)  = 1: 

Invert  bit  5 of  DSPTAB^^ 

Switch  bit  15  of  DSPTAB^^  to  1 (flag  for  output) 
If  FLGWRD11  bit  2 (VFLSHFLG)  = 1: 

Invert  bit  3 of  DSPTAB^^ 

Switch  bit  15  of  DSPTAB^^  to  1 (flag  for  output) 

If  FLAGWRD9  bit  9 (LETABORT)  = 0: 

Proceed  to  "LANDISP" 

If  MODREG  = 71 , proceed  to  "LANDISP" 

If  bit  4 of  channel  30  = 0:  (abort  stage) 

Proceed  to  "P71A" 

If  MODREG  = 70,  proceed  to  "LANDISP" 

If  bit  1 of  channel  30  = 0;  (abort) 

Proceed  to  "P70A" 

Proceed  to  "LANDISP" 


SERV  - 14 


LANDISP  PIPCTR  = PIPCTR1 


If  FLAGWRD7  bit  11  (SWANDISP)  = 0,  proceed  to  "DISPRSET" 

LADQSAVE  = "ALTR0UT1 " 

If  IM0DES33  bit  7 = 1 , LADQSAVE  = "ALT0UT1 " 

If  bit  6 of  channel  30  = 1 , proceed  to  "DISPRSET" 

(inertial  data  display  discrete  is  reset) 

If  FLAGWRD1  bit  U (DIDFLAG)  = 1,  proceed  to  "SPEEDRUN" 

Switch  FLAGWRD1  bit  14  ( DIDFLAG)  to  1 

Switch  IMODES33  bit  7 to  0 (display  rate  first) 

If  FLAGWRDO  bit  2 (R1 OFLAG)  = 1 , end  task 

Switch  bit  8 of  channel  12  to  1 (set  inertial  data  display 

moding  discrete) 

TRAKLATV  = 0 
TRAKFWDV  = 0 
LATVMETR  = 0 
FORVMETR  = 0 

Call  "INTLZE"  in  0.08  second 
End  task 

INTLZE  Switch  bit  2 of  channel  1 2 to  1 (enable  RRCDU  error  counter) 

Switch  IM0DES33  bit  8 to  1 
End  task 

SPEEDRUN  DT  = TIMENOW  - PIPTIME 
sp 

WECT  = -g-  GDT  DT  / K:1SEC 

WECT  = WECT  + V + K:KPIP1b5  (PIPA  + PIPATMP) 

- sp  - - 

Delay  0,04  second 

If  FLAGWRDO  bit  2 (R1 OFLAG)  = 1 , proceed  to  LADQSAVE 

TS  = WECT  + DELVS 

— — — ms 
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VHY  = TS  . miYP 
VHZ  = TS  . irazp 

LATVEL  = K:VELCONV  (M32  VHY  + M22  VHZ) 

FORVEL  = KrVELCONV  (M32  VHZ  - M22  VHY) 

If  |fORVEl|<  K:MAXVBITS: 

If  TRAKFWDV  FORVEL  0: 

TS  = FORVEL  - FORVMETR 

If  TRAKFWDV  = 0 and  FORVEL  FORVMETR  /LO: 

If  |ts| > K:MAXVBITS,  TS  = KrMAXVBITS  signTS 
If  TRAKFWDV  FORVEL  < 0: 

TS  = - FORVMETR 


TRAKFWDV  = 0 


If 


FORVEL  K;MAXVBITS; 


If  TRAKFWDV  FORVEL  ^ 0; 

TS  = KrMAXVBITS  signFORVEL  - FORVMETR 
1=1  signFORVEL 
If  TRAKFWDV  FORVEL  0: 

TS  = KrMAXVBITS  signFORVEL 
1=0 

TRAKFWDV  = i 
CDUSCMD  = TS 

FORVMETR  = FORVMETR  + TS 
If  I LATVEL  <KrMAXVBITSr 

If  TRAKLATV  LATVEL  > Or 

TS  = LATVEL  - LATVMETR 
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ALTR0UT1 


(If  |lATVEl|  < K:MAXVBITS:  ) 

(If  TRAKLATV  LATVEL>  0:) 

If  TRAKLATV  = 0 and  LATVEL  LATVMETR  4:;;  0 : 

If  |ts|  > K:MAXVBITS,  TS  = K:MAXVBITS  signTS 
If  TRAKLATV  LATVEL  < 0: 

TS  = - LATVMETR 
TRAKLATV  = 0 


If 


LATVEL I > K:MAXVBITS: 

If  TRAKLATV  LATVEL^  0: 

TS  = K;MAXVBITS  signLATVEL  - LATVMETR 
i = 1 signLATVEL 
If  TRAKLATV  LATVEL  ^0: 


TS  = K:MAXVBITS  signLATVEL 
i = 0 

TRAKLATV  = i 
CDUTCMD  = TS 

LATVMETR  = LATVMETR  + TS 


Switch  bits  11  and  12  of  channel  14  to  1 
Proceed  to  LADQSAVE 
Switch  IM0DES33  bit  7 to  1 

Switch  bit  2 of  channel  14  to  1 (select  altitude  rate  display) 
ALTRATE  = DT  DALTRATE  + K:ARC0NV  RUN IT  • VVECT 
ALTM  = - ALTRATE 

If  ALTM  <0,  ALTM  = ALTRATE  with  bit  I5  switched  to  1 

Switch  bit  3 of  channel  I4  to  1 (altitude  meter  activity  bit) 
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End  task 


ALT0UT1 


DISPRSET 


Switch  IMODES33  bit  7 to  0 

Switch  bit  2 of  channel  14  to  0 (select  altitude  display) 

TS  = K:ARTOA 
If  ALTBITS  ^ 0: 

ALT SAVE  = ALTBITS 
ALTBITS  = - 1 
TS  = K:ART0A2  DT 
ALTSAVE  = ALTSAVE  + TS  ALTRATE 
If  ALTSAVE  2^0,  ALTSAVE  = 0 
If  ALTSAVE  > K:altliin; 

ALTSAVE  =2^^  (fractional  part  of  ALTSAVE  / 2*'^) 

ALTM  = ALTSAVE 

Switch  bit  3 of  channel  14  to  1 (altitude  meter  activity  bit) 
End  task 

If  FLAGWRDO  bit  2 (RIOFLAG)  = 0: 

If  IMODES33  bit  8 = 1 : 

Switch  bit  2 of  channel  12  to  0 
Switch  bit  8 of  channel  12  to  0 
Switch  bits  7 and  8 of  IMODES33  to  0 
Switch  FLAGWRD1  bit  14  (DIDFLAG)  to  0 
End  task 
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SETP0S1  STILBADH  = 2 


STILBADV  = 2 
LRLCTR  0 
LRMCTR  = 0 
LRRCTR  = 0 
LRSCTR  = 0 
VSELECT  = 0 

ANG  = (lEALPKA^,  LRBETA^ , O) 
Perform  "SETPOS" 

Return 

SETP0S2  ANG  = (LRALPHA^,  LRBETA^,  O) 
Perform  "SETPOS" 

Return 

SETPOS  Perform  "CD^^TR^^GS" 

Perform  "SMTONB" 

PBEAMNB  = [sMNBMA:^  K:  UNITY 
VXBEAMNB  = jSMNBMA^  K: UNITY 
VZBEAMNB  = VXBEAMNB  * VYBEAMNB 
PEAMNB  = [sMNBMA:^  KrHBEAMANT 
Return 
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Quantities  in  Computations 


IdPIPADT:  See  IMUC  section. 

ABDELV:  Single  precision  magnitude  of  sensed  change  in  velocity  (D^ELV), 
scaled  B14  in  units  of  centimeters  per  second. 

ABDVCONV:  Double  precision  magnitude  of  DELV  converted  to  units  of 
meters  per  centisecond  and  scaled  B5. 

ABVEL;  Double  precision  magnitude  of  velocit3''  for  display,  scaled  B7 
in  units  of  meters  per  centisecond. 

AIG,  AMG,  AOG:  Single  precision  storage  for  CDUTEMP  , CDUTEMP  and 
CDUTEMP^  respectively  for  downlink  purposes.  ^ ^ 

ALTBITS:  Double  precision  altitude  computed  for  display  on  the 

tape-drive  altitiide  meter,  scaled  B28  in  units  of  Analog-altitude- 
display  bits.  Set  to  -1  to  indicate  that  it  has  not  been  updated 
since  the  last  tirae  it  was  sampled  to  drive  the  display. 

ALTM:  Single  precision  cell  used  to  provide  altitude  and  altitude 

rate  information  to  the  tape-drive  altitude  and  altitude  rate  meters, 
scaled  B14  in  units  of  Analog-altitude-display  bits  or  Analog- 
altitude-rate-display  bits . One  Analog-altitude-display  blL  is 
equivalent  to  0.714756  meters  (2.345  feet),  and  one  Analog-altitude- 
rate-display  bit  is  eqiiivalent  to  0.1524  meters  per  second  (0.5  feet 
per  second).  Data  is  provided  to  the  meters  in  serial  binary  form 
at  a 3200  pps  rate  when  bit  3 of  channel  14  is  set,  and  bit  2 of 
channel  14  is  set  or  reset  by  the  program  to  distinguish  between 
altitude-rate  (l)  and  altitude  (0)  information. 

ALTRATE:  Single  precision  altitude  rate  calculated  for  display  on  the 
tape-drive  altitude  rate  meter,  scaled  B14  in  units  of  Analog-altitude- 
rate-display  bits. 

ALTSAVE:  Double  precision  storage  for  previous  meaningful  value  of 
ALTBITS,  scaled  B28  in  units  of  Analog-altitude-display  bits. 

ANG:  See  COOR  section. 

AVEGEXIT;  Double  precision  variable  address  (program  notation  also 
AVGEXIT)  to  branch  to  the  guidance  routines  specified  by  whichever 
program  is  controlling  a burn. 

CDU:  See  IMUC  section. 

CDUSGMD,  CDUTCMD:  Single  precision  cells  loaded  with  values  to  be 
transmitted  to  the  Error  Counters  in  the  two  Rendezvous  Radar 
channels  of  the  Coupling  Data  Unit  (RRCDU),  for  use  in  controlling 
the  shaft  and  trunnion  angles  of  the  RR  or  for  positioning  the 
forward  and  lateral  velocity  meters.  Information  is  gated  out  of 
the  cells  if  bits  11  and  12  respectively  of  channel  14  are  set,  and 
the  RRCDU  Error  Counters  recognize  the  information  if  bit  2 of 
channel  14  is  set.  (Error  Counters  reset  to  zero  whenever  bit  2 
of  channel  14  is  reset.)  A satuirated  Error  Counter  (384  pulses) 
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corresponds  to  an  RR  drive  rate  of  10  degrees  per  second;  each  bit 
represents  O.I698  meters  per  second  (0.5571  feet  per  second)  when 
used  to  drl/e  the  velocity  meters. 

OTUTEMP:  Single  precision  vector  storage  for  the  reading  of  the  ICDU 
at  the  time  of  a PIPA  read,  scaled  B-1  in  units  of  revolutions 
and  stored  in  twos  complement  form. 

COSIGA,  COSMGA,  COSOGA I See  COOR  section. 

DALTRATE:  Single  precision  expected  rate  of  change  of  ALTRATE,  scaled 
BO  in  units  of  Analog-altitude-rate-display  bits  per  centisecond. 

DAPBOOLS:  See  flagword  definitions. 

DELQFIX;  Double  precision  Landing  Radar  Data  reasonableness 
test  parameter,  scaled  B24  in  units  of  meters}  part  of  the 
erasable  load. 

DELTAH:  Double  precision  difference  between  the  calculated  altitude 

and  that  measured  by  the  Landing  Radar,  scaled  B24  in  units  of  meters. 

DELTAV:  Double  precision  difference  between  the  calculated  velocity 
component  and  that  measured  by  the  Landing  Radar,  scaled  B6  in 
units  of  meters  per  centisecond. 

DELV:  Double  precision  sensed-change-in-velocity  vector,  scaled  BI4 
in  units  of  centimeters  per  second  (one  PIPA  pulse  represents  one 
centimeter  per  second  on  the  LM)  and  expressed  in  Platform  coordinates. 

D^ELVREF:  Double  precision  sensed-change-in-veloclt^'-  vector  converted 
to  a scaling  of  B?  in  units  of  meters  per  centisecond  and  expressed 
in  the  Reference  coordinate  system. 

D^ELVS:  Double  precision  vector  difference  between  velocity  relative 
to  the  rotating  moon  and  inertial  velocity,  scaled  B5  in  units  of 
meters  per  centisecond  and  expressed  in  the  Platform  coordinate 
system. 

DSPTAB^^:  See  INTR  section.- 

DT:  Single  precision  time  interval  from  beginning  of  navigation  interval 
to  the  time  of  the  generation  of  the  display  on  the  tape-drive  meters, 
scaled  B14  in  units  of  centiseconds. 

DVCMTR:  Single  precision  counter  set  to  determiine  the  length  of  the 
tirust  monitor,  scaled  BI4  in  units  of  navigation  cycles. 

DVTHRUSH:  Single  precision  delta~v  threshold,  scaled  BI4  in  \mits  of 
centimeters  per  second;  set  according  to  the  engine  in  use. 

DVTOTAL:  Double  precision  simi  of  velocity  gained,  scaled  B7  in  units 
of  meters  per  centisecond. 

FORVEL:  Single  precision  forvrard  velocity  component  (Body  coordinates) 
of  the  LM  relative  to  the  rotating  moon,  scaled  B14  in  forward 
velocity  display  units. 
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FORVMETR:  Single  precision  storage  for  the  total  value  of  velocity 

displayed  on  the  Forward  velocity  meter,  scaled  BI4  in  forward 
velocity  display  units  (see  definition  of  CDUSCMD) 

GCSM:  Double  precision  gravity  vector  at  the  GSM,  scaled  B8  in  imits 
of  meters  per  centisecond  and  expressed  in  the  Platform  coordinate 
system. 

GDT,  ®T1:  Double  precision  gravity  vector  at  the  LM,  scaled  B8  in 
units  of  meters  per  centisecond  and  expressed  in  the  Platform 
coordinate  system. 

HBEAMNB:  Double  precision  unit  vector  in  the  direction  of  the  Landing 
Radar  measurement  of  altitude,  scaled  B1  and  expressed  in  the  Bodj' 
coordinate  system. 

HCALG,  HCAIjCI : Double  precision  calculated  altitude  above  the  landing  site 
radius,  scaled  B24  in  units  of  meters.  HCAIG1  is  for  display  purposes. 

iroOTDISP:  Double  precision  calculated  value  of  altitude  rate,  scaled 
B7  in  units  of  meters  per  centisecond. 

HMEIAS:  Double  precision  Landing  Radar  measurement  of  altitude,  scaled 
B28  in  units  of  Landing  Radar  altitude  bits. 

IMODES33 : See  INTR  section. 

—1  z 

K:1SEC;  Single  precision  constant  stored  as  100  x 2 , scaled  BI4  in 

units  of  centiseconds.  Equation  value:  100. 

K:2J:  Double  precision  constant  stored  as  3.24692010  E-3,  scaled  BO 
and  unitless.  Equation  value:  3 x O.OOIO823067. 

K:20J:  Double  precision  constant  stored  as  3.24692010  E-2,  scaled  BO 
and  unitless.  Equation  value:  Ten  times  K:2J. 

—28 

K:2SECb28:  Double  precision  constant  stored  as  200  x 2 , program 

notation  2SEC(28;,  scaled  B28  in  units  of  centiseconds.  Equation 
value : 200 . 

K;30kft:  Double  precision  constant  stored  as  1.6768072  E7  x 2 

program  notation  "1-30KFT*',  scaled  B24  in  units  of  meters.  Represents 

2^  _ meters  (Kiposmaxdp  plus  one  least  increment  minus  9144  meters). 

Used  to  check  current  altitude  against  9144  meters.  Equation  value: 

9144  (Equivalent  to  30,000  feet). 


K:6KFTdSEC;  Single  precision  constant  stored  as  18.288  x 2”  , scaled 
B7  in  units  of  meters  per  centisecond.  Equation  value:  18.288. 
(Equivalent  to  6000  feet  per  second.) 

K:7.5fps;  Double  precision  constant  stored  as  0.02286  x 2~^ , scaled 
B6  in  units  of  meters  per  centisecond.  Equation  value:  0.02286. 
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K:ALTCONV:  Double  precision  coiistant  stored  as  1.399078846  x 2 
scaled  B4  in  imits  of  Analog-altitude-display  bits  per  meter. 

Equation  value;  1.399078846.  (Equivalent  to  0.714756  meters, 
or  2.345  feet,  per  bit.) 

Kialtlim:  Single  precision  constant  value  of  bit  l6  in  a quantity 
scaled  B14  in  units  of  Analog-altitude-display  bits.  Equation 
value:  32768. 

-5 

K:APSVEK:  Single  precision  constant  stored  as  -3030.  E-2  x 2 , scaled 

B5  in  units  of  meters  per  centisecond.  Equation  value:  -30,30. 

K:ARC01\rV:  Single  precision  constant  stored  as  24402g,  scaled  BIO  in 
units  of  Analog-altitude-rate-display  bits  / meter  per  centisecond.- 
Equation  value:  656. 125.  (Equivalent  to  0.1524  meters  per  second, 
or  0.5  feet  per  second,  per  bit.) 

K:ARC0NV1:  Double  precision  constant  stored  as  656.167979  x 2 

scaled  BIO  in  units  of  Analog-altitude-rate-display  bits  / meter 
per  centisecond.  Equation  value:  656.167979.  (Equivalent  to 
0.152,7  meters  per  second,  or  0.5  feet  per  second,  per  bit.) 

K:ART0A:  Single  precision  constant  stored  as  O.IO66O98  x 2 scaled 
B1  in  units  of  seconds  times  Altitude  bits  / Altitude  rate  bits. 

Equation  value:  O.IO66O98.  (Equivalent  to  0.5  seconds  x 0.5  / 2.345.) 

g 

K:ART0A2:  Single  precision  constant  stored  as  0,0021322  x 2 , scaled 

B-8in  units  of  Altitude  bits  per  centisecond  / Altitude  rate  bits  per 
second.  Equation  value:  0,0021322.  (Equivalent  to  0.01  x 0.5  / 2.345.) 

-5 

K:DPSVEX:  Single  precision  constant  stored  as  - 29. 55888b8  x 2 , scaled 

scaled  B5  in  units  of  meters  per  centisecond.  Equation  value: 

- 29.5588868 

K:HBEAMANT:  Double  precision  vector  constant  stored  as  ( - O.4687OISO4I , 

0,  -0. 1741224271 ),  scaled  B1  and  unitless.  Equation  value: 

(- 0.9374036082,  0,  -0. 3482448542  ) . (Altitude  beam  direction 

expressed  in  the  LR  coordinate  system, ) 

K:HSCAL:  Double  precision  constant  stored  as  -0.3288792,  scaled  BO 

in  units  of  meters  per  bit.  Equation  value:  -0.3288792.  (Equivalent 
to  1.0790  feet  per  bit.) 

K;KP1P:  Single  precision  constant  stored  as  0.0512,  scaled  B-9  in  units 
of  meters  per  centisecond  / centimeters  per  second.  Equation  value: 
0.0001. 

K:KPIP1:  Double  precision  constant  stored  as  0.0128,  scaled  B-7  in  units 
of  meters  per  centisecond  / centimeters  per  second.  Equation  value: 
0.0001. 

K:KPIPlb5:  Double  precision  constant  stored  as  0.0512,  scaled  B-9  in 
units  of  meters  per  centisecond  / centimeters  per  second.  Equation 
value : 0 . 0001 . 
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K:KPIP2:  Double  precision  constant  stored  as  0,0064,  scaled  B-6  in 
units  of  meters  per  centisecond  / centimeters  per  second.  Equation 
value : 0 . 0001 , 

KrMAXVBITS;  Single  precision  constant  stored  as  00547g}  scaled  B14  in 
forward/lateral  velocity  display  lanits.  Equation  valiie:  359- 
(Equivalent  to  6l.0  meters  per  second  or  200.0  feet  per  second.) 

K;mMlIDTQ:  Double  precision  constant  stored  as  -7.9720645  E12  x 2 

scaled  B44  in  mits  of  meters  cubed  per  centisecond.  Equation  value: 
-7.9720645  E12.  (Equivalent  to  -200  cs  x 0.3986032  Ell  m3/cs2.) 

K:mMUD']^:  Double  precision  constant  stored  as  -9.8055560  ElO  x 2 , 

scaled  B44  in  units  of  meters  cubed  per  centisecond.  (Also  caU-ed 
-MUDTMUN  with  a scale  .factor  of  B38.)  Equation  value:  -9.8055560  ElO. 
(Equivalent  to  -200  cs  x 0.4902778  E9  meters  cubed  per  centisecond 
squared . ) 

K:PRI031:  Single  precision  constant  stored  as  31000g,  scaled  B8  in 
units  of  centiseconds.  Equation  value:  200. 

K:RESQ:  Double  precision  constant  stored  as  40.6B09913  E12  x 2 

scaled  B58  in  units  of  meters  squared.  Equation  value:  6,378,165 
squared . 

K:UNITX,  K: UNITY,  K: UNITE:  Three  doub.le  precision  vector  constants 
stored  as  (0.5^  0,  0),  (0,  0.5,  O)  and  (0,  0,  0.5),  scaled  B1  and 
unitless.  Equation  values:  (1,  0,  0),  (0,  1,  0)  and  (0,  0,  1). 

K:VELC0NV:  Single  precision  constant  stored  as  223l6g,  scaled  BIO  in 
forward/lateral  velocity  display  imits  / meter  per  centisecond. 

Equation  value:  588.875.  (Equi.valent  to  O.1698  meters  per  aecond, 
or  0.5571  feet  per  second,  per  bit.) 

K:VSCALg:  Double  precision  constant  stored  as  0.5410829105,  program 
notation  VZSCAL,  scaled  B-10  in  units  of  meters  per  centisecond 
per  bit.  Equation  value:  O.OO2642OO6  / 5.  (Equivalent  to 
0.8668  fps  per  bit;  the  "5"  averages  the  sum  of  five  samples.) 

K:VSCALp:  Double  precision  constant  stored  as  0.7565672446,  program 
notation  VYSCAL,  scaled  B-10  in  units  of  meters  per  centisecond 
per  bit.  Equation  value:  O.OO3694176  / 5.  (Equivalent  to 
1.212  fps  per  bit;  the  "5"  averages  the  sum  of  five  samples.) 

K:VSCAL,  : Double  precision  constant  stored  as  -0.4020043770,  program 
notation  VXSCAL,  scaled  B-10  in  units  of  meters  per  centisecond 
per  bit.  Equation  value:  -0.001962912  / 5.  (Equivalent  to 
- 0.644  fps  per  bit;  the  "5"  averages  the  s'um  of  five  samples.) 

LADQSAVE:  Single  precision  octal  return  address  storage. 

LANDMAG:  see  DESC  section. 
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LATVEL:  Single  precision  lateral  velocity  component  (Body  coordinates; 
positive  to  the  right  -when  looking  forward)  of  the  LM  relative  to 
the  rotating  moon,  scaled  814  in  forward/lateral  velocity  units. 

LATVMETR:  Single  precision  storage  for  the  total  value  of  velocity 
displayed  on  the  lateral  velocity  meter,  scaled  B14  in  forward/ 
lateral  velocity  display  units. 

LRALPHAj^,  LRALPHA^:  Single  precision  angle  from  the  Z spacecraft  axis 
to  the  Z LR  coordinate  axis  measured  in  a right  hand  rotation  around 
the  -X  spacecraft  axis,  for  LR  positions  1 and  2 respectively,  scaled 
B-1  in  vmits  of  revolutions  and  stored  in  twos  complement  form. 

LRBETA.  , LRBETA2:  Single  precision  angle  from  the  +X  spacecraft  axis 
to  the  ~}X  LR  coordinate  axis  measured  in  a right  hand  rotation  around 
the  -Z  LR  coordinate  axis,  for  LR  positions  1 and  2 respectively, 
scaled  B-1  in  units  of  revolutions  and  stored  in  twos  complement  form. 

IRCDU,  UICDUDL:  Single  precision  vector  storage  for  the  value  of  the  three 
ICDU  angles  at  the  estimated  midpoint  of  an  LR  velocity  reading,  scaled 
B-1  in  units  of  revolutions  and  stored  in  twos  complement  form. 

UlCDUDL  is  for  downlink  piarposes. 

LRHKAXi  Single  precision  maximum  limit  for  altitude  calculations 
that  are  allowed  to  be  updated  by  the  Landing  Radar  measurement, 
scaled  B14  in  units  of  meters. 

LRLCTR:  Single  precision  coiuit  of  the  nxairiber  of  comparisons  made 
between  HMEAS  and  HCALC,  scaled  BI4  and  imitless. 

LRMCTR;  Single  precision  count  of  the  nijmber  of  comparisons  made 
between  measured  velocity  and  calculated  velocity,  scaled  BI4  and 
unitless . 

LRRCTR:  Single  precision  counter  used  in  conjunction  with  LRLCTR  to 
determine  if  at  least  four  good  comparisons  between  HMEAS  and 
HCALC  have  been  made  since  the  last  imreasonable  one,  scaled  BI4 
and  unitless. 

LRSCTR:  Single  precision  counter  used  in  conjunction  with  LRMCTR  to 

determine  if  at  least  four  good  comparisons  between  measured  velocity 
and  calculated  velocity  have  been  made  since  the  last  unreasonable 
one,  scaled  B14  and  unitless. 

LRVE:  Single  precision  erasable  memory  constant  representing  the  velocity 

at  which  the  velocity  update  coefficients  are  changed,  scaled  B7  in 
units  of  meters  per  centisecond. 

LRVMAX:  Single  precision  maximum  limit  for  velocity  calculations  that 
are  allowed  to  be  updated  by  the  LR  measurement,  scaled  B7  in  units 
of  meters  per  centisecond. 

LRVTIME,  LRVTIMDL:  Double  precision  time  at  the  estimated  midpoint  of 
the  LR  velocity  sample,  scaled  B28  in  units  of  centiseconds . LRVTIMDL 
is  for  downlink  purposes. 

LRWH : Single  precision  weighting  factor  for  the  incorporation  of  LR  altitude 
measurements  into  the  LM  state  vector,  scaled  BO  and  imltless. 


SERV  - 25 


LRWV.  (i  = 0,1,2):  Single  precision  weighting  factors  for  LR  Z,  Y and  X 
axis  velocity  updates,  scaled  BO  and  unitless. 

LRWVF.  (i  = 0,1,2):  Single  precision  weighting  factors  for  LR  Z,  Y and 
X axis  velocity  updates,  scaled  BO  and  unitless. 

LRWWF:  Single  precision  weighting  factor  for  LR  velocity  updates  for 
P65,  P66  and  P67,  scaled  BO  and  unitless. 

M22,  M32:  See  DAPA  section. 

MASS,  MASSl:  Double  precision  mass  of  the  vehicle,  scaled  Bl6  in  units 
of  kilograms.  Loaded  by  the  astronaut  (routine  03)  and  updated 
during  average-g  navigation, 

MKTIME:  Double  precision  time  of  PIPA  readings  which  are  associated 
with  the  Landing  Radar  altitude  measurement  for  downlink  purposes, 
scaled  B28  in  lanits  of  centiseconds . 

MODREG:  See  DATA  section. 

[nBSMMAT^  : See  COOR  section. 


PGUIDE:  Double  precision  length  of  the  navigation-guidance  period, 
scaled  B28  in  units  of  centiseconds. 

PIPA:  Single  precision  sensed-change-in-velocity  vector,  scaled  BIA  in 

■units  of  centimeters  per  second  and  ex^^ressed  in  the  Platform  coordinate 
system.  The  three  components  are  incremented  directly  from  the 
Pulse-Integrating,  Pendulous  Accelerometers  on  the  stable  member  of 
the  Inertial  Measurement  Unit . 

PIPATMP:  Single  precision  vector  storage  for  the  cijrrent  PIPA  reading 
for  use  by  the  analog  display  routines,  reset  to  zero  after  the 
current  reading  is  incorporated  into  the  navigation  state  vector; 
scaled  B14  in  units  of  centimeters  per  second  and  expressed  in  the 
Platform  coordinate  system. 

PIPCTR:  Single  precision  counter  scaled  B14  and  unitless;  used  to 
determine  time  elapsed  from  the  beginning  of  the  navigation  cycle 
in  "R10,R11"  and  routine  29. 

PIPCTR1 : Single  precision  temporary  storage  for  PIPCTR. 

PIPTEM:  Single  precision  vector  storage  for  the  sensed  change  in 
velocity  between  the  beginning  of  the  navigation  cycle  and  the 
mean  time  of  the  LR  velocity  sample,  scaled  B14  in  units  of  centi- 
meters per  second  and  expressed  in  -the  Platform  coordinate  system. 

PIPTEME:  Double  precision  time  of  the  most  recent  PIPA  read  cycle, 
scaled  B28  in  units  of  centiseconds;  time  at  which  the  average-g 
state  vector  is  valid. 

PIPTIMEl : Temporary  storage  for  PIPTIME  to  avoid  changing  the  down- 
link state  vector  until  it  is  updated  homogeneously. 
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R:  see  DESC  section. 


R1S;  Temporary  storage  for  R to  avoid  changing  the  state  vector  on  the 
downlink  until  it  is  updated  homogeneously,  scaled  B24  in  units  of 
meters  and  expressed  in  the  Platform  coordinate  system. 

RADGOOD,  RADMODES:  See  RADR  section. 

RADSKAL;  Double  precision  erasable  memory  quantity  representing  the  LR 
scale  information  for  high  scale  radar  output,  scaled  B21  in  units  of 
low-scale  altitude  bits  per  meter  per  centisecond;  part  of  erasable  load. 

RCSM:  Double  precision  position  vector  of  the  GSM  measured  from  the 
center  of  the  earth  or  moon,  program  notations  R-OTHER  and  R(GSM), 
scaled  B29  or  B24  (descent  guidance)  in  units  of  meters  and 
expressed  in  the  Reference  or  the  Platform  (descent)  coordinate 
system. 

[^^FSMMA^  : see  GOOR  section. 

RMAGSQ:  Double  precision  square  of  the  magnitude  of  the  position 
vector,  scaled  B58  (GALGGRAV)  or  B48  (liUNGRAV)  in  units  of 
meters  squared. 

Double  precision  vector  position  of  the  LM  measured  from  the 
center  of  the  earth  or  moon,  scaled  B29  in  units  of  meters  and 
expressed  in  the  Reference  coordinate  system. 

: Temporary  storage  for  RN  to  avoid  changing  the  state  vector  on 
the  downlink  \intil  it  is  updated  homogeneously. 

RPGRTQSW:  Double  precision  required  X component  of  the  X-body  axis 
in  Platform  coordinates  at  the  time  of  LR  reposition  to  position 
2,  scaled  B1  and  unitlessj  part  of  the  erasable  load. 

RPGRTIME:  Single  precision  value  of  TTF  at  which  the  LR  may  be 
repositioned  to  position  2,  scaled  B17  in  units  of  centisecondsj 
part  of  the  erasable  load. 

RTX1 , RTX2;  See  TRGL  section. 

RUNIT:  Single  precision  unit  vector  along  the  position  vector  of  the 
LM  with  respect  to  the  center  of  the  moon,  scaled  B1 , unitless,  and 
expressed  in  the  Platform  coordinate  system. 

SAMPLSUM:  See  RADR  section. 

SINIGA,  SINMGA,  SINOGA:  See  GOOR  section. 

SKAIjSKAL:  Single  precision  erasable  memory  factor  by  which  the  correction 
to  the  LR  data  is  reduced  if  the  LR  is  on  low  range  scale,  scaled  BO 
and  unitless;  part  of  the  erasable  load. 

QSMNBMA'^  : see  GOOR  section. 

STILBADH,  STILBADV:  Single  precision  co\anters,  scaled  BI4  and  unitless. 

TOM:  Single  precision  storage  for  -PIPA,  scaled  BI4  in  units  of 

centimeters  per  second.  TOM  is  used  in  the  R.O.D.  computations  of 
the  DESG  section. 


SERV  - 27 


TIME5;  see  DAPA  section. 

TIMENOW;  see  EXVB  section. 

TRAKFWDV:  Single  precision  flag  set  to  1 , 0 or  - 1 to  indicate 
whether  the  previously  computed  value  of  FORVEL  exceeded 
K:MAXVBITS  or  not,  scaled  B14  and  unitless. 

IRAKLATV:  Single  precision  flag  set  to  1 , 0 or  - 1 to  indicate 
whether  the  previously  computed  value  of  LATVEL  exceeded 
K:MAXVBITS  or  not,  scaled  B14  and  unitless. 

TTF;  see  DF,SC  section. 

UHYP;  Double  precision  unit  vector  normal  to  the  GSM  orbital  plane, 
scaled  B1  and  unitless. 

UHZP;  Double  precision  unit  local  vertical  vector  in  the  forward 
direction,  scaled  B1  and  unitless. 

UNITGOBL:  See  BURN  section. 

UNITE:  Double  precision  unit  vector  along  the  vector  from  the  center  of 
the  moon  or  the  earth  to  the  LM,  program  notation  UNIT/r/,  scaled  Bl, 
unitless  and  expressed  in  the  Platform  or  Reference  coordinate  system. 

V:  See  DESC  section. 

VIS:  Temporary  storage  for  V to  avoid  changing  state  vector  on  the  down- 
link until  it  is  updated  homogeneously,  scaled  B?  in  units  of  meters 
per  centisecond  and  expressed  in  the  Platform  coordinate  systeM. 

VBEAM:  Double  precision  unit  vector  along  one  of  the  three  Landing  Radar 
velocity  measurement  directions,  scaled  B1  and  expressed  in  Platform 
coordinates  at  LRVTIME. 

VCSM:  Double  precision  inertial  velocity  vector  of  the  GSM,  program 
notations  V-OTHER  and  V(GSM),  scaled  B?  in  units  of  meters  per 
centisecond  and  expressed  in  the  Reference  or  the  Platform  (for 
Descent)  coordinate  system. 

VEST:  Double  precision  projection  of  calculated  velocity  onto  the  par- 
ticular LR  velocity  component  direction  being  processed,  scaled  B6 
in  units  of  meters  per  centisecond. 

VHY,  VHZ:  Single  precision  lateral  and  forward  components  of  velocity 
relative  to  the  rotating  moon  expressed  in  the  Platform  coordinate 
system  (lateral  velocity  positive  to  the  right  when  looking  forward); 
scaled  B5  in  units  of  meters  per  centisecond. 

VMEAS:  Double  precision  velocity  measurement  from  the  LR  sampling, 
scaled  B28  in  units  of  Landing  Radar  velocity  bits. 
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VN:  Double  precision  inertial  velocity  vector  of  the  LM,  scaled  B7 
in  units  of  meters  per  centisecond  and  expressed  in  the  Reference 
coordinate  system, 

VN1 : Temporary  storage  for  TO  to  avoid  changing  the  state  vector  on 
the  downlink  until  it  is  updated  homogeneously. 

VSELECT;  Single  precision  index  used  to  distinguish  among  the  Z (O), 

I (1)  and  X (2)  axes  of  the  Landing  Radar  coordinate  system, 
scaled  BI4  and  unitless. 

WECT;  Single  precision  velocity  vector  used  in  the  calculation  of 
forward,  lateral  and  vertical  velocity  components  of  the  analog 
display,  scaled  B5  in  units  of  meters  per  centisecond  and  expressed 
in  the  Platform  coordinate  system. 

V^XBEAMNB,  TOBEAMNB,  VZBEAMNB:  Double  precision  unit  vectors  along  the 
X,  I and  Z Landing  Radar  velocity  measurement  directions  (orthogonal), 
scaled  B1  and  expressed  in  the  Body  coordinate  system. 

WI:  see  DESC  section. 

TOBPIP,  YNBPIP,  ZNBPIP;  Double  precision  unit  vectors  along  the  X, 

Y and  Z spacecraft  axes,  scaled  B1  and  expressed  in  the  Platform 
coordinate  system  at  PIPTIME. 

I^XNBPI^  : Double  precision  matrix  with  the  first  row  equal  to  the 
components  of  TOBPIP,  the  second  row  equal  to  the  components  of 
YNBPIP,  and  the  third  row  equal  to  the  components  of  ZNBPIP, 
scaled  B1  and  unitless. 
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Up  and  Down  Telemetry 


UPRUPT 


UPTMFAST 


DNTMFAST 


DODOWNTM 


SAMPTIME  = TIMENOW  (for  noiin  65) 

TS  = INLINK 
INLINK  = OOOOOg 

Switch  bit  3 of  channel  11  to  1 (uplink  activity  lamp) 

TS  should  be  of  the  form  xxxxx  kkkkk  xxxxx2  where  five  x's 
represent  the  five  bit  keycode  and  five  k’s  represent  the 
complement  of  that  keycode.  If  TS  is  not  of  this  form: 

Switch  FLAGWRD7  bit  4 (UPLOCKFL)  to  1 

Resume 

TScode  = low  5 bits  of  TS 

If  TScode  = 22g:  (error  reset) 

Switch  FLAGWRD7  bit  4 (UPLOCKFL)  to  0 
If  TScode  i-  22g: 

If  FLAGWRD7  bit  4 (UPLOCKFL)  = 1,  resimie 
Establish  "CHARIN" 

Set  MPACq  of  "CHARIN"  job  = TScode 
Resume 

If  bit  11  of  IMODES33  = 0: 

Perform  "ALARM"  with  TS  = 01106g 
Retiim 

If  bit  12  of  IM0DES33  = 0: 

Perform  "ALARM"  with  TS  = 01105g 
Ret-urn 

If  bit  7 of  channel  13  = 1:  (word  order  code) 

Proceed  to  address  specified  in  DNTMGOTO 

Perform  "C13STALL" 

Set  bit  7 of  channel  13  to  1 
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Proceed  to  address  specified  in  DNTMGOTO 


DNPHASEl 


DNPHASE2 


DODNCHAN 


S®LIST  = -1 
DNECADR  = -1 


DNTMGOTO  = "DNPHASE2" 
CTLIST  = K:DNTABLE. 


DNLSTCOD 


Perforin  ''WOZERO" 


Channel  34  = -DNLSTCOD 
Channel  35  - K-.LOWIDCOD 
Resume 

If  DNECADR  and  SUBLIST  are  both  <0;  (control  list) 
If  CTLIST  < 0: 

Go  to  4th  line  of  "DNPHASEl" 


ADR  ^CTLIST 

If  ADR  > 0,  CTLIST  = CTLIST  + 1 
If  ADR  <;  0:  (end  of  list) 


CTLIST  = -CTLIST 
ADR  = -ADR 


DNECADR  = ADR 


If  DNECADR  — K:timeadr,  perform  "WOZERO" 
DOWNTYPE  = bits  14-12  of  DNECADR 
If  DOWNTYPE  < 6,  proceed  to  "FETCH2WD" 

If  DOWNTYPE  = 6,  proceed  to  "DODNPTR" 
Pioceed  to  "DODNCHAN" 

If  DNECADR  > 0,  proceed  to  "FETCHZWD" 

Proceed  to  "NEXTINSL" 
i = low  8 bits  of  DNECADR 
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FETCH2WD 


DODNPTR 


NEXTINSL 


j = i + 1 
DNECADR  = -1 
Channel  34  - channel  i 
Channel  35  = channel  j 
Resume 

EBMK  = bits  11-9  of  DNECADR 
TS  = low  8 bits  of  DNECADR 
DOWNTYPE  = DOWNTYPE  - 1 

DNECADR  = 2^^  DOWNTYPE  + 2®  EBANK  + TS  + 2 

(putting  DOWNTYPE  into  bits  14-12,  EBANK  into  bits 
11-9}  making  DNECADR  negative  after  DOWNTYPE  is 
reduced  below  zero ) 


ADRl  = TS  +•  1400g 
ADR2  = TS  + 1401g 
Channel  34  = 
Channel  35  = \dr2 
Resvune 


SUBADR 

If  SUBADR  < 0: 

SUBLIST  = DNECADR 
i = 0 

SUBADR  = |SUBADR|  - OOOOlg 
Proceed  to  "SNAPLOOP" 

SUBLIST  = DNECADR 
SUBADR  = 

If  SUBADR  > 0,  SUBLIST  = SUBLIST  + 1 


(snapshot) 

(address  of  sublist) 
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If  SUBADR  <0,  SUBLIST  = -1 


SNAP LOOP 


DNECADR  = IsUBADr) 

DOWNTYPE  = bits  14-12  of  DNECADR 
If  DOWNTYPE  <6,  proceed  to  "FETCH2WD" 

If  DOWNTYPE  = 6,  proceed  to  "DODNPTR" 
Proceed  to  "DODNCHAN" 

EBANK  = bits  11-9  of  SUBADR 
ADRl  = 1401g  + low  8 bits  of  SUBADR 
ADR2  = 1402g  + low  8 bits  of  SUBADR 
DVTMBUFF^  = E^DRl 
j = i + 1 
DNTMBUFF . = 
i = i + 2 

SUBLIST  = SUBLIST  + 1 
SUBADR  = 

If  SUBADR  > 0:  (continue  snapshot) 

SUBADR  = |SUBADR| - 1 
Proceed  to  "SNAPLOOP" 

SUBLIST  = ISUBADRI  - 1 
DNECADR  = -1 
SUBADR  = SUBLIST 
SUBLIST  = -1 

EBANK  = bits  11-9  of  SUBADR 

ADRl  = l401g  + low  8 bits  of  SUBADR 

ADR2  = 1402g  + low  8 bits  of  SUBADR 


(1401  and  1402  to 
compensate  for  the 
5th  step  of  "DODNPTR") 


Channel  34  = E 


ADRl 
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DNDUMPI 


DNDIMPI3 


DNDUMPI 


DNDUMP 


DNDIMP2 


Channel  35  - 
Resume 

DUMPLOC  = OOOOOg 
DNTMGOTO  = "DNDUMPI3" 

Perform  "WOZERO” 

Channel  34  = KiERASID 
Channel  35  = K:LOWIDCOD 
Resume 

DNTMGOTO  = "DNDUMPI" 

Channel  34  ~ DUMPLOC 

Channel  35  least  significant  half  of  TIMENOW 
Resume 

DNTMGOTO  = "DNDUMP" 

Proceed  to  "DNDUMP2" 

DUMPLOC  = DUMPLOC  + 2 

TS  = low  8 bits  of  DUMPLOC 

If  TS  >0,  proceed  to  "DNDUMP2" 

(otherwise,  TS  = 0 and  dimup  is  changing  banks) 
If  bit  13  of  DUMPLOC  = 0: 

Proceed  to  second  line  of  "DNDUMPI" 
Proceed  to  "DNPHASEl" 

EBMK  = bits  11-9  of  DUMPLOC 
TS  = low  8 bits  of  DUMPLOC 
ADR2  = 1401g  + TS 
ADRl  = 1400g  + TS 


TELE  - 5 


Channel  34  - 
Channel  35  = 

Resume 

SyPWNl  R-OTHER  = RCV  + TDELTAV 
V-OTHER  = VCV  + TNUV 

Return 

S TOWN 2 If  FLAGWRD9  bit  1 (AVEMIDSW)  =0: 

P = RCV  + TOELTAV 
VN  = VCV  + rauv 
PIPTIME  = TET 
Return 

WOZERO  Perform  "C13STALL" 

awitch  hii  7 of  channel  13  to  0 (word  order  code) 

Return 
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Quantities  in  Computations 


ADR:  Single  precision  temporary  storage  for  the  address  taken  from 
the  control  list.  If  it  is  negative  this  indicates  the  end  of 
a downlist. 

ADRl,  ADR2:  Single  precision  addresses  (without  EBANK  information) 
of  the  two  consecutive  registers  to  be  transmitted  on  the  downlink. 

CTLIST:  Single  precision  address  of  the  next  entry  in  the  downlink 
control  list.  When  the  final  downlist  quantity  is  read,  CTLIST  is 
complemented  to  cause  downlist  to  be  started  again. 

DNECADR:  Single  precision  octal  address  of  the  first  of  two  con- 
secutive registers  to  be  transmitted  on  the  downlink  (in  bits  8-1). 
Bits  14-12  contain  a code  indicating  the  type  of  sample  to  be  taken 
(see  DOWNTYPE,  DOWNCNT) . Bit  15  is  set  (DNECADR  made  negative)  to 
indicate  that  control  is  to  be  returned  to  the  control  list. 

DNLSTCOD:  Single  precision  index  (range  0-5)  indicating  which  of  the 
downlists  is  to  be  telemetered,  scaled  B14  and  unitless.  Loaded 
by  various  programs  to  select  the  proper  downlist.  See  KrDNTABLE. 

DNTMBIIFF:  A series  of  single  precision  buffer  cells  used  to  store  a 
simultaneous  "snapshot"  of  a series  of  E^nemory  cells  all  sampled 
between  two  downlink  interrupts,  thereby  making  the  data  time 
homogeneous . 

DNTMGOTO:  Single  precision  octal  address  controlling  the  phase  of 
operation  of  the  downlink  program. 


DOWNTYPE:  Variable  describing  bits  14-12  of  DNECADR  in  the  normal 
downlink  mode.  If  DOWNTYPE  = 7,  the  address  in  DNECADR  is  inter- 
preted as  that  of  a channel.  If  DOWNTYPE  is  less  than  6,  the 
address  in  DNECADR  is  interpreted  as  that  of  a series  of  N con- 
secutive registers  (N  = 2 DOWNTYPE) . If  DOWNTYPE  = 6,  the  address 
in  DNECADR  IS  interpreted  as  that  of  a sub-list  and  control  is 

transferred  to  the  sub-list  decoder  ("DODNPTR"). 


DUMPLOC:  Single  precision  E-memory  register  which  contains  the  counter 
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and  EGADR  for  each  dump-word  being  sent.  Bits  8-1  provide  the 
relative  address  within  the  EBANK;  bits  11-9  define  the  EBANK 
(propagated  from  bit  8);  bits  13-12  serve  as  a counter  of  the 
number  of  complete  dumps  which  have  occxirred.  When  bit  13  be- 
comes 1 then  memory  has  been  dumped  twice  and  the  dumping  stops. 

^ADR*  Single  precision  E-memory  register  whose  address  is  in  ADR. 

EBANK:  See  MATX  section. 

IMODES33:  See  INTR  section. 

INLINK:  Single  precision  serial  input  register  for  receipt  of  uplink 
data.  When  the  required  fifteen  bits  of  data  are  received  from 
the  uplink  decoder,  program  interrupt  #7  is  generated. 

K:DNTABLEj^  (i  = 0-5);  Table  of  six  octal  starting  addresses  of  the 
downlink  lists. 

i List  address 

0 "LMCSTADL" 

1 "LMAGSIDL" 

2 "LNEENDDL" 

3 "LMORBMDL" 

4 "LMDSASDL" 

5 "LMLSALDL" 

K:ERASID:  Single  precision  octal  constant  stored  as  01776^.  Used  as 
E-memory  octal  diamp  downllst  I.D.  word,  loaded  in  downlink  word  la. 

K:L0WIDC0D:  Single  precision  octal  constant  stored  as  77340g.  Loaded 
into  downlist  word  lb  of  each  of  the  six  downlink  lists.  “Sometimes 
referred  to  as  the  "sync”  bits. 

K:timeadr;  Single  precision  constant  stored  as  77753*,  program 
notation  MINTIME2.  Equation  value:  00024g,  address  of  TIMENOW. 

MPACq:  See  DSKI  section. 

R-OTHER,  V-OTHER:  Double  precision  navigation  state  vectors  of  the  GSM, 
scaled  B29  and  B7  respectively  in  units  of  meters  and  meter s/centi- 
second.  See  RGSM,  VGSM  in  SERV  section. 

RGV,  VGV:  See  GONG , section. 

M:  See  SERV  section. 

PIPTIME:  See  SERV  section. 

SAMPTIME:  See  DSKY  section. 
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SUBADR:  Single  precision  address  code  word  like  DNECADR  but  taken 
from  a sub-list. 

SUBLIST:  Single  precision  address  of  the  next  entry  in  a downlink 
sub-list. 

TDELTAV,  TNUV:  See  ORBI  section. 

TET:  See  ORBI  section. 

TIMENOW;  See  EXVB  section. 

VN;  See  SERV  section. 
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General  Downlink  Information 


The  LM  Guidance  Computer  (LGC)  downlink  takes  the  form  of  UO-bit  words 
transmitted  as  a basic  rate  of  50  words/second  (part  of  a telemetry 
stream  at  51.2  kbps).  A "low  bit  rate"  of  one-fifth  of  this  transmission 
rate  also  exists,  although  no  computer  words  are  included  in  low  bit  rate 
data.  Each  40-bit  word  is  divided  into  four  parts; 

a)  The  first  bit  is  the  word  order  code  bit,  set  zero  for  the  first 
word  pair  and  the  fifty-first  word  pair  and  one  for  the  other  98 
pairs  in  the  standard  telemetry  cycle. 

b)  Bits  ^ - jj^YJ  contain  the  first  word  of  the  word  pair  (bit  15 
is  in  bit  #2,  bit  lU  in  bit  #3?  ...  bit  i in  bit  #l6,  and  an  odd 
parity  bit  in  bit  #17).  The  odd  parity  bit  makes  the  total  number 
of  binary  "ones"  in  bits  #2  - #17  an  odd  number. 

c)  Bits  #18  - #33  contain  the  second  word  of  the  word  pair  (bit 
15  is  in  bit  #l8,  bit  l4  in  bit  #19?  ...  bit  1 in  bit  #32,  and  an 
odd  parity  bit  for  bits  #l8  - #33  in  bit  #33). 

d)  Bits  #34  - #40  are  the  same  as  bits  #2  - #8  (bits  15-9  of  first 
word  of  the  word  pair),  so  that  the  total  number  of  bits  in  the 
digital  downlink  from  the  computer  is  a multiple  of  8 bits  (i.e., 

5 X 8 = 40). 

The  computer  hardware  monitors  the  period  of  the  telemetry  interrupts 
received  from  the  telemetry  system,  and  rejects  the  interrupt  (takes  no 
action)  if  the  interrupts  occur  too  rapidly.  The  mechanization  requires 
a computer  100  pps  pulse  to  occur  between  each  accepted  telemetry  inter- 
rupt (which,  under  normal  conditions,  only  occur  once  eveiy  20  ms,  or 
at  a 50  pps  rate).  A channel  bit  (channel  33  bit  12)  is  set  to  a binary 
zero  if  an  interrupt  is  rejected,  and  an  alarm  pattern  (ll05g)  is  also 
produced. 

The  convention  is  established  in  the  program  that  "bit  15"  is  the  sign 
bit  (a  binary  one  if  quantity  negative)  and  "bit  1"  is  the  least  sig- 
nificant magnitude  bit.  Using  "a"  for  the  first  word  of  a pair  and  "b" 
for  the  second  word,  the  bit  stream  would  appear  as  follows: 

woe  15a  l4a  13a  12a  11a  10a  9a  8a  7a  6a  5a  4a  3a  2a  la  Parity 

s, 

15b  l4b  13b  12b  11b  10b  9b  8b  7b  6b  5b  4b  3b  2b  lb  Parity^ 

15a  l4a  13a  12a  11a  10a  9a 

(woe  is  the  "word  order  code",  discussed  in  item  (a)  above.) 
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Most  telemetered  words  have  negative  numbers  expressed  in  ones  complement 
form,  and  in  general  the  signs  of  the  most  significant  and  least  signif- 
icant portions  will  not  agree,  since  the  individual  portions  of  a multiple 
precision  quantity  are  considered  generally  as  separate  "words"  in  the 
computer  arithmetic  unit.  Several  words  in  the  downlist  are  used  as  control 
quantities  in  the  program  and  have  explicit  meanings  assigned  to  their 
individual  bits.  These  words  have  their  sign  bits  set  separately  from 
the  rest  of  the  work,  and  hence  are  not  subject  to  the  same  conversion 
process  as  other  "negative"  quantities. 


Scaling,  units,  and  definition  references  for  each  parameter  are 
contained  in  the  tables. 


The  downlink  program  has  the  capability  to  sample  a selected  set  of 
erasable  locations  essentially  at  the  same  time  with  the  contents  of  these 
locations  stored  in  a set  of  unshared  erasable  to  be  downlinked  when 
individual  telemetry  interrupts  are  received.  By  this  means  a time-homo- 
geneous set  of  dovmlink  information  can  be  obtained  provided  the  program 
loading  the  cells  involved  observes  proper  restrictions.  These  selected 
buffered  areas  are  commonly  called  "snapshots".  The  LUMINAEY  downlists 
have  the  following  snapshots : 


Coast  and  Align  List 

Words 

2-8, 

52-58 

AGS  Initialization  and  Update  List 

Words 

52-58 

Rendezvous  and  Prethrust  List 

Words 

2-8, 

9-13, 

52-58 

Orbital  Maneuvers  List 

Words 

2-8, 

52-58 

Descent  and  Ascent  List 

Words 

2-13, 

52-58 

Lunar  Surface  Align  List 

Words 

2-8, 

00 

1 — 1 

1 

ON 

52-58 
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Downlink  Sequences 


There  are  six  different  100-word  lists  which  can  be  sent  by  the  program 
during  the  flight  (plus  the  special  erasable  memory  dump).  For  conven- 
ience, these  lists  have  been  assigned  serial  numbers,  #0  through  #5  (listed 
in  order  of  increasing  identification  words).  During  a given  program,  a 
certain  list  is  transmitted  as  defined  below: 

List  #0  The  Coast  and  Align  List  is  transmitted  during: 

POO  LOG  Idling 

P51  IMU  Orientation  Determination 
P52  IMU  Realignment 
P06  LG-C  Power  Down 

List  t(^1  The  AGS  Initialization  and  Update  List  is  transmitted 
during : 

P27  LGC  Update 

r47  AGS  Initialization 

List  #2  The  Rendezvous  and  Prethrust  List  is  transmitted  during: 

P20  Rendezvous  Navigation 

P21  Ground  Track  Determination 

P25  Preferred  Tracking  Attitude 

P30  External  Delta  V Maneuver  Guidance 

P32  Coelliptic  Sequence  Initiation  (CSl) 

P33  Constant  Differential  Altitude  (CDH) 

P3^  Transfer  Phase  Initiation  (TPl) 

P35  Transfer  Phase  Midcourse  (TPM) 

P72  CSM  CSI  Targeting 
P73  CSM  CDH  Targeting 
P7^  CSM  TPI  Targeting 
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P75 

GSM  TPM  Targeting 

P76 

Target  DELTA  V 

List  #3 

The 

Orbital  Maneuvers  List  is  transmitted  during: 

P40 

DPS  Thrust 

p4i 

PCS  Thrust 

P42 

APS  Thrust 

p47 

Thrust  Monitor 

Li st  #4 

The 

Descent  and  Ascent  List  is  transmitted  during: 

P12 

Powered  Ascent  Guidance 

P63 

Braking  Phase  Guidance 

p64 

Approach  Phase  Guidance 

p63 

Automatic  Landing  Phase 

p66 

Rate  of  Descent  (ROD)  Landing  Phase  Guidance 

p67 

Manual  Landing  Phase  Guidance 

p68 

Confirm  Lunar  Landing 

P70 

DPS  Abort  Guidance 

P71 

APS  Abort  Guidance 

List  #5 

The 

Lunar  Surface  Align  List  is  transmitted  during: 

P22 

RR  Lunar  Surface  Navigation 

P57 

Lunar  Surface  Alignment 

Several  cells  are  identified  as  "Spare":  by  program  assembly 
technique,  the  word  on  the  downlink  has  the  first  half  as  OOOOOg  and 
the  second  half  as  a quantity  of  negligible  usefulness  for  post -flight 

processing  (the  c.ontents  of  the  computer  accumulator  register,  cell  0000, 
when  the  telemetry  interrupt  was  recognized). 

Words  marked  with  an  asterisk  in  the  list  were  transmitted  as  a 
result  of  a double  precision  pickup  in  the  downlink  program  and  have 
no  known  importance. 
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COAST  and  IMU  ALIGNMENT  LIST 


U 

15 

16 


17 

18 


19 

20 
21 
22 


23 


EIRST  REGISTER 
LIST  ID  (777778) 
R-OTHERq  (X  comp.) 
R-OTHERg  (Y  comp.) 
R-OTHERq  (Z  comp.) 
V-OTHERq  (X  comp.) 
V-OTHER2  (Y  comp.) 
V-OTHERq  (Z  comp.) 
TETCSM  (T-OTHER) 
AGSK  (K-F ACTOR) 
TALIGN 

DOWNTORK2  (POSTORKU) 
DOWNTORK^  (POSTORKV) 
DNRADATAj  (DNRRANGE) 
TEVENT 

REFSMMATo  (RiCi) 
REFSMMAT2  (R1C2) 
REFSMMAT^  (Rt_C3) 
REFSMMAT^  (R2C1) 
REFSMMATg  (R2C2) 
REFSMMATio  (R2C3) 

AOTCODE 
RLSq  (X-comp) 

RLS2  (Y-comp) 

RLS^  (Z-comp) 


SECOND  REGISTER 
SYNC  PATTERN  (773403) 
R-OTHER]^  (X  comp.) 
R-OTHER3  (Y  comp.) 
R-OTHERq  (Z  comp.) 
V-OTHERi  (X  comp.) 
V-OTHER3  (Y  comp.) 
V-OTHER5  (Z  comp.) 

, TETCSM  (T-OTHER) 

AGSK  (K-F ACTOR) 
TALIGN 

DOWNTORK3  (NEGTORKU) 
DOWNTORK5  (NEOTORKV) 
DNRADATA2  (DNRRDOT) 
TEVENT 

REFSMMATi  (R^Ci) 
REFSMMAT3  (R1C2) 
REF^^MATj  (R1C3) 
REFSMMATy  (R2C1) 
REFSMMATg  (R2C2) 
REFSM'lATii  (R2C3) 

* SINCDU 
RLS^  (X-comp) 

RLS3  (Y  -comp) 

RLS3  (Z  -comp) 


24 
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WORD  # 

FIRST  REGISTER 

SECOND  REGISTER 

ERASABLE  ADDRESS 

25 

DNRADATA^  (DNLRVELX) 

DNRADATA5  (DNLRVELY) 

1333,  1334 

26 

DNRADATA^  (DNLRVELZ) 

DNRADATAy  (DNLRALT) 

1335,  1336 

27 

VGPREVo  (VGTIG-X  comp) 

VGPREV]_  (VGTIG-X  comp) 

j 

28 

VGPREV2  (VGTIG-Y  comp) 

VGPREV3  (VGTIG-Y  comp) 

3700  - 3705 

29 

VGPREV^  (VGTIG-Z  comp) 

VGPRE75  (VGTIG-Z  comp) 

I 

30 

REDOCTR 

thetadq  (X- angle) 

0320,  0321 

31 

THETADj  (Y- ANGLE) 

THETAD2  (Z-ANGLE) 

0322,  0323 

32 

R3BBQ 

RSBB0+-1 

1432,  1433 

33 

OMEGAP 

OMEGAQ 

3021,  3022 

34 

OMEGAR 

ALPHAQ 

3023,  3024 

35 

CDUXD 

CDUYD 

3235,  3236 

36 

CDUZD 

*DELCDUX 

3237,  3240 

37 

CDUX 

CDUY 

0032,  0033 

38 

CDUZ 

CDUT 

0034,  0035 

39 

FLAGWRDO 

FLAGWRDl  ^ 

40 

FLAGWRD2 

FLAGWRD3 

1 

41 

FLAGWRD4 

FLAGWRD5  1 

)>  0074  - 0107 

42 

FLAGWRD6 

FLAGWRD7  ( 

43 

FLAGWRD8 

FLAGWRD9 

\ 

44 

FLGWRDIO 

FLGWRDII 

J 

45 

DSPTABq 

DSPTABq^ 

46 

DSPTAB2 

DSPTAB3  / 

47 

DSPTABq 

DSPTAB5  \ 

y 1022  - 1035 

48 

DSFTAB5 

DSPTABy  j 

( 

49 

DoFTABg 

DSPTABg 

50 

DSPTABio 

DSPTABii  J 
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WORD  # 

FIRST  REGISTER 

SECOND  REGISTER 

ERASABLE  ADDRESS 

51 

TIMENOW  (TIME2) 

TIMENOW  (TIMEl) 

0024-5 

52 

RNq  (X  comp. ) 

RN^  (X  comp. ) j 

53 

RN2  comp. ) 

RN^  ( Y comp . ) 

* 1217  - 1224 

54 

RW^  (Z  comp.) 

RN^  (Z  comp.)  1 

55 

VNq  (X  comp.) 

VN-,  (X  comp.)  ' 

56 

VN^  ( Y comp. ) 

VN^  (Y  comp.)  , j 

1225  - 1232 

57 

VN.  (Z  comp. ) 

4 

VN^  ( Z comp . ) 

53 

PIPTIME 

PIPTIME 

1233-4 

59 

OMEGAPD 

OMEGAQD 

3243,  3244 

60 

OMEGARD 

*ECD[]W 

3245,  3246 

61 

CADRFLSHq 

CADRFLSH3_ 

0372,  0373 

62 

CADRFLSH2 

FAILREGq 

0374,  0375 

63 

FAILREGi 

FAILREG2 

0376,  0377 

64 

R.'UDMODES 

DAPBOOLS 

0110,  0111 

65 

OGC 

OGC 

2737  - 2740 

66 

IGC 

IGC 

2741-2 

67 

MGC 

MGC 

2743-4 

68 

BESTI  (STAR  ID  l) 

BESTJ  (STAR  ID  2) 

2755,  2756 

69 

STARSAVIq  (X  comp.) 

STARSAVli  (X  comp.) 

1 

70 

STARSAVI2  (Y  comp.) 

STARSAVI3  (Y  comp.) 

' 2760  - 2765 

71 

STARSAVIq  (Z  comp.) 

STARSAVI5  (Z  comp.)  , 

72 

STARSAV2o  (X  comp.) 

STARSAV2i  (X  comp.) 

73 

STARSAV22  (Y  comp.) 

STARSAV23  (Y  comp.)  j 

! 2766  - 2773 

l 

74 

3TARSAV2^  (Z  comp.) 

STARSAV25  (Z  comp.)  1 

1 

75 

DNRADATA^  (DNLRVELX) 

DNRADATA3  (DNLR\^ELY) 

1333,  1334 

76 

DNRADATA^,  (DNLRVELZ) 

DNRADATAy  (DNLRALT) 

1335,  1336 
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WORD  # 

FIRST  REGISTER 

SECOND  REGISTER 

ERASABLE  ADDRESS 

77 

CDUS 

FIFA  (X) 

0036,  0037 

78 

FIFA  (Y) 

FIFA  (Z) 

0040,  0041 

79 

LASTTCMD  (LASTYCMD) 

LASTSCMD  (LASTXCMD) 

0112,  0113 

80 

LEMMASS 

CSMMASS 

1326,  1327 

81 

IM0DES30 

IM0DES33 

1277,  1300 

82 

TIG 

TIG 

3441-2 

83 

OMEGAF 

OMEGAQ 

3021,  3022 

84 

OMEGAR 

ALFHAQ 

3023,  3024 

to 

CDUXD 

CDUYD 

3235,  3236 

86 

CDUZD 

*DELCDUX 

3237,  3240 

87 

CDUX 

CDUY 

0032,  0033 

88 

CDJZ 

CDUT 

0034,  0035 

89 

ALFHAQ 

ALFHAR 

3024,  3025 

90 

DOWNTORKo  (FOSTORKF) 

DOWNTORKi  (NEGTORKP) 

3113,  3114 

91 

CHANNELll 

CHANNEL12 

92 

CHAMEL13 

CHANNELI4 

93 

CHANNEL30 

CxHANNEL31 

94 

CHANNEL32 

CHANNELS 3 

95 

DSPTABq 

DSPTAB]^ 

\ 

96 

DSFTAB2 

DSPTAB3 

1 

/ 

97 

DSPTAB^ 

DSPTAB^ 

1 

> 1022  - 1035 

98 

DSFTAB^^ 

DSPTAB,^  j 

f 

99 

DSFTABg 

DSFTABg  i 

100 

DSPTAB^q 

DSFTAB^^^  y 

\ 
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AGS  INITIALIZATION  & UPDATE  LIST 


WORD  # FIRST  REGISTER  SECOND  REGISTER  ERASABLE  ADDRESS 


1 

LIST  ID  (77776g) 

SYNC  PATTERN  (77340g) 

2 

AGSBUFFq  (LM  X POS) 

*AGSBUFF]_  (not  used  by  AGS) 

2200, 

2201 

3 

AGSBUFFg  (LM  Y POS) 

^AGSBUFFg  (not  used  by  AGS) 

2202, 

2203 

4 

AGSBUFFq  (LM  Z POS) 

^ AGSBUFF-  (not  used  by  AGS) 

2204, 

2205 

5 

AGSBUFF-i  p (Vector  time 
MSB) 

^AGSBUFFjg  (not  used  by  AGS) 

2214, 

2215 

6 

AGSBUFFi  (LM  X VEL) 

*AGSBUFF2  (not  used  by  AGS) 

2201, 

2202 

7 

AGSUBFF3  (LM  Y VEL) 

* AGSBUFFq  (not  used  by  AGS) 

2203, 

2204 

8 

AGSBUFF5  (LM  Z VEL) 

* AGSBUFFq,  (not  used  by  AGS) 

2205, 

2206 

9 

AGSBUFF-]  0 (Vector  time 
LSB) 

*V0NE2  (not  used  by  AGS) 

2215, 

2216 

10 

AGSBUFF5  (CSM  X POS) 

^AGSBUFFy  (not  used  by  AGS) 

2206, 

2207 

11 

AGSBUFFg  (CSM  Y POS) 

■’^AGSBUFF^  (not  used  by  AGS) 

2210, 

2211 

12 

AGSBUFF^^O  2;  POS) 

^AGSBUFF-j^2  (not  used  by  AGS) 

2212, 

2213 

13 

AGSBUFF-i  p (Vector  time 
MSB) 

*AGSBUFFjg  (not  used  by  AGS) 

2214, 

2215 

14 

AGSBUFF-  (CSM  X VEL) 

*AGSBUFFg  (not  used  by  AGS) 

2207, 

2210 

15 

AGSBUFF9  (CSM  Y VEL) 

*AGSBUFF-]_o  (not  used  by  AGS) 

2211, 

2212 

16 

AGSBUFF12.  (CSM  Z VEL) 

*AGSBUFF22  (not  used  by  AGS) 

2213, 

2214 

17 

AGSBUFF23  (Vector  time 
LSB) 

*V0NE2  (not  used  by  AGS) 

2215, 

2216 

18 

COMPNUMB 

UPOLDMOD 

1167, 

1170 

19 

UPVERB 

UPCOUNT 

1171, 

1172 
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WORD  # 

FIRST  REGISTER 

SECOND  REGISTER 

ERASABLE 

ADDRESS 

20 

UPBUFFo 

UPBUFFi 

21 

UPBUFF2 

UPBUFF3 

22 

UPBUFF^ 

UPBUFF5 

23 

UPBUFF^ 

LTPBUFF7 

/ 

24 

UPBUFFg 

UPBUFFg 

1 

> 1173  ■ 

- 1216 

25 

UPBUFF^o 

UPBUFF]_jl 

26 

UPBUFF22 

UPBUFF3_3 

' 

27 

UPB'JFF^^ 

UPBUFFg 5 

\ 

28 

UPBUFFi^, 

UPBUFF17 

29 

UPBUFF^g 

UPBUFF19 

/ 

30 

REBOOT R 

TKETADq  (X-angle) 

0320, 

0321 

31 

THETADi  (Y-angle) 

THETAD2  (Z-angle) 

0322, 

0323 

32 

RSBBQ 

RSBBQ+1 

1432, 

1433 

33 

OMEGAP 

OMEGAQ 

3021, 

3022 

34 

OMEiGAR 

ALPHAQ 

3023, 

3024 

35 

CDUXD 

CDUYD 

3235, 

3236 

36 

CDUZD 

^DELCDUX 

3237, 

3240 

37 

CDUX 

CDUY 

0032, 

0033 

38 

CDUZ 

CDUT 

0034, 

0035 

39 

FLAGWRDO 

FLAGWRDl 

40 

FLAGWRD2 

FLAGWRD3 

1 

1 

41 

FLAGWRD4 

FLAGWRD5 

N 0074  - 

- 0107 

42 

FLAGWRD6 

FLAGWRD7 

( 

1 

43 

FLAGWRD8 

FLAGWRD9 

\ 

\ 

; 

44 

FLGWRDIO 

FLGWRDll 
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V/ORD  # 

FIRST  REGISTER 

SECOND  REGISTER 

ERASABLE  ADDRES' 

45 

DSPTABo 

DSPTABj^  ^ 

46 

DSPTAB2 

DSPTAB3 

1 

/ 

47 

DSPTAB^ 

DSPTABg 

/ 1022  - 10  yj 

48 

DSPTAB^ 

DSPTABy 

1 

49 

DSPTABg 

DSPTABg 

i 

1 

50 

DSPTABio 

DSPTABji 

) 

51 

TBIENOW  (TII'1E2) 

TIMENOW  (TIMEl) 

0024-5 

52 

RNq  (X  oomp.  ) 

RN2_  (X  comp.  ) 

53 

RII2  (Y  comp. ) 

RN3  ( Y comp. ) 

1217  - 1224 

54 

RN^  (Z  comp. ) 

RN3  ( Z comp. ) 

55 

VNq  (X  comp.) 

VNg^  (X  comp.) 

56 

VN2  (Y  comp.) 

VN3  (Y  comp.) 

1225  - 1232 

57 

VN^  (Z  comp. ) 

VN3  ( Z comp. ) 

58 

PIPTIMS 

PIPTDffi 

1233-4 

59 

OMEGAPD 

OIIEGAQD 

3243,  3244 

60 

OiMEGAElD 

^ECDUN 

321,5,  321,0 

61 

CADRFLSHy 

CADRFLSH^ 

0372,  0373 

62 

CADRFLSH^ 

FAILREGq 

0374,  0375 

63 

FAILREG^ 

FAILREG^ 

0376,  0377 

64 

RADMODES 

DAPBOOLS 

0110,  0111 

65 

D0WM’0RK2  (POSTORKU) 

DOWNTORK3  (NEGTORKIJ) 

3115,  3116 

66 

DOWNTORK^  (POSTORKV) 

DOWNTORK5  (NEGTORKV) 

3117,  3120 

67 

SPARE 

SPARE 

68 

SPARE 

SPARE 

69 

AGSK  (K-F ACTOR) 

AGSK  (K-F ACTOR) 

2020-1 
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WORD  fi 

FIRST  REGISTER 

SECOND 

REGISTER 

ERASABLE 

ADDRE 

70 

UPBUFFq 

UPBUFFq 

71 

UP3UFF2 

UPBUFF3 

\ 

72 

UPBUFFq 

UPBUFF3 

7^ 

UPBUFFq 

UPBUFF7 

74 

UPBUFFg 

IJPBUFFg 

i 

/ 

1173  ■ 

- 1216 

75 

UPBUFFio 

UPBUFFii 

1 

76 

UPBUFF12 

UPBUFF13 

1 

77 

UPBUFF14 

UPBUFF15 

1 

1 

1 

1 

78 

UPBUFF16 

[JPBUFF17 

1 

y 

79 

UPBUFF18 

UPBUFF19 

80 

LEMMASS 

C3MMAS3 

1326, 

1327 

81 

IMODES30 

IMODES33 

1277, 

1300 

82 

SPARE 

3PARE 

83 

Ol-EGAP 

OMEGAQ 

3021, 

3022 

84 

OMEGAR 

ALPHAQ 

3023, 

3024 

85 

CDUXD 

3DUYD 

3235, 

3236 

86 

CDUZD 

^ DELCDUX 

3237, 

3240 

87 

CDUX 

CDUX 

0032, 

0033 

88 

CDUZ 

CDUT 

0034, 

0035 

89 

ALPHAQ 

ALPHAR 

3024, 

3025 

90 

DOWNTORKq  (POSTORKP) 

DOWNTORKq 

(NEGTORKP) 

3113, 

3114 

91 

CHANNELll 

CHANNEL12 

92 

CHANNEL13 

CHANNELI4 

93 

CHANNiL30 

CHANNEL31 

94 

CHANNEL 3 2 

CHANNEL33 
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MMlA 

FIRST  REGISTER 

SECOND  REGISTER 

ERASABLE  ADDRESS 

95 

DSPTABo 

DSPTABi 

\ 

96 

DSPTAB2 

DSPTAB3 

1 

97 

DoPTAB^ 

DSPTAB5 

) 1022  - 1035 

9S 

DSPTAB5 

DSPTAB7 

99 

DSPTABg 

DSPTABg 

100 

DSPTAB^o 

DSPTABii 
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RENDEZVOUS  & PRETHRUST  LIST 


WORD  ^ 

FIRST  REGISTER 

SECOND  REGISTER 

ERASABLE 

ADDRESS 

1 

LIST  ID  (777758) 

SYNC  PATTERN  (77340,3) 

2 

R-OTHERq  (X  comp.) 

R-OTHERi  (X  comp.) 

3 

R-OTHER2  (Y  comp.) 

R-OTHER3  (Y  comp.) 

1717  - 

■ 1724 

4 

R-OTHERq  (Z  comp.) 

R-OTHER5  (oi  c_imp./ 

5 

V-OTHERo  (X  comp.) 

V-OTHER3  (X  comp. ) 

6 

V-OTHER2  (Y  comp.) 

V-OTHER3  (Y  comp.) 

1725  - 

■ 1732 

7 

V-OTHER4  (Z  comp.) 

V-OTHER5  (Z  comp.) 

8 

TETCSM 

TETCSM 

1570-1 

9 

RANGRDOT 

RANG ROOT +1 

3760, 

3761 

10 

AIG 

AMG 

3457, 

3460 

11 

AOG 

TRKMKCNT 

3461, 

3462 

12 

TANGNBq  (RR  trunnion) 

TANGNBi  (RR  shaft) 

3752, 

3753 

13 

MKTIME 

MKTIME 

3754-5 

U 

DELLT4  (Tp  Lambert) 

DELLT4  (Tp  Lambert) 

3451-2 

15 

RTARGq  (X  comp. ) 

RTARGj  (X  comp.) 

16 

RTARG2  (Y  comp.) 

RTARG^  (Y  comp.) 

3443  - 

3450 

17 

RTARG4  (Z  comp.) 

RTARG^  (Z  comp.) 

18 

DELVLVCq  (DELVSLV-X) 

DELVLVCi  (DELVSLV-X) 

j 

19 

DELVLVC2  (DELVSLV-Y) 

DELVLVC3  (DEi,v3LV-Y) 

3433  - 

3440 

20 

DELVLVC4  (DSLVSLV-Z) 

DELVLVC5  (DELVSLV-Z) 

) 

21 

TCSI  (CSI  time) 

TCSI  (CSI  time) 

3633-4 

22 

DELVEETIq  (X  comp.) 

DELVEETli  (X  comp.) 

23 

DELVEETI2  (Y  comp.) 

DELVEETI3  (Y  comp.) 

2266  - 

2273 

24 

DELVEETI4  (Z  comp.) 

DELVEETI5  (Z  comp.) 

. 

TELE-23 


WORD  # 

FIRST  REGISTER 

SECOND  REGISTER 

ERASABLE  ADDRESS 

25 

SPARE 

SPARE 

26 

TPASS4  (TPF  time) 

TPASS4  (TPF  time) 

3630-1 

27 

X789x  (RR  shaft  bias) 

X789x 

1700-1 

28 

X789y  trunnion  bias) 

X789y  (RR  trunnion  bias)  1702-3 

29 

LASTTCMD(LASTYCMD) 

LASTSCMD  (LASTXCMD) 

0112  - 0113 

30 

REDOCTR 

THETADq  (X-angle) 

0320,  0321 

31 

THETAD3_  (Y-angle) 

THETAD2  (Z-angle) 

0322,  0323 

32 

RSBBQ 

RSBBQtl 

1432,  1433 

33 

OMEGAP 

OMEGAQ 

3021,  3022 

34 

OMEGAR 

ALPHAQ 

3023,  3024 

35 

CDUXD 

CDIJYD 

3235,  3236 

36 

CDUZD 

*DELCDUX 

3237,  3240 

37 

CDUX 

CDUY 

0032,  0033 

38 

CDUZ 

CDUT 

0034,  0035 

39 

FLAGWRDO 

FLAGWRDl  ^ 

\ 

40 

FLAGWRD2 

FLAGWRD3 

41 

FLAGWRD4 

FLAGWRD5 

I 

> 0074  - 0107 

42 

FLAGWRD6 

FLAGWRD7 

f 

43 

FLAGWRD8 

FLAGWRD9  | 

44 

FLGWRDIO 

FLGWRDll  y 

45 

DSPTABq 

DSPTABg 

\ 

46 

DSPTAB2 

DSPTAB3 

] 

47 

DSPTABq 

DSPTAB5  ' 

y 1022  - 1035 

48 

DSPTABq 

DSPTAB7  / 

49 

DSPTABg 

DSPTABg  \ 

1 

50 

DSPTABio 

DSPTAByy  J 

TELE-24 


WORD  # 

FIRST  REGISTER 

SECOND  REGISTER 

ERASABLE  ADDRESS 

51 

TIMENOW  (TIME2) 

TIMENOW  (TIMEl) 

0024-5 

52 

RTJq  (X  comp.) 

RN-j^  (X  comp.) 

1 

53 

RN2  ( Y comp. ) 

RIJ^  (Y  comp.)  1 

1217  - 1224 

54 

RN^  ( Z comp . ) 

RN^  (Z  comp. ) 

1 

55 

VNq  (X  comp.) 

VN^  (X  comp.)  j 

56 

VN^  (Y  comp.) 

VN^  (Y  comp.)  ) 

1225  - 1232 

57 

VN^  ( Z comp. ) 

VN^  (Z  comp.)  ) 

58 

PIPTIME 

PIPTIME 

1233-4 

59 

OMEGAPD 

OMEGAQD 

3243,  32Z4 

60 

OMEGARD 

'^ECDUW 

3245,  3246 

61 

CADRFLSHq 

CADRFLSHi 

0372,  0373 

62 

CADRFLSH2 

FAILREGq 

0374,  0375 

63 

FAILREGi 

FAILREG2 

0376,  0377 

64 

RADMODES 

DAPBOOLS 

0110,  0111 

65 

D0WWr0RK2  (POSTORKU) 

DOWNTORK3  (NEGTORKU) 

3115,  3116 

66 

DOWNTORK4  (POSTORKV) 

DOWNTORK5  (NEGTORKV) 

3117,  3120 

67 

SPARE 

SPARE 

68 

TCDH 

TCDH 

1776-7 

69 

DELVEET2q  (X  comp.) 

DELVEET2^  (X  comp.) 

1 

70 

DELVEET22  (Y  comp.) 

DELVEET22  (Y  comp.) 

1 2274  - 2301 

71 

DELVEET2.  (Z  comp.) 

4 

DELVEET2j  (Z  comp.) 

) 

72 

TTPI 

TTPI 

3635-6 

73 

DELVEET30 

DELVEET31 

I 

74 

DELVEET32 

DELVEET33 

1 2365  - 2372 

75 

DELVEET34 

DELVEET35 

) 

76 

ELEV 

ELEV 

2256-7 

TELE-25 


WORD  # 

FIRST  REGISTER 

SECOND  REGISTER 

ERASABLE  ADDRESS 

77 

GDUS 

PIPA  (X) 

0036,  0037 

78 

PIP A (Y) 

PIPA  (Z) 

0040,  0041 

79 

LASTTCMD  (LASTYCMD) 

LASTSCMD  (LASTXCMD) 

0112,  0113 

80 

LEMMASS 

CSMMASS 

1326,  1327 

81 

IM0DES30 

IMODES33 

1277,  1300 

32 

TIG 

TIG 

34a-2 

83 

OMEGAP 

OMEGAQ 

3021,  3022 

84 

OMEGAR 

ALPHAQ 

3023,  3024 

85 

CDUXD 

CDUYD 

3235,  3236 

86 

CDUZD 

^DELCDUX 

3237,  3240 

87 

CDUX 

CDIJY 

0032,  0033 

88 

CDUZ 

CDUT 

0034,  0035 

89 

ALPHAQ 

ALPHAR 

3024,  3025 

90 

DOWNTORKq  (POSTORKP) 

DOWNTORKi  (NEGTORKP) 

3113,  3114 

* 91 

CHANNELll 

CHAN[NEL12 

92 

CHANNEL13 

CHANNEL14 

93 

CHANNEL30 

CHANNEL31 

94 

CHANNEL32 

CHANNEL33 

95 

SPARE 

SPARE 

96 

CENTANG 

CENTANG 

3620-1 

97 

NN 

NN 

3466-7 

98 

DIFFALT 

DIFFALT 

3577  - 3600 

99 

DELVTPF 

DELVTPF 

2347  - 2350 

100 

SPARE 

SPARE 

TELE-26 


ORBITAL  MANEUVERS  LIST 


WORD  # 

FIRST  REGISTER 

SECOND  REGISTER 

ERASABLE  ADDRESS 

1 

LIST  ID  (777748) 

SYNC  PATTERN  (773408) 

2 

R-OTHERq  (X  comp.) 

R-OTHERj  (X  comp.) 

1 

3 

R-OTHER2  (Y  comp.) 

R-OTHER3  (Y  comp.) 

1717  - 1724 

4 

R-OTHERq  (Z  comp.) 

R-OTHER3  (Z  comp.) 

5 

V-OTHERq  (X  comp.) 

V-OTHERi  (X  comp.) 

j 

6 

V-OTHER2  (Y  comp.) 

V-OTHER3  (Y  comp.)  1 

' 1725  - 1732 

7 

V-OTHER4  (Z  comp.) 

V-OTHER5  (Z  comp.)  ^ 

8 

TETCSM 

TETCSM 

1570-1 

9 

DELLT4 

DELLT4 

3451-2 

10 

RTARGq  (X  comp.) 

RTARG|^  (X  comp.) 

11 

RTARG2  (Y  comp.) 

RTARI3  (Y  comp.) 

3443  - 3450 

12 

RIARG4  (Z  comp.) 

RTARG3  (Z  comp.) 

13 

ELEV 

ELEV 

2256-7 

14 

TEVENT 

TEVENT 

1341-2 

15 

REFSMMATq  (RiC^) 

REFSMMAT]_  (R]_C]_)  ^ 

16 

REFSMMAT2  (R1C2) 

REFS!.vMAT3  (R1C2) 

17 

REFSMMAT4  (R1C3) 

REFSMMAT5  (R1C3) 

V 1733  - 1746 

18 

RSFSMMAT^  (R2C1) 

REFSMMAT7  (R2C1) 

19 

REFSMMATg  (R2C2) 

REFSMMAT9  (R2C2) 

20 

REFSMMATio  (^2^3) 

REFSMMATii  ( R2C3 ) 

21 

TCSI 

TCSI 

3633-4 

22 

DELVEETlg  (X  comp.) 

DELVEETlg  (X  comp.)  j 

23 

DELVEETI2  (Y  comp.) 

DELVEETlg  (Y  comp.)  ( 

2266  - 2273 

24 

DELVEETlg  (Z  comp.) 

DELVEETlg  (Z  comp.)  j 

TELE- 27 

WORD  # 


FIRST  REGISTER 


SECOND  xREGISTER 


ERASABLE  ADDRESS 


25 

VGPREVq  (VGTIG-X  comp.) 

VGPREV^ 

(VGTIG-X  comp.)  j 

26 

VGPREV2  (VGTIG-Y  comp.) 

VGPREV3 

(VGTIG-Y  comp.)  i 

3700  - 3705 

27 

VGPRSV^  (VGTIG-Z  comp.) 

VGPREV. 

5 

(VGTIG-Z  comp.)  | 

28 

DNRADATA^  (DNLRVELZ) 

DNRADATA^  (DNLRALT) 

1335,  1336 

29 

TPASS4  (TPF  time) 

TPASS4 

(TPF  time) 

3630-1 

30 

REBOOT R 

THETADq 

(X -angle) 

0320,  0321 

31 

THETADi  (Y-angle) 

THETAD2 

(Z-angle) 

0322,  0323 

32 

R3BBQ 

RSBBQ+1 

1432,  1433 

33 

OMEGAP 

OMEGAQ 

3021,  3022 

34 

OMEGAR 

ALPHAQ 

3023,  3024 

35 

CDUXD 

CDUYD 

3235,  3236 

36 

CDUZD 

^DELCDUX 

3237,  3240 

37 

CDUX 

CDUY 

0032,  0033 

38 

CDUZ 

CDUT 

0034,  0035 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 


FLAGWRDO 

FLAGWRD2 

FLAGWRD4 

FLAGWRD6 

FLAGWRD8 

FLGWRDIO 

DSPTABo 

DSPTAB2 

DSFTAB, 


DSPTAB, 


6 


DSPTAB 


8 


FLAGWRDl 

FLAGWRD3 

FLAGWRD5 

FLAGWRD7 

FLAGWRD9 

FLGWRDll 

DSPTAB;^ 

DSPTAB3 

DSPTABc 


DSPTAB 


7 


DSPTABr 


0074  - 0107 


1022  - 1035 


DSPTAB 


10 


DSPTAB 


11 


TELE-28 


WORD  # 


FIRST  REGISTER 

TIMENOW  (TiME2) 

RNq  (X  comp.) 

RJ\l2  (Y  comp.) 

RN^  (Z  comp.) 

VNq  (X  comp. ) 

VN2  (Y  comp.) 

VN.  (Z  comp. ) 

4 

PIPTIME 

OMEGAPD 

OMEGARD 

CADRFLSHo 

CADRFLSH2 

FAILREG2_ 

RADMODES 

DOWNTORK2  (POSTORKU) 
DOWNTORK^  (POSTORKV) 
SPARE 
TCDH 

DELVEET20  (X  comp.) 
DELVEET22  (Y  comp.) 
DELVEET2^  (Z  comp.) 
TTPI 

DELVEET3o  (X  comp.) 
DELVEET32  (Y  comp.) 
DELVEET3^  (Z  comp.) 
DNRADATA3_  (DXRRANGE) 


SECOND  REGISTER 

TIMENOW  (TIME1} 

RNj  (X  comp.) 

RN^  (Y  comp. ) 

RN^  ( Z comp. ) 

VN^  (X  comp.) 

VN^  (Y  comp.) 

VNj  (Z  comp.) 

PIPTIME 

OMEGAQD 

*ECDUW 

CADRFLSHi 

FAILREGq 

FAILREG2 

DAPBOOLS 

DOWNTORK3  (NEGTORKU) 
DOWNTORK3  (NEGTORKV) 
SPARE 


ERASABLE  ADDRESS 

0024-5 

1217  - 1224 


1225  - 1232 

1233-4 

3243  - 3244 
3245,  3246 

0372,  0373 
0374,  0375 
0376,  0377 
0110,  0111 
3115,  3116 
3117,  3120 


TCDH  1776-7 

DELVEET21  (X  comp.)  j 

DELVEET23  (Y  comp.)  [ 2274  - 2301 

DELVEET25  (Z  comp.) 

TTPI  3635-6 

DELVEET3i  (X  comp.) 

DELVEET33  (Y  comp.)  ' 2365  - 2372 

DELVEET3^:  (Z  comp.) 

DNRADATA5  (DNRRDOT)  1330,  1331 


TELE-29 


W013D  # 

FIRST  REGISTER 

SECOND  REGISTER 

ERASABLE  ADDRESS 

77 

DNRADATA^  (DNLRVELX) 

DNRADATA^  (DNLRFELY) 

1333,  1334 

78 

DNRADATA^  (DNI^RFELZ) 

DNRADATAy  (DNLRALT) 

1335,  1336 

79 

DIFFALT 

DIFFALT 

3577  - 3600 

80 

LEMMAS S 

CSMMA3S 

1326,  1327 

81 

IM0DES30 

IM0DES33 

1277  - 1300 

82 

TIG 

TIG 

3441-2 

83 

OMEGAP 

OMEGAQ 

3021,  3022 

84 

OMEGAR 

ALPHAQ 

3023,  3024 

85 

CDUXD 

CDUYD 

3235,  3236 

86 

CDUZD 

* DELCDUX 

3237,  3240 

87 

CDUX 

CDUY 

0032,  0033 

88 

CDUZ 

CDUT 

0034,  0035 

89 

ALPHAQ 

ALPHAR 

3024,  3025 

90 

DOWUTORKq  (POSTORKP) 

D0WNT0RK]_  (NEGTORKP) 

3113,  3114 

91 

CHANNELll 

CHANNEL12 

92 

CHAKNEL13 

CHANNELI4 

93 

CHANIffiL30 

CHANNEL31 

94 

CHANNEL32 

CHANNEL33 

95 

PIPTIMEl 

PIPTIMEl 

3560-1 

96 

DELVq  (X  comp.) 

DELV^  (X  comp. ) 

97 

DELV2  (Y  comp.) 

DELV^  (Y  comp.) 

0324  - 0331 

98 

DELV^  (Z  comp.) 

DELV ^ ( Z comp . ) 

99 

SPARE 

SPARE 

100 

TGO 

TGO 

3516-7 

TELE- 30 


DESCENT  AND  ASCENT  LIST 


WORD  # 

FIRST  REGISTER 

SECOND  REGISTER 

ERASABLE  ADDRESS 

1 

LIST  ID  (777733) 

SYNC  PATTERN  (77340g) 

2 

LRCDUDLq  (LRXCDUDL) 

LRCDUDL3_  (LRYCDUDL) 

2334,  2335 

3 

LRCDUDL2  (LRZCDUDL) 

LRVTIME  (MSB) 

2336,  2337 

4 

V SELECT 

^VMEAS  (MSB) 

3651,  3652 

5 

LRVriMDL 

LRVTIMDL 

2337  - 2340 

6 

VMEAS  (LR  Velocity) 

VMSAS  (LR  Velocity) 

3652-3 

7 

MKTIME 

MKTIME 

3754-5 

8 

HMEAS  (LR  Range) 

HMEAS  (LR  Range) 

3654-5 

9 

RMq  ( RR  Range ) 

RM^  (RR  Range  rate) 

3756,  3757 

10 

AIG  (Y-angle) 

AMG  (Z-angle) 

3457,  3460 

11 

AOG  (X-angle) 

TRKMKCNT 

3461,  3462 

12 

TANGNBg  (RR  Trunnion) 

TANGNBg  (RR  Shaft) 

3752,  3753 

. 13 

MKTIME 

MKTIME 

3754-5 

14 

TEVENT 

TEVENT 

1341-2 

15 

UNFCq  (X  comp.) 

UNFC]_  (X  comp.) 

16 

UNFC2  ( Y comp. ) 

UNFC^  (Y  comp.)  | 

) 3253  - 3260 

17 

UNFC/  (Z  comp.) 

UNFC^  ( Z comp. ) 

1 

18 

VGVECTq  (X  comp.) 

VGVECT]_  (X  comp.)  , 

19 

VGVECT2  (Y  comp.) 

VGVECT3  (Y  comp.) 

» 3645-3652 

20 

VGVECTq  (Z  comp.) 

VGVECTj  (Z  comp.)  j 

21 

TTF 

TTF 

3642-3 

22 

DELTAH 

DELTAH 

3664-5 

TELE-31 


WORD  # 

FIRST  REGISTER 

SECOND  REGISTER 

ERASABLE  ADDRESS 

23 

RLSq  (X  comp. ) 

RLSj  (X  comp.) 

24 

RLS2  (Y  comp.) 

RLS^  (Y  comp.) 

2022  - 2027 

25 

RLS.  (Z  comp.) 

4 

RLS^  (Z  comp. ) 

26 

ZDOTD 

ZDOTD 

2276-7 

27 

X789x  (RR  Shaft  bias) 

X789x  (RR  Shaft  bias) 

1700-1 

28 

X789„  (RR  Trunnion  bias) 

X789„  (RR  Trunnion  bias) 

«7 

1702-3 

29 

LASTTCl'ID  (LASTYCMD) 

LASTSCMD  (LASTXCMD) 

0112,  0113 

30 

REDOCTR 

THETADq  (X-angle) 

0320,  0321 

31 

THETADj^  (Y-angle) 

THETAD2  (Z-angle) 

0322,  0323 

32 

RSBBQ 

RSBBQ+-I 

1432,  1433 

33 

OMEGAP 

OMEGAQ 

3021,  3022 

34 

OMEGAR 

ALPHAQ 

3023,  3024 

35 

CDUXD 

CDUYD 

3235,  3236 

36 

CDUZD 

* DELCDUX 

3237,  3240 

37 

CDUX 

CDUY 

0032,  0033 

38 

CDUZ 

CDUT 

0034,  0035 

39 

FLAGWRDO 

FLAGWRDl  \ 

\ 

40 

FLAGWRD2 

FLAGWRD3 

41 

FLAGWRD4 

FLAGWRD5 

\ 0074  - 0107 

42 

FLAGWRD6 

FLAGWRD7 

f 

43 

FLAGWRD8 

FLAGWRD9- 

\ 

44 

FLGWRDIO 

FLGWRDll 

) 

/ 

45 

DSPTA^ 

DSPTABi^ 

46 

DSPTAB2 

DSPTAB3 

' 1022  - 1035 

47 

DSPTA^ 

DSPTAB  5 

TELE-32 


WORD  // 

FIRST  REGISTER 

SECOND  REGISTER 

ERASABLE  ADDRESS 

43 

DSPTAB^ 

DSPTABy  1 

49 

DSPTABg 

DSFTABg  | 

1022  - 1035 

50 

DSPTABio 

DSPTABii  ) 

51 

TIMENOW  (TIME2) 

TIMENOW  (TIMEI) 

0024-5 

52 

RNq  (X  comp. ) 

RNp  (X  comp. ) j 

53 

ILMp  (Y  comp. ) 

RNg  (Y  comp.)  / 

1217  - 1224 

54 

RN^  (Z  comp. ) 

RN5  (Z  comp. ) 1 

55 

VNq  (X  comp.) 

VNp  (X  comp.)  1 

56 

VNp  (Y  comp.) 

VNg  (Y  comp.)  1 

1225  - 1232 

57 

VN^  ( Z comp. ) 

VN^  (Z  comp.)  1 

53 

PIPTIME 

PIPTIME 

1233-4 

59 

OMEilAPD 

OMEGAQD 

3243,  3244 

60 

OMEGARD 

*ECDUW 

3245,  3246 

61 

CADRFLSHo 

CADRFLSHi 

0372,  0373 

62 

CADRFLSHp 

FAILREGq 

0374,  0375 

63 

FAILREGi 

FAILREG2 

0376,  0377 

64 

RADMODES 

DAPBOOLS 

0110,  0111 

65 

DOWNTORK2  (POSTORKU) 

DOWNTORK3  (NEGTORKU) 

3115,  3116 

66 

DOWNTORK^  (POSTORKV) 

DOWNTORK5  (NEGTORKV) 

3117,  3120 

67 

RGUq  (X  comp.) 

1 

RGU^  (X  comp.)  1 

68 

RGU2  ( Y comp. ) 

R1U3  (Y  comp.)  1 

> 2626  - 2633 

69 

RGU^  (Z  comp.) 

RGUj  (Z  comp.) 

1 

70 

VGUq  (X  comp.) 

1 

VGUi  (X  comp.)  1 

71 

VGU2  (Y  comp.) 

VGU3  (Y  comp.) 

• 3626  - 3633 

72 

VGU^  (Z  comp.) 

VGU3  (Z  comp.) 

tele-33 


WORD  # 

FIRST  REGISTER 

SECOND  REGISTER 

ERASABLE  ADDRESS 

73 

LANDq  (X  comp.) 

LAND]_  (X  comp. ) 

1 

1 

74 

LArJD2  (Y  comp. ) 

/ X 1 

LAND^  (Y  comp.)  1 

3634  - 3641 

75 

(Z  comp.) 

LAND^  ( Z comp . ) 

) 

76 

AT 

AT 

2262-3 

77 

TLAND 

TLAND 

2400-1 

73 

FC 

^RDOTV 

3615,  3616 

79 

LASTTCMD  (LASTYCMD) 

LASTSCMD  (LASTXCMD) 

0112,  on  3 

80 

LEMMASS 

CSMMASS 

1326,  1327 

81 

IM0DES30 

rMODES33 

1277,  1300 

82 

TIG 

TIG 

3441-2 

83 

OMEGAP 

OtffiGAQ 

3021,  3022 

84 

OM0GAR 

ALPHAQ 

3023,  3024 

85 

CDUXD 

CDUYD 

3235,  3236 

86 

CDUZD 

^ DELCDUX 

3237,  3240 

87 

CDUX 

CDUY 

0032,  0033 

83 

CDUZ 

CDUT 

0034,  0035 

89 

ALPHAQ 

ALPHAR 

3024,  3025 

90 

DOWRTORKo  (POSTORKP) 

DOWNTORK^  (NEGTORKP) 

3113,  3114 

91 

CHANNELll 

CHANNEL12 

92 

CHANNEL13 

CHANNELI4 

93 

CHANNEL30 

CHANNEL 31 

94 

CHANNEL 3 2 

CHANNEL33 

95 

PIPTIMEl 

PIPTIMEl 

3560-1 

96 

DELVg  (X  comp.) 

DELVj^  (X  comp.) 

97 

DELV2  (Y  comp.) 

DELV3  (Y  comp.) 

0324  - 0331 

98 

DELV^  (Z  comp.) 

DELV^  (Z  comp.)  j 

TELE-34 


WORD  # 

FIRST  REGISTER 

SECOND  REGISTER 

ERASABLE  ADDRESS 

99 

PSEUD055 

FC 

3614,  3615 

100 

TTOGO 

TTOGO 

3453-4 

TELE-35 


LUNAR  SURFACE  ALIGNMENT  LIST 


WORD  # 

1 

FIRST  REGISTER 

SECOND  REGISTER 

ERASABLE  ADDRESS 

LIST  ID  (777728) 

SYNC  PATTERN  (773408) 

2 

R-OTHERq  (X  comp.) 

R-OTHER]_  (X  comp.)  1 

3 

R-OTHERp  (Y  comp.) 

R-OTHER3  (Y  corap.)  ) 

1717  - 1724 

4 

R-OTHERq  (Z  comp.) 

R-OTHER3  (Z  comp.)  1 

5 

V-OTHERq  (X  comp.) 

V-OTHER^^  (X  comp.)  1 

6 

V-OTHER2  (Y  comp.) 

V-OTHER3  (Y  comp.)  / 

1725  - 1732 

7 

V-OTHER/  (Z  comp.) 

'+ 

V-OTHER3  (Z  comp.)  1 

8 

TETCSM 

TETCSM 

1570-1 

9 

RANG  ROOT 

RANGRDOT+1 

3760,  3761 

10 

AIG 

AMG 

3457,  3460 

11 

AOG 

TRKMKCNT 

3461,  3462 

12 

TANGNBq  (RR  trunnion) 

TANGNBp  (RR  shaft) 

3752,  3753 

13 

MKTIME 

MKTIME 

3754-5 

14 

TALIGN 

TALIGN 

2774-5 

15 

REFSM'iATq  (RiC-,_) 

REFSMMAT]_  (R^Ci)  ^ 

16 

RE?SM'1AT2  (R1C2) 

RSFSMMAT3  (R1C2) 

17 

REFSMMAT^  (R1C3) 

REFSMMAT5  (Rj_C3) 

\ 1733  - 1746 

18 

REFSMtlAT^  (^2^1) 

RSFSMMAT7  (R2C1) 

/ 

19 

REFSMMAT8  (R2‘l2) 

REFSMMAT9  (R2C2) 

20 

REFSMMATjO  (^2^3) 

REF3MMATi3_  (R2C3) 

) 

21 

YNBSAVq  (X  comp.) 

YNB3AV]_  (X  comp.) 

22 

YNBSAV2  (Y  comp.) 

YNBSAV3  (Y  comp.) 

> 2236  - 2243 

23 

YNBSAVq  (Z  comp.) 

YNBSAVj  (Z  comp.) 
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ERASABLE  ADDRESS 


WORD  # 

FIRST  REGISTER 

24 

ZNBSAVq  (X  comp.) 

25 

ZNBSAV2  (Y  comp.) 

26 

ZNBSAVq  (Z  comp.) 

27 

X789jj  (RR  shaft  bias) 

23 

X789y.  (RR  trunnion  bias) 

29 

LASTTCMD  (LASTYCMD) 

30 

REDOCTR 

31 

THETADi  (Y-angle) 

32 

RSBBQ 

33 

OMEGAP 

34 

OMEGAR 

35 

CDUXD 

36 

CDUZD 

37 

CDUX 

38 

CDUZ 

39 

FLAGWRDO 

40 

FLAGWRD2 

41 

FLAGWRD4 

42 

FLAGWRD6 

43 

FLAGWRD8 

44 

FLGWRDIO 

45 

DSPTABq 

46 

DSPTAB2 

47 

D3FTAB4 

48 

DSPTABq 

SECOND  REGISTER 


ZNBSAVx  (X  comp.)  1 

ZNBSAV3  (Y  comp.) 

> 2244  - 2251 

ZNBSAVc  (Z  comp.) 

j 

X789x  (RR  shaft  bias) 

1700-1 

X789y.  ( RR  tninnion  bias ) 

1702-3 

LASTSCMD  (LASTXCMD) 

0112,  0113 

THETADo  (X-angle) 

0320,  0321 

THETAD2  (Z-angle) 

0322,  0323 

RSBBQ+1 

OMEGAQ 

ALPHAQ 

CDUYD 

*DELCDUX 

CDUY 

CDUT 

FLAGWRDl 

FLAGWRD3 

FLAGWRD5 

FLAGWRD7 

FLAGWRD9 

FLGWRDll 

DSPTAB;j_ 

DSPTAB3 

DSPTAB5 

DSPTABy 

DSPTABg 

DSPTABix 


49 

DoPTABg 

50 

DSFTABio 
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1432,  1433 
3021,  3022 
3023,  3024 
3235,  3236 
3237,  3240 
0032,  0033 
0034,  0035 


0074  - 0107 


1022  - 1035 


WORD  # 

FIRST  itEGlSTER 

SECOND  REGISTER 

ERASABLE  ADDRESS 

51 

TIMENOW  (TIME2) 

TIMENOW  (TIMED 

0024-5 

52 

RNq  (X  corap.) 

RNq_  (X  comp. ) 

53 

RI^2  ( Y comp. ) 

RN^  (Y  comp.) 

j 1217  - 1224 

54 

RN^  (Z  comp.) 

RNj  ( Z corap . ) 

55 

VNo  (X  comp.) 

VNi  (X  comp.) 

56 

VN2  (I  comp.) 

VN3  (Y  comjj. ) 

' 1225  - 1232 

57 

VN^  ( Z comp. ) 

VN5  (Z  comp.) 

58 

PIPTIME 

PIPTIME 

1233-4 

59 

OMEGAPD 

OMEGAQD 

3243,  3244 

60 

OMEGARD 

*ECDUW 

3245,  3246 

61 

CADRB’LSHo 

CADRFI^Hj 

0372,  0373 

62 

CADRFLSH2 

FAILREGq 

0374,  0375 

63 

FAILRECq 

FAILREG2 

0376,  0377 

64 

RADMODES 

DAPBOOLS 

0110,  0111 

65 

OGC 

OGC 

2737  - 2740 

66 

IGC 

IGC 

2741-2 

67 

MGC 

MGC 

2743-4 

68 

BEST I (STAR  IDl) 

BESTJ  (STAR  ID2) 

2755,  2756 

69 

STARSAVIq  (X  comp.) 

STARSAVIq  (X  comp.)  | 

70 

3TARSAVI2  (I  comp.) 

STARS AVI 3 (Y  comp.) 

^ 2760  - 2765 

71 

STARSAVIq  (Z  comp.) 

STARSAVI5  (Z  comp.) 

1 

72 

STARSAV2o  (X  comp.) 

STARSAV2]_  (X  comp.)  j 

73 

STARSAV22  (Y  comp.) 

3TARSAV23  (Y  comp.) 

» 2766  - 2773 

74 

STARSAV2^  (Z  comp.) 

STARSAV25  (Z  comp.) 

75 

GSAVq  (X  comp.) 

GSAV^  (X  comp. ) 

76 

GSAV2  (Y  comp.) 

GSAV3  (Y  comp.) 

' 2230  - 2235 

77 

GSAV^  (Z  comp.) 

GSAV5  (Z  comp.) 
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WORD  # 

FIRST  REGISTER 

SECOND  REGISTER 

ERASABLE  ADDRE 

78 

AGSK  (K-F ACTOR) 

AGSK  (K-F ACTOR) 

2020-1 

79 

LASTTCMD  (LASTYCMD) 

LASTSCMD  (LASTXCMD) 

0112,  0113 

80 

LEMMASS 

CSMMASS 

1326,  1327 

81 

IM0DES30 

IMODES33 

1277,  1300 

82 

TIG 

TIG 

3441-2 

83 

OMEGAP 

OMEGAQ 

3021,  3022 

84 

OMEGAR 

ALPHAQ 

3023,  3024 

85 

CDUXD 

CDUYD 

3235,  3236 

86 

GDUZD 

^^DELCDUX 

3237,  3240 

87 

CDUX 

CDUY 

0032,  0033 

88 

CDUZ 

CDUT 

0034,  0035 

89 

ALPHAQ 

ALPHAR 

3024,  3025 

90 

DOWNTORKq  (POSTORKP) 

DOWNTORK;j_  (NEGTORKP) 

3113,  3114 

91 

CHANNELll 

CHANNEL12 

92 

GHANNEL13 

CHANNEL14 

93 

CHANNEL30 

CHANNEL31 

94 

GHAMEL32 

CHANNEL33 

95 

PIPTIMEl 

PIPTIMEl 

3560-1 

96 

DELVq  (X  comp.) 

DELVj_  (X  comp.)  , 

97 

DELVp  (Y  comp.) 

DELV^  (Y  comp.) 

f 0324  - 0331 

98 

DELV^  ( Z comp . ) 

DELVj  (Z  comp.) 

99 

SPARE 

SPARE 

100 

SPARE 

SPARE 
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The  following  table  gives  the  downlink  parameters,  basic  scale  factors, 
imits,  and  sections  referenced  for  definitions.  The  pages  following  this 
table  contain  a list  of  definitions  compiled  from  the  listed  references. 

Definition 


Mneraonic 

Scale  Factor 

Units 

Reference 

AGSWIFF^  (12SP) 

0-13  (2dp) 

Position  - 
B25  (EARTH) 

B23  (MOON) 
Velocity  - 
B15  (EARTH) 

B13  (MOON) 

Time  - B18 

feet 

feet/ second 

seconds 

EXVB 

AGSK  (DP) 

B28 

centiseconds 

EXVB 

AIG  (SP) 

B-1  (2' s comp) 

revolutions 

RNAV 

ALPHA Q (SP) 

B-2 

revolutions/ second 
squared 

DAPA 

ALPHAR  (SP) 

B-2 

revolutions/ second 
squared 

DAPA 

AMG  (SP) 

B-1  (2*3  comp ) 

revolutions 

RNAV 

AOG  (SP) 

B-1  (2' s comp) 

revolutions 

RNAV 

AOTCODE  (SP) 

OCTAL 

optics  code 

ALIN 

AT  (DP) 

B-9 

meters/ centisecond 
squared 

A3CT 

BESTI  (SP) 

B14  1 

six  tim.es  the 
decimal  equivalent 

ALIN 

BESTJ  (SP) 

B14  ) 

of  the  star  IDs 

ALIN 

CADRFLSHq  2 (3SP) 

OCTAL 

address 

DINT 

CDUS  (SP) 

B-1  (2' s comp) 

revolutions 

RADR 

CDUT  (SP) 

B-1  (2's  comp) 

revolutions 

RADR 

CDUX  (SP) 

B-1  (2's  comp) 

revolutions 

IMU  COOR  DAPA 

CDUY  (SP) 

B-1  (2's  comp ) 

revolutions 

IMU  COOR  DAPA 
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Definition 


Mnemonic 

Scale  Factor 

Units 

Reference 

- 

CDUZ  (SP) 

B-1 

(2»  s 

comp) 

revolutions 

IMU  COOR  DAPA 

CDUXD  (SP) 

B-1 

(2' s 

comp) 

revolutions 

BURN  DAPA 

ATTM 

CDUYD  (SP) 

B-1 

(2' s 

comp) 

revolutions 

BURN  DAPA 

ATTM 

CDUZD  (SP) 

B-1 

(2»  s 

comp) 

revolutions 

BURN  DAPA 

ATTM 

CHANNELS  (see  CHANNEL 

tables ) 

CENTANG  (DP) 

BO 

revolutions 

TRGL 

COMPNUMB  (SP) 

octal 

counts 

EXVB 

CSMMASS  (SP) 

B16 

kilograms 

DAPB 

DAPBOOLS  (see  FLAGWORD  tables) 

DSPTABq  (see  DSKY 

Section) 

DELCDUX  (SP) 

B-1 

(2' s 

comp) 

revolutions 

DAPA 

DELLT4  (DP) 

B28 

centiseconds 

TRGL 

DELTAH  (DP) 

B24 

meters 

SERF 

DELV  (3DP) 

BI4 

centimeter s/second 

BURN  SERV 

IMUC 

DELVEETl  (3DP) 

B7 

meters/ centisecond 

TRGX 

DELVEET2  (3DP) 

B7 

meters/ centisecond 

TRGX 

DELVEET3  (3DP) 

B7 

meters/centisecond 

TRGL 

DELVSLV  ( 3DP ) 

B7 

meters/ centisecond 

TRGX 

DELVTPF  (DP) 

B7 

meters/ centisecond 

TRGL 

D IFF ALT  (DP) 

B29 

meters 

TRGX 

DNRADATAi  (SP) 

BI4 

counts 

RADR 

DNRADATA2  (sp) 

BI4 

counts 

RADR 

DNRADATA4  (SP) 

BI4 

counts 

RADR 

1 
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Mnemonic 

Scale  Factor 

Units 

Definition 

Referenc, 

DNRADATA5  (SP) 

BI4 

counts 

RADR 

DNRADATA6  (SP) 

BI4 

counts 

RADR 

DNRADATA7  (SP) 

BI4 

counts 

RADR 

DOWNTORK^  ^ (6SP) 

B5 

jet- seconds 

DAPB 

ELEV  (DP) 

BO 

revolutions 

TRGL  TRGX 

FAILREGq_2  (3SP) 

OCTAL 

alarm  code 

PGSR 

PC  (SP) 

BI4 

throttle  pulses 

DESC 

FLAGWRDq  (see  FLAGWORD  tables) 

GSAV  (3DP) 

B1 

unit  vector 

ALIN 

HMEAS  (DP) 

B28 

counts 

SERV 

IMODES  30,  33  (see 

IMUC  and  INTR  Sections) 

LAND  (3DP) 

B24 

meters 

DESC 

LASTXCMD  (SP) 

BI4 

pulses 

RADR 

LASTYCMD  (SP) 

BI4 

pulses 

RADR 

LEMMASS  (SP) 

B16 

kilograms 

DAPB 

LRVTIMDL  (dp) 

B28 

centiseconds 

SERV 

I^CDUDL  (3SP) 

B-1  (2's  comp) 

revolutions 

SERV 

MKTIME  (DP) 

B28 

centiseconds 

SERV 

NN  (DP) 

BI4 

counts 

TRGX 

OGC,  IGC,  MGC  (3DP) 

BO 

revolutions 

ALIN  COOR  EXVB 

OMEGAP  (SP) 

. B-3 

revolutions/ sec 

DAPA 

OMEGA  Q (SP) 

B-3 

revolutions/ sec 

DAPA 

OMEGAR  (SP) 

B-3 

revolutions/sec 

DAPA 
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Mnemon ic 

Scale  Factor 

Units 

Definition 

Reference 

OMEGAPD  (SP) 

B-3 

revolutions/ sec 

DAPA 

OMEGA QD  (SP) 

B-3 

revolutions/ sec 

DAPA 

OMEGARD  (SP) 

B-3 

revolutions/sec 

DAPA 

PIP  AS  (3SP) 

BI4 

counts 

SERF 

PIPTIME  (DP) 

B28 

centiseconds 

SERV 

PIPTIMEl  (DP) 

B28  . 

centiseconds 

SERV 

PSEUDO 55  (SP) 

BI4 

throttle  pulses 

DESC 

RADMODES  (see  : 
RANGRDOT  (2SP) 
R-OTHER  (3DP) 

FLAGWORD  tables) 

(Same  as  DNRADATA^  2) 

B29 

meters 

TELE 

REDOCTR  (SP) 

BI4 

counts 

PGSR 

[REFSMMATq 

(6DP) 

B1 

unit  vector 

COOR 

RGU  (3DP) 

B24 

meters 

DESC 

RLS  (3DP) 

B27 

meters 

DESC 

RM  (DP) 

B29 

meters 

RNAV 

P ( 3DP ) 

B29 

meters 

SERV 

RSBBQ  (2SP) 

OCTAL 

address 

PGSR 

RTARG  (3DP) 

B29 

meters 

TRGL 

STARSAVl  (3DP) 

B1 

unit  vector 

ALIN 

STARSAV2  (3DP) 

B1 

unit  vector 

ALIN 

T-OTHER  (DP) 

B28 

centiseconds 

TELE 

TALIGN  (DP) 

B28 

centiseconds 

ALIN 

TANGNBq  (SP) 

B-1 

revolutions 

RADR 

TANGNBi  (SP) 

B-1 

revolutions 

RADR 
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tfriemonic 

Scale  Factor 

Units 

Definition 

RefeiA.,nce 

• 

TCDH  (DP) 

B28 

centiseconds 

TRGX 

TCSI  (DP) 

B28 

centiseconds 

TRGX 

reVENT  (DP) 

B28 

centiseconds 

BURN 

TGO  (DP) 

B28 

centiseconds 

BURN 

TllETAD  (3SP) 

B-3  (2's  comp) 

re volutions 

ATTM 

TIG  (DP) 

B28 

centiseconds 

BURN 

TIPffiNOW  (DP) 

B28 

centiseconds 

Major  Variables 

TLAND  (DP) 

B28 

centiseconds 

DESC 

TPASS4  (DP) 

B28 

centiseconds 

TRGL 

TRimCNT  (SP) 

B14 

counts 

RNAV 

T'i'l'  (DP) 

1V1.7 

centiseconds 

DESC 

TTOGO  ( DP ) 

i;28 

centiseconds 

BURN 

TTPI  (DP) 

B28 

centiseconds 

TRGL 

• 

MFC  (3DP) 

variable 

variable 

BURN  DESC 

UPBUFF^_j_^  (20SP) 

OCTAL 

variable 

EXVB 

UPCOUNT  (SP) 

B14 

counts 

EXVB 

in’OLDMOD  (SP) 

B14 

program  number 

EXVB 

UP VERB  (SP) 

B14 

last  digit  of  verb 

EXVB 

V-OTHER  (3DP) 

E7 

meters/ centi second 

TELE 

VGPREV  (3DPj 

B7 

meters/ centisecond 

BURN 

VGIJ  (3DP) 

BIO 

me ter s/cent i second 

DESC 

VGVECT  (3DP) 

B7 

meters/ centisecond 

ASCT 
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Mnemonic 

Scale  Factor 

Units 

Definition 

Reference 

VMEAS  (DP) 

B28 

coxints 

SERV 

VN  (3DP) 

B7 

meters/ centisecond 

SERF 

VSELECT  (SP) 

B14 

LR  velocity  code 

SERV 

X789o_i  (DP) 

B5  (EARTH) 

B3  (MOON) 

radian  s 

RNAV 

X7892_3  (dp) 

B5  (EARTH) 

B3  (MOON) 

radians 

RNAV 

YNBSAV  (3DP) 

B1 

unit  vector 

ALIN 

ZDOTD  (DP) 

B7 

meters/centlsecond 

ASCT 

ZNBSAV  (3DP) 

B1 

unit  vector 

ALIN 

AGSBUFFq ,2,4*  D ingle 

precision  X,  Y,  and  Z 

components  of  the  LM 

position 

vector,  scaled  B25 

(earth)  and  B23  (moon) 

in  units  of  feet  and 

in  stable 

member  coordinates. 

AGSBUFF2^3^5:  Single  precision  X,  Y,  and  Z components  of  the  LM  velocity 
vector,  scaled  B13  (moon)  or  B15  (earth)  in  units  of  feet/second  and  in 
stable  member  coordinates. 

AGSBUFF^  o Single  precision  X,  Y,  and  Z components  of  the  GSM  position 

0,0  ,-LU 

vector,  scaled  B25  (earth)  or  B23  (moon)  in  units  of  feet  and  in  stable 
member  coordinates. 

AGSBUFF„  Q Single  precision  X,  Y,  and  Z components  of  the  GSM  velocity 

vector,  scaled  B15  (earth)  or  B13  (moon)  in  units  of  feet/second  and  in 
stable  member  coordinates. 

AGSBUFF,  „ Double  precision  difference  between  the  timetag  of  the  state 

,-L.7 
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vectors  in  AGSBUFF^  and  the  time  stored  in  AGSK,  scaled  B18  in  units 
of  seconds. 

AGSK:  Double  precision  time  of  AGS  initialization,  scaled  B28  in  units  of 
centiseconds. 

ALPHAQ,  ALPHAR:  Single  precision  storage  for  the  most  significant  halves 
of  AOSQ  and  AOSR  for  dovn  telemetry,  scaled  B-2  in  units  of  revolutions 
per  second  squared. 

AOG,  AIG,  AMG:  Single  precision  storage  for  ICDU  angles,  scaled  B-1  in 
units  of  revolutions  and  stored  in  two' s complement  form. 

AOTCODE:  A single  precision  scalar  containing  the  star  selection  code  in 
bits  6-1  (an  octal  number  from  1 to  45g  for  stars,  0 for  a planet,  and 
46g-50g  for  sim,  earth,  and  moon),  and  the  ACT  detent  code  in  bits  9-7 
(1,2,3,4j5  or  6 for  AOT  detents;  0 for  COAS  calibration;  7 for  COAS 
position  to  be  specified. ) 

AOSQ,  AOSR:  Double  precision  disturbing  acceleration  due  to  thrust  vector/ 
c.g.  offset  or  other  external  torques,  scaled  B-2  in  units  of  revolutions 
per  second  squared. 

AT:  Double  precision  LM  thrust  acceleration  magnitude,  scaled  B-9  in  units 
of  meters  per  centisecond  squared. 

BESTI:  Single  precision  value,  scaled  B14,  of  the  index  parameter  for  star 
#1  of  the  "best"  star  pair  as  determined  by  "R56. " It  is  the  star  farthest 
from  the  AOT  center  detent  position  and  will  be  zero  if  no  star  pairs  are 
found  that  are  satisfactory.  In  "R59"  it  is  the  value  of  the  index  param- 
eter of  the  first  celestial  body  used  for  marking  (if  two  bodies  are  to  be 
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used).  It  is  equal  to  six  times  the  decimal  equivalent  of  the  "star 
selection  code." 

BESTJ:  See  BESTI.  In  "R56"  it  is  the  index  parameter  for  star  #2  which  is 
the  closest  star  to  the  AOT  center  detent  position.  In  "R59"  it  is  the 
index  parameter  of  the  second  celestial  body  used  for  markxng  (if  two 
are  to  be  used)  or  the  index  parameter  of  the  single  body  being  used 
(Technique  3 alignment). 

CADRFLSHx  (i  = 0,1,2):  Three  single  precision  cells  for  storage  of  return 
address  information  required  by  priority,  mark  and  normal  display  re- 
quests. In  the  program  Itself,  CADRELSH  is  used  for  storage  of  the 
address  of  the  step  after  that  at  which  the  display  interface  routine 
is  called;  in  this  writeup,  CADRELSH  refers  to  the  address  of  the  step 
that  called  a display  Interface  routine. 

CDUt,  CDUg:  LGC  input  counters  incremented  directly  from  the  Coupling  Data 
Unit  to  maintain  LGC  knowledge  of  the  RR  trunnion  and  shaft  angles,  res- 
pectively. Single  precision  angles  stored  in  two's  complement  form  and 
scaled  B-1  in  units  of  revolutions. 

CDU  (CDUx,  CDUy,  CDUg):  Single  precision  vector  containing  the  measured 
values  of  the  IMU  gimbal  angles  (outer,  inner,  and  middle  gimbal  in  X, 

Y,  and  Z components,  respectively),  scaled  B-1  in  lanits  of  revolutions 
and  stored  in  two's  complement  form.  Each  component  is  an  LGC  input 
counter  incremented  directly  from  the  Coupling  Data  Unit  in  response  to 
changes  in  the  IMU  gimbal  angles. 

CDUD:  Single  precision  vector  interface  with  steering  and  attitude  maneuver 
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routines  containing  the  desired  values  for  the  IMU  gimbal  angles  (outer, 
inner,  and  middle  gimbal  angles  in  X,  Y,  and  Z components,  respectively), 
scaled  B-1  in  units  of  revolutions  and  stored  in  two's  complement  form. 

CENTANG:  Double  precision  central  angle  between  the  passive  vehicle's 
position  at  TIG  and  at  intercept,  scaled  BO  in  >inits  of  revolutions. 

GOMPWUMB:  Single  precision  number  of  components  (each  single  precision 
octal)  in  a program  27  update,  scaled  B14  and  unitless. 

CSMMASS:  Single  precision  astronaut  input  of  the  mass  of  the  GSM,  scaled  Bl6 
in  units  of  kilograms. 

DELCDU:  Interface  with  steering  and  attitude  maneuver  routines,  minus 
desired  change  in  gimbal  angles  per  100  millisecond  period,  scaled  B-1 
in  units  of  revolutions,  stored  in  two's  complement  form. 

DELLT4:  Double  precision  maneuver  transfer  time,  scaled  B28  in  units  of 
centiseconds. 

DELTAH:  Double  precision  difference  between  the  calcixLated  altitude  and 
that  measured  by  the  Landing  Radar,  scaled  B24  in  \inits  of  meters. 

DELV:  Double  precision  sensed-change-ln-velocity  vector,  scaled  B14  in  units 
of  centimeters  per  second  (one  PIPA  pulse  represents  one  centimeter  per 
second  on  the  LM)  and  expressed  in  Platform  coordinates. 

DELVEETl:  Double  precision  vector  corresponding  to  the  velocity- to-be- 
gained  vector  for  the  CSI  burn,  scaled  B7  in  units  of  meters  per  centl- 
second.  Parallel  to  the  orbital  plane  of  the  passive  vehicle  and  perpen- 
dicular to  the  active  vehicle  position  vector  at  TCSI. 

DELVEET2:  Double  precision  vector  corresponding  to  the  velocity- to-be-gained 
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vector  for  the  CDH  burn,  scaled  B7  in  units  of  meters  per  centisecond. 
Parallel  to  the  orbital  plane  of  the  passive  vehicle. 

DELVEET3:  Double  precision  velocity  to  be  gained  vector,  scaled  B7  in  units 
of  meters  per  centisecond.  Calculated  by  the  "INITVEL"  routine. 

DELVSLV;  Double  precision  velocity  vector  expressed  in  local  vertical  coor- 
dinates, scaled  B7  in  units  of  meters  per  centisecond.  In  the  local  ver- 
tical coordinate  system,  X is  along  the  horizontal  component  of  velocity, 

Z points  toward  the  center  of  attraction,  and  Y completes  a right-handed, 
orthogonal  system. 

DELVTPF:  Double  precision  magnitude  of  the  velocity  to  be  gained  in  the 
final  rendezvous  maneuvers  of  the  terminal  phase , scaled  B7  in  units  of 
meters  per  centisecond. 

DIFFALT:  Double  precision  difference  of  passive  and  active  vehicle  altitudes 

at  the  time  of  CDH,  scaled  B29  in  units  of  meters;  negative  if  the  passive 
vehicle  is  below  the  active  vehicle  at  CDH,  and  displayed  to  the  astronaut 
during  P32-72  and  P33-73. 

DNEADATA^:  Special  storage  for  downlink  of  radar  data.  1 = 1,2, 4, 5, 6,  and 
7 to  index  six  single  precision  cells  (consecutive  except  between  i = 2 
and  4)  alternately  labeled  DNRRANGE,  DNRRDOT,  DNLRVELX,  DNLRVELY,  DNRVELZ, 
and  DNLRALT,  respectively. 

Single  precision  LGC  counter  advanced  directly  by  whachever  radar  circuit 
is  enabled  for  sampling,  scaled  B14  in  units  of  counts. 

Sample  Type  Value  of  1 count 

DNREIDOT  -0. 19135344  meters/second  -0.6278  fps 
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Value  of  1 CQ-unt 


Sample  Type 


DNRRAUGE 

Low  scale 
High  scale 

**  DNLRVELX 

DNLRVELY 

DNLRVELZ 

**  DNLRALT 


2. 8 '59024  meters 
22.872192  meters 

-0. 1962912  meters/second 

O.3694IV6  meters/second 

0.2642006  meters/second 


9.38  feet 
75.04  feet 

-O.644O  fps 

1.212  fps 

0.8668  fps 


Low  scale  0.3288792  meters  1.0790  feet 

High  scale  1.64440  meters  5.3950  feet 

■'*  DNRRDOT  has  a bias  to  be  subtracted  from  the  raw  co\ints. 

KrRDOTBIAS;  Double  precision  constant  stored  as  17000  x 2 , scaled  B28 

in  units  of  radar  counts  (same  as  RNRAD).  Equation  value:  17000. 

DNLRVEL^  have  a bias  to  be  added  to  the  raw  counts: 

K:LVELBIAS:  Single  precision  constant  stored  as  -12288  x scaled  BI4 

in  units  like  those  of  RNRAD.  Equation  value:  -12288.  (Program  comment 
states,  "Landing  radar  bias  for  153-6  kc.") 

DOWNTORK^  (i  = 0-5):  Single  precision  table  of  quantities  for  downlink 
which  give  cumulative  jet  on  times  for  the  various  axes;  the  correspon- 
dence is  (0,  +P;  1,  -P;  2,  +U;  3,  -U;  4,  +V;  5,  -V);  Scaled  B5  in  units 
of  seconds. 

ELEV:  Double  precision  elevation  angle  of  the  line-of-sight  to  the  passive 
vehicle;  measured  from  the  vector  which  is  perpendicular  to  the  active 
vehicle  position  vector,  perpendicular  to  MOT  ^ASS,  and  whose  dot 
product  with  the  active  vehicle  velocity  vector  is  positive.  An  angle 
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between  0 and  1 (O  and  360  degrees)  scaled  BO  in  units  of  revolutions. 

ELEV  is  greater  than  ^ (180  degrees)  if  the  passive  vehicle  is  below 
the  active  vehicle's  local  horizontal,  ELE\^  is  an  astronaut  input  in 
P32-72  and  an  optional  input  in  P34-V4- 
FAILREGi  (i  = 0,1,2):  Three  single  precision  registers  used  for  storage 
of  the  alarm  code  Information,  FAILRSGo,!  are  zeroed  via  an  "ERROR  RESET" 
FAILREG2  is  unaltered.  All  three  registered  are  zeroed  by  a Verb  36. 
FAILREGq  contains  the  first  alarm  after  the  "ERPiOR  RESET";  FAILRBG 
contains  the  second;  and  FAILREG2  ^-Iways  contains  the  most  recent. 

FG:  Single  precision  storage  for  the  magnitude  of  desired  thrust,  scaled 
BI4  in  units  of  DPS  throttle  pulses. 

KzSCALEFAC:  Double  precision  constant  stored  as  797.959872  x 2~^^,  scaled 
BI6  in  units  of  DPS  throttle  pulses/kilogram  meter  per  centisecond  squared. 
Equation  value:  797.959372.  (Equivalent  to  12.532  newtons  or  2.8173 
pounds  force  per  pulse.) 

GSAV:  Double  precision  storage  for  unit  gravity  vector  determined  in  previous 
pass  through  "P57,"  scaled  B1  and  expressed  in  navigation  base  coordinates. 
HMEAS:  Double  precision  Landing  Radar  measurement  of  altitude,  scaled  B28 

in  units  of  Landing  Radar  altitude  bits. 

K:HSCAL:  Double  precision  constant  stored  as  -0,3288792,  scaled  BO  in  units 
of  meters  per  bit.  Equation  value:  -0.3288792.  (Equivalent  to  1.0790 
feet  per  bit.) 

LAND,  LANDTEMP:  Double  precision  position  vector  of  the  landing  site,  scaled 
B24  in  units  of  meters,  measured  from  the  center  of  the  moon  and  expressed 
in  the  Platform  coordinate  system. 
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iJiSTSCMD,  LASTTCMD:  Storage  for  the  previous  value  of  total  RR  shaft  and 
trunnion  position  deviation;  scaled  B14  in  units  of  RR  drive  pulses. 

Used  to  convert  present  position  deviation  into  a desii-ed  rate  command 
to  be  inserted  into  CDIISCMD  or  CDUTCMD. 

K:RRSPGAIN:  Single  precision  constant  stored  as  0.59062,  scaled  B15  in 
units  of  RR  drive  pulses  per  revolution  of  error.  Equation  value: 

19353.  (Equivalent  to  0.7  x 2 sec~^  x 360  deg/rey  x (10/384)  ^ pulses 
per  degree  per  second.  The  first  two  terms  "null  0.7  of  the  error  in 
-g-  second,"  and  the  fourth  is  derived  from  the  fact  that  a saturated 
error  counter  causes  a drive  rate  of  10  degrees  per  second. ) 

LEMMASS:  Single  precision  astronaut  input  of  the  mass  of  the  LM,  scaled  BI6 
in  units  of  kilograms. 

LRVTIMDL:  Double  precision  time  at  the  estimated  midpoint  of  the  LR  velocity 
sample,  scaled  B28  in  units  of  centiseconds. 

LRCDUDL:  Single  precision  vector  storage  for  the  value  of  the  three  ICDU 
angles  at  the  estimated  midpoint  of  an  LR  velocity  reading,  scaled  B-1 
in  units  of  revolutions  and  stored  in  two's  complement  form. 

MKTIME:  Double  precision  time  of  PIPA  readings  which  are  associated  with 
the  Landing  Radar  altitude  measurement  for  downlink  pui’poses,  scaled  B28 
in  units  of  centiseconds. 

M:  Double  precision  nimber  designating  the  apsidal  crossing  after  CSI  at 
which  the  CDH  burn  will  be  executed,  scaled  BI4  and  unitless.  (NN  = 1 
Indicates  that  the  CDH  bum  will  be  executed  at  the  first  apsidal  crossing 
after  CSI. ) NN  is  used  in  P34  and  P35  as  a flag  to  specify  precision  or 
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conic  integration.  In  "33435.25,"  it  is  used  to  set  VTARGTAG. 


OaC,  IGC,  MGC:  Double  precision  commanded  gimbal  angles  scaled  BO  in  units 

of  revolutions  or  (equivalently)  scaled  B21  in  units  of  gyro  torque  pulses 
-21 

of  2 revolutions  each. 

OMEGAP,  OiiEGAQ,  OMEGAR,  OMEGAU,  OMEGAV ; Single  precision  estimated  vehicle 
rate,  calculated  using  commanded  accelerations  and  times,  scaled  B-3  in 
units  of  revolutions  per  second.  Limited  to  +0.12499  (+44-997  degrees/second) 
by  overflow  checks. 

OiiEGAPD,  OMEGAQD,  OMEGARD:  Single  precision  rate  biases  generated  in  the 

attitude  maneuver  and  steering  routines,  scaled  B-3  in  units  of  revolutions 
per  second. 

PIPA:  Single  precision  sensed-change-in-velocity  vector,  scaled  B14  in  units 

of  centimeters  per  second  and  expressed  in  the  Platform  coordinate  system. 

The  three  components  are  incremented  directly  from  the  Pulse-Integrating, 
Pendulous  Accelerometers  on  the  stable  member  of  the  Inertial  Measurement 
Unit . 

PIPTIME:  Double  precision  time  of  the  most  recent  PIPA  read  cycle,  scaled 

B28  in  units  of  centiseconds ; time  at  which  the  average-g  state  vector 
is  valid. 

PIPTIMEl:  Temporary  storage  for  PIPTIME  to  avoid  changing  the  downlink 
state  vector  until  it  is  updated  homogeneously. 

PSEUD055:  Single  precision  storage  for  telemetry  of  the  throttle  command 

sent  to  the  descent  engine,  scaled  B14  in  units  of  throttle  pulses. 

R-OTHER:  Double  precision  navigation  position  vector  of  the  GSM,  scaled  B29 
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in  units  of  meters.  See  RCSM  in  SERV  section. 

REDOCTR:  Single  precision  counter  set  to  zero  in  a fresh  start  and  in- 

cremented whenever  a hardware  restart  occurs;  scaled  B14  and  unitless. 

[REFSMMAT] : Double  precision,  3x3  transformation  matrix,  scaled  B1  and 
unitless.  Defined  such  that  Asm  = [^FSMMA^  ^'f  where  A is  a vector 
expressed  in  staUe  member  and  reference  coordinates,  respectively. 

HGIJ:  Double  precision  position  vector  of  the  LM,  scaled  B24  in  units  of 

meters,  measured  from  the  landing  site  on  the  moon's  surface  and  ex- 
pressed in  the  Descent  Guidance  coordinate  system. 

RTjS:  Double  precision  vector  position  of  the  landing  site  relative  to  the 
center  of  the  moon,  scaled  B27  in  units  of  meters  and  expressed  in  the 
Selenographic  (moon-fixed)  coordinate  system;  part  of  the  erasable  load. 

RM:  Double  precision  magnitude  of  measured  range,  scaled  B29  in  units  of 
meters.  Also  used  in  routine  29  as  two  single  precision  storage  cells 
(RMq  and  RM^)  for  downlink.  They  are  identical  to  DNR.ADATA^,  and 
DNRADATA^,  respectively. 

Double  precision  vector  position  of  the  LM  measured  from  the  center 
of  the  earth  or  moon,  scaled  B29  in  units  of  meters  and  expressed  in 
the  Reference  coordinate  system. 

RSBBQ:  Storage  for  the  value  of  the  address  where  a hard'vare  restart  occurred. 
The  most  significant  part  contains  the  BBANK  and  3UPERBNK  information;  the 
least  significant  part  contains  the  Q-register  information. 

OTARG:  Target  position  vector  input  to  "INITVEL.”  Scaled  B29  in  units  of 
meters.  Upon  exit,  "INITVEL"  loads  OTARG  with  the  biased  target  position 


TELE- 54 


vector,  if  such  a biased  vector  is  calculated. 

STARSAVl,  STARSAV2:  Double  precision  vectors  scaled  B1  and  unitless.  Used 
to  store  the  two  "measurement"  vectors  for  comparison  with  two  "reference" 
vectors  to  determine  IMU  alignment.  Expressed  in  stable  member  coor- 
dinates . 

T-OTHER:  Double  precision  state  vector  time  for  GSM  scaled  B28  in  units 

of  centlseconds . 

T ALIGN:  Double  precision  time  for  determination  of  IMU  alignment,  scaled 

B28  in  units  of  centlseconds. 

TANGNBq,  TANGNB^:  Temporary  two's  complement  storage  (astronaut  desired 

or  radar  marked)  radar  position  angles  (trunnion  and  shaft,  respectively), 
scaled  B-1  in  unit  of  revolutions. 

TCDH:  Double  precision  time  of  ignition  of  the  CSI  burn,  scaled  B28  in  units 

of  centlseconds;  an  astronaut  input  in  P33-P73. 

TCSI:  Double  precision  time  of  ignition  of  the  CSI  burn,  scaled  B28  in 
units  of  centlseconds.  It  may  be  either  an  astronaut  input  or  computed 
by  the  program. 

TEVENT:  Double  precision  time-of-event  for  downlink  information,  scaled 

B28  in  units  of  centlseconds. 

TGO:  Double  precision  predicted  length  of  burn,  scaled  B28  in  units  of 

centlseconds . 

THETAD:  Single  precision  vector  containing  the  glmbal  angles  that  define 

the  desired  orientation  to  which  the  attitude  maneuver  routines  are  to 
maneuver;  scaled  B-1  in  units  of  revolutions  and  stored  in  two's  complement 
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form.  Also  called  CPHI  in  program. 

TIG:  Double  precision  predicted  time  of  ignition  input  to  the  burn  routines, 
or  predicted  cutoff  time,  scaled  B28  in  units  of  centiseconds . 

TIMENOW:  Double  precision  computer  clock,  incremented  every  centlsecond 
(one  hundredth  of  a second)  by  the  LGC  oscillator;  scaled  B28  in  units 
of  centiseconds. 

TLAWD:  Double  precision  nominal  time  of  lunar  landing,  scaled  B28  in  units 
of  centiseconds;  part  of  the  erasable  load. 

TPASS4:  Double  precision  scheduled  time  of  target  intercept,  scaled  B28 
in  units  of  centiseconds. 

TRKMKCNT:  Single  precision  count  of  number  of  navigation  updates  made  during 
P20  or  P22,  scaled  B14  and  unitless.  Cell  also  used  in  R29  to  indicate 
data  storage  for  downlink;  1 - data  stored,  0 - data  not  stored. 

TTF/8,  TTF : Double  precision  negative  time  from  the  end  of  the  present 
descent  guidance  phase,  scaled  B17  in  units  of  centiseconds. 

TTOGO:  Double  precision  time  until  engine  ignition  (or  cutoff),  scaled  B28 
in  units  of  centiseconds. 

TTPI:  Double  precision  time  of  terminal  phase  initiation,  scaled  B28  in 
units  of  centiseconds;  an  astronaut  input  in  P32-P72  and  P34-P74* 

lJNFC/2,  UNFC:  Double  precision  desired  thrust  acceleration  vector,  with 

variable  scaling  in  units  of  meters  per  centlsecond  squared  and  expressed 
in  the  Platform  coordinate  system.  During  the  pre-ignition  phase  com- 
putations for  the  powered  descent  maneuver  (P63),  UNFC  represents  the 
Delta-V  vector  for  the  pre-full  throttle  thrust,  scaled  B7  in  units  of 
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meters  per  centisecond. 


UPBUFFQ_^g:  Single  precision  buffer  cells  for  P27  updates. 

UPCOlINT:  Single  precision  number  of  components  received  in  a P27  update, 
scaled  BI4  and  unitless. 

UPOLDMOD;  Single  precision  storage  for  the  value  of  MODPiEG  at  the  initial- 
ization of  a P27  update. 

UPVERB,  UPVERBSV:  Single  precision  Indication  of  the  verb  that  initiated 
a P27  update,  scaled  BI4  and  unitless. 

V-OTHER:  Double  precisions  navigation  velocity  vector  of  the  GSM  scaled 
B7  in  units  of  meters/centisecond. 

VGPREV:  Double  precision  previous  value  of  VG,  program  notation  also  VGTIG, 
scaled  B7  in  units  of  meters  per  centisecond  and  expressed  in  the  ref- 
erence coordinate  system. 

VGU:  Double  precision  velocity  vector  of  the  LM  relative  to  the  rotating 

moon,  scaled  BIO  in  units  of  meters  per  centisecond  and  expressed  in 
the  Descent  Guidance  coordinate  system. 

VGVECT:  Double  precision  velocity- to-be-gained  vector  in  Platform  coor- 

dinates, scaled  B7  in  units  of  meters  per  centisecond. 

VMEAS:  Double  precision  velocity  measurement  (sum  of  5 samples)  from  the 
LR  sampling,  scaled  B28  in  units  of  Landing  Radar  velocity  bits. 

K:VSCALq:  Double  precision  constant  stored  as  0.5410829105,  program  no- 
tation VZSCAL,  scaled  B-10  in  units  of  meters  per  centisecond  per  bit. 
Equation  value:  0.002642006/5.  (Equivalent  to  0.8668  fps  per  bit;  the 
"5"  averages  the  sum  of  five  samples. ) 
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KrVSCAL^:  Double  precision  constant  stored  as  0.7565672446,  program  no- 
tation VYSCAL,  scaled  B-10  in  units  of  meters  per  centisecond  per  bit. 
Equation  value:  0.003694176/5.  (Equivalent  t.o  ].212  fps  per  bit;  the 
"5"  averages  the  sum  of  five  samples.) 

KiVSCAL^:  Double  precision  constant  stored  as  -0.4020043770,  program  no- 
tation VXSCAL,  scaled  B-10  in  units  of  meters  per  centisecond  per  bit. 
Equation  value:  -0.001962912/5.  (Equivalent  to  -0.644  fps  per  bit; 
the  "5"  averages  the  simi  of  five  samples.  ) 

VN:  Double  precision  inertial  velocity  vector  of  the  IM,  scaled  B7  in 

units  of  meters  per  centisecond  and  expressed  in  the  Reference  coordinate 
system. 

VSELECT:  Single  precision  index  used  to  distinguish  among  the  Z (O), 

Y (1)  and  X (2)  axes  of  the  Landing  Radar  coordinate  system,  scaled 
B14  and  unitless. 

X789:  Double  precision  vector  containing  the  best  estimate  of  bias 

necessary  to  offset  RR  position  error,  scaled  B5  (earth)  or  B3  (moon) 
in  units  of  radians. 

YNBSAV,  ^BSAV:  Double  precision  unit  vectors  in  the  directions  of  the 

Y and  Z navigation  base  axes,  scaled  B1  and  expressed  in  moon-fixed 
coordinates. 

ZDOTD:  Double  precision  desired  dovmrange  velocity  scaled  B7  in  units 
of  meters/centisecond. 
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Testing  Routines 


VBTSTLTS 


TSTLTS2 


TSTLTS3 


Inhibit  interrupts 

If  MODREG  i 0,  proceed  to  "ALM/END" 

Switch  bit  1 of  IMODES33  to  1 (indicate  lamp  test  in  progress) 
Switch  bits  7,  6,  5>  4>  3 and  1 of  channel  11  to  1 

(illuminate  operator  error  lamp;  initiate  verb-noun  flash;  Illuminate 
key  release,  temperature  caution,  uplink  activity,  and  ISS  warning 
lamps) 

Switch  DSPTAB^^  to  100  000  110  111  100^ 

(Signal  "T4RUPT"  to  light  the  program  alarm,  tracker  fail, 
gimbal  lock  warning,  no  attitude,  and  LR  fall  lamps) 

Perform  "C13STALL" 

Switch  bit  10  of  channel  13  to  1 (Light  restart,  standby 

and  computer  warning  lamps) 

Switch  DSPTAB^  to  -05675g  for  i = 10  thru  0 (display  all  8*s) 

Switch  DSPTAB^  to  -07675g  for  i = 1,  4 and  6 (display  + signs) 

NOUT  = 11 

Release  interrupt  inhibit 
Call  "TSTLTS2"  in  5 seconds 
End  job 

Establish  "TSTLTS3"  (pr30) 

End  task 

Inhibit  interrupts 

Switch  bits  7,  4>  3 and  1 of  channel  11  to  0 
(Leave  verb-noun  and  key  release  flashing) 

Perform  "C13STALL" 

Switch  bit  10  of  channel  13  to  0 
TS  = bit  4 of  channel  12 

(leave  no  attitude  lamp 

Switch  DSPTAB^^  to  40000g  + TS  lit  if  in  coarse  align) 

Switch  bit  1 of  IM0DES33  to  0 
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Switch  bits  13,  12  and  11  of  IMODES33  to  1 

(Reset  PIPA  fail.  Downlink  fail  and  Uplink  fail  bits) 

Switch  bits  13,  12  and  10  of  rM0DES30  to  1 

(Reset  IMU  fail,  ICDU  fail  and  PIPA  fail  bits) 

Switch  bit  15  of  IM0DES30  to  0 (Reset  IMU  temperature  bit) 

Switch  RADMODES  bit  7 (RCDUFBIT)  to  1 

Switch  RADMODES  bits  8 ( L.RVET.BTT ) , 5 (LRAT.TFT.G)  and  4 (RRDATABT)  to  0 
Release  interrupt  inhibit 

Establish  "DSPMMJOB"  (pr30) 

MONSAVEl  AOOOOg 

Switch  bit  6 of  channel  11  to  0 (verb-noun  flash  off) 

Perform  "RELDSP" 

If  CADRSTOR  / -fO,  proceed  to  "PINBRNCH" 

End  job 

SHOWS UM2  Perform  "PRIOCHNG"  with  A ■■  07000-  (change  priority  to  07o) 

SKEEP6  - 1 
SMODE  - +0 
SELFRET  = "SELFCHK" 

Proceed  to  "STSHOSUM" 

SDISPLAY  SKEEP3  = SKEEP2 
SKEEP2  TSbank 
MPAC^  - "SKEEPl" 

Proceed  to  "GOXDSPF"  with  TS  ■=  K;V05N01  (SKEEPl,  SKEEP2,  SKEEP3) 

(If  terminate,  continue  at  next  step;  if  proceed,  proceed 
to  "NXTBNK";  if  other  response,  repeat  at  previous  step.) 

SKEEPl  "SELFCHK" 

Proceed  to  "ENDEXT" 
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SELFCHK  SKEEPl 


"ERASCHK" 


CHECKNJ 


ERASCHK 


Perform  "CHECKNJ" 

If  SMODE  - +0: 

Proceed  to  second  step  of  "SELFCHK"  (idle  loop) 

If  SMODE  = -0: 

SCOUNT  - SCOUNT  + 1 

Proceed  to  address  specified  in  SKEEPl 
If  1 SMODE  I > lOg: 

SMODE  - +0 
Proceed  to  "SELFCHK" 

SCOUNT  = SCOUNT  -f  1 

If  IsMODeI  = 1,  2,  3,  6,  7 or  lOg: 

Proceed  to  address  specified  in  SKEEPl 
If  ISMDDEI  = k,  proceed  to  "ERASCHK" 

If  IsMODEI  = 5,  proceed  to  "ROPECHK" 

SELFRET  = return  address 
Proceed  to  "ADVAN" 

(Returns  to  caller  of  "CHECKNJ"  via  SELFRET  if  or  vdien  no 
jobs  require  processing.) 

SKEEP2  - 1 

EBANK  = 0 

SKEEP7  = 0146lg  (address  of  first  non-special  cell  in  bank  0) 
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ERASLOOP 


SKEEP3  = 01777g  (last  address  In  bank  0) 
Inhibit  interrupts 
SKEEP4  = EBANK 

SKEEP5  = EskeEP7 
i = SKEEP7  -t  1 

SKEEP6  = E. 

1 

ERESTORE  = SPCEEP7 

^SKEEP7  - 
E^  - SKEEP7  1 

""  ^SKEEP7  “ ^i 

If  TS  / -1,  perform  "PRERRORS" 

If  ERESTORE  f-  +0:  (did  not  perform  "PRERRORS”) 


^SKEEP7 

E.  = - E. 
1 1 


- E, 


SKEEP7 


^i  ^SKEEP7 

If  TS  / -1,  perform  "PRERRORS' 
If  ERESTORE  / +0: 


Wp7  = 

E.  = SKEEP6 
1 

ERESTORE  = +0 


(restore  original  contents) 


Release  interrupt  inhibit 
Perform  "CHECKNJ" 

EBANK  = SKEEP4  (in  case  it  was  changed  by  another  job) 

SKEEP7  = SKEEP7  + 1 

If  SKEEP7  / SKEEP3,  proceed  to  "ERASLOOP" 
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If  SKEEP2  > 0: 


SKEEP2  SKEEP2  - 1 

SKEEP7  0006lg  (first  non-special  cell  in  unswitched 

erasable) 

SKEEP3  013 73 Q 

Proceed  to  "ERASLOOP" 

(Otherwise  SKEEP2  - 0) 

SKEEP2  1 
EBANK  = EBANK  ! 1 
If  EBANK  2 : 

SKEEP7  - OlAOOg 
SKEEP3  - 01773 Q 
Proceed  to  "ERASLOOP" 

If  EBANK  < lOg: 

SKEEP7  - OlAOOg 
SKEEP3  = 01777g 
Proceed  to  "ERASLOOP" 

EBANK  - 3 
SKEEP2  ■=  50g 

CNTRLOOP  TS  = - contents  of  cell  specified  by  (SKEEP2  -t  iOg) 

If  SKEEP2  > 0: 

SKEEP2  SKEEP2  - 1 
Proceed  to  "CNTRLOOP" 

CYR  ='25252g  (should  cycle  right  and  become  12525g) 

CYL  = 25252g  (should  cycle  left  and  become  52524g) 

SR  = 25252g  (should  shift  right  and  become  12525g) 
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EDOP  = 25252g  (should  shift  right  7 and  become  00125g) 
TS  = 25252g  + CYR  + CYL  + SR  + EDOP  + 52400^ 

If  TS  ^ -1,  perform  "PRERRORS" 

TS  = CYR  f CYL  + SR  + EDOP  + 1 
If  TS  / -1,  perform  "PRERRORS" 

SCOUNT,  ---  SCOUNT,  ■+  1 

1 j. 

SKEEPl  - "ROPECHK" 

Proceed  to  second  step  of  "SELFCHK" 


PRERRORS 


If  ERESTORE  / +0: 


^SKEEP7  ^ "^"^5 
E^  = SKEEP6 


ERESTORE  = fO 


(restore  original  contents) 


Inhibit  interrupts 

SFAIL  return  address 

ALMCADR,  SFAIL  f bank  information 
dp 

ERCOUNT  - ERCOUNT  + 1 
TS  = 01102g 


Perform  "ALARM"  skipping  first  two  steps 


If  SMODE  S +0: 


SMODE  - -tO 


Proceed  to  "SELFCHK" 


If  SMODE  < 0,  proceed  to  "SELFCHK" 
Return  via  SFAIL 
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ROPECHK  SKEEP6  -0 


STSHOSUM 


COMAD  P?S 


FXADRS 


ADRSCHK 


SKEEP4  = 0 
SKEEP7  - 1 
SKEEPl  0 
SKEEP3  OOOOOg 
SKEEP5  - 1 
L = SKEEP4 

FCADR  bits  15-11  of  SKEEP4  + SKEEP3 
Perform  "SUPDACAL" 

SKEEP2  = A (contents  of  fixed  memory  cell  specified  by 

FCADR  and  L) 

SKEEPl  = SKEEPl  + SKEEP2  vd.th  end  around  carry  of  + overflow 
TS  02000g  < SKEEP3  - SKEEP2 
Proceed  to  "ADRSCHK" 

SKEEP2  = contents  of  cell  specified  in  SKEEP3  (fixed-fixed 

banks  2,3) 

SKEEPl  - SKEEPl  4 SKEEP2  with  end  aroimd  carry  of  + overflow 

TS  = SKEEP3  - SKEEP2 

TSadr  = bits  10-1  of  SKEEP3 

If  TSadr  = Ol777g,  proceed  to  "SOPTION"  (end  of  bank) 

If  SKEEP5  < 0,  proceed  to  "SOPTION"  (2  consecutive  TC  SELF 
instructions  have  been  encountered,  indicating  that  the 
rest  of  the  bank  is  unused) 

If  TS  = -0:  (contents  of  cell  equals  its  address) 

If  SKEEP5  = 0,  SKEEP5  = -1  (2nd  consecutive  TC  SELF) 

If  SKEEP5  > 0,  SKEEP5  = SKEEP5  - 1 (1st  TC  SELF) 

If  TS  / -O,  SKEEP5  = 1 
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(SKEEP6  = 1 or  -0) 

If  SKEEP6  > 0 and  NEWJOB  > 0: 

Proceed  to  "CHANGl" 

When  jobs  of  higher  priority  are  finished  (if  any), 
"CHANGl"  will  return  here 

Proceed  to  "ADRS+l" 

If  SKEEP6  - -0,  perform  "CHEGKNJ" 

APRS  1 1 3KEEP3  - SKEEP3  i 1 (increment  address) 

If  SKEEP7  > '0,  proceed  to  "COMADRS" 

Proceed  to  "FXADRS" 

SOPTION  TSbank  - integral  part  of  SKEEP4  (rescaled  from  B4  to  B14) 

TS  • 8^  (fractional  part  of  SKEEP4)  (rescaled  from  B4  to  B14) 
If  TS  / 0:  (equals  30g  or  40g) 

TSbank  - TS  i TSbank  - 30g 
If  SKEEP6  / 0,  proceed  to  "SDISPLAY" 

SKEEPl  - jSKEEPll 

If  SKEEPl  / TSbank,  perform  "PRERRORS" 

NXTBNK  If  SKEEP4  = 33.04g; 

If  5KEEP6  / 0,  proceed  to  "STSHOSUM" 

Proceed  to  "SELFCHK" 

SKEEP4  = SKEEP4  + 1 

If  SKEEP4  - 30g,  SKEEP4  = SKEEP4  + 0.03^  (Oil  in  bits  7-5 

for  "SUPDACAL") 

If  SKEEP4  ^ 40g,  SKEEP4  = 30.04^  (lOO^  in  bits  7-5 

“ “ for  "SUPDACAL" ) 

(Only  difference  between  address  in  banks  30g-33Q  and  40c>-43f> 
is  the  SUPERBNK  setting.) 
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If  SKEEP7  > 0; 


SKEEP7  SKEEP7  - 1 (+0  if  0) 

SKEEPl  0 
SKEEP3  OOOOOg 
SKEEP5  1 

Proceed  to  "COMADRS" 

If  SKEEP7  tO: 

SKEEP7  -1 
SKEEP3  - OOOOOg 
SKEEPl  0 
SKEEP5  1 
Proceed  to  "PXADRS" 

If  SKEEP7  = -1:  (bank  3) 

SKEEP7  -0 
SKEEP3  = 06000g 
SKEEPl  = 0 
SKEEP5  - 1 
Proceed  to  "FXADRS" 

SKEEP7  = 64 
SKEEPl  - 0 
SKEEP3  - OOOOOg 
SKEEP5  = 1 
Proceed  to  "COMADRS" 


(banks  2 and  3 are  addressed 
using  the  "fixed-fixed" 
address  scheme  instead  of 
the  normal  bank  address 
scheme) 
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REDO 


MODREG  = 07 


Establish  "DSPMMJOB"  pr(30) 

Perform  "IMTJZERO" 

Perform  "IMUSTALL" 


If  ISSGOOD  = 0,  proceed  to  "S0MERR2" 


NDXCTR  = 0 
TORQNDX  = 0 
OVFLOWCK  = 0 
Set  matrix  JxNbJ  = 0 

DSPTEMl  +1^  = LATITUDE  rescaled  B-2  revs 

dp 

DSPTEMl  = AZIMUTH  twos  complement,  B-1  in  revs 

Proceed  to  "GOFLASH"  with  TS  = K;V06N41 

(If  terminate,  proceed  to  "ENDTESTl" ; If  proceed,  continue 
below;  if  other  response,  repeat  this  step) 

AZIMUTH  = DSPTEMl  ones  complement,  BO  revs 

LATITUDE  = DSPTEMl  +1  rescaled  to  BO  revs 

WANGI  = -cos (LATITUDE) 

WANGO  = sin  (LATITUDE)' 

10  0 
0 sin(AZIMUTH)  cos (AZIMUTH) 

0 -cos (AZIMUTH)  sin(AZIMUTH) 

Perform  "CALCGA" 

Perform  "IMUCOARS" 

If  FLAGWRD3  bit  U (GLOKFAIL)  = 1: 

NDXCTR  = NDXCTR  + 1 

Switch  FLAGWRD3  bit  U (GLOKFAIL)  to  0 
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Perform  "IMUSTALL" 


If  ISSGOOD  = 0,  proceed  to"S0MERR2" 

If  NDXCTR  > 0: 

Proceed  to  "PIPACHK" 

Perform  "IMUFINE" 

Perform  "IMUSTALL" 

If  ISSGOOD  = 0,  proceed  to  "S0MERR2" 

Call  "GOESTIMS"  in  PERFDLAY^  centi-seconds 

dp 

A = "ESTIMS" 

Proceed  to  "JOBSLEEP" 

GOESTIMS  Awaken  job  with  starting  address  "ESTIMS" 

End  task 

ESTIMS  Inhibit  interrupts 

Gall  "ALLOOP"  in  ISECXT  Genti-seconds 
PIPA  = 0 

Release  interrupt  inhibit 

Zero  77  erasable  memory  cells  starting  at  location  "ALXIS  -1" 

GCOMPSW  = 0 

ALXIS  = 144 

CMPX1  = -1 

ALK  = K: soupyO 

ALK^  = K:soupy2 

DELV  0 

GCOMP  = 0 
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SLEEP IE 


TORQUE 


PIPACHK 


PIPATASK 


If  TORQNDX  i 0: 

ERVECTOR  = K:omegms  ( sinLATITUDE, 
TStmark  = TIMENOW 
PCOMP  = 0 
Proceed  to  "SLEEPIE" 


If  TORQNDX  > 0,  perform  "EARTHR*" 


End  job 


DSPTEM2  = 0 
DSPTEM2  +1  = DRIFTI 


sp 


TS  = POSITON  - 1 
SOUTHDR^g  = DRIFTI 


sp 


Perform  "SHOW" 


Proceed  to  "PIPACHK" 

If  NDXCTR  = 0,  perform  "EARTHR*" 
DATAPL  +4  = 17 
LENGTH OT  = 58 
RESULTCT  = 1 

PIPApipiNDEx  ~ ° 

DATAPL  = 0 
sp 

Perform  "CHECKG" 

Call  "PIPATASK"  in  .02  seconds 


End  job 

LENGTHOT  = LENGTHOT  - 1 
If  LENGTHOT  > 0: 

Call  "PIPATASK"  in  5.12  seconds 
Establish  "PIPJOBB" 

End  task 


-cosLATITUDE,  O) 


pr( 20) 
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PIP JOBS  If  NDXCTR  = 0,  perform  "EARTHR*" 


If  LENGTHOT  > 0,  end  job, 

RESULTCT  = 5 
Perform  "CHECKG" 

If  DATAPL  +1  <0: 

DATAPL  +4  = - DATAPL  +4 

DATAPL  +4^^  = DATAPL  +4^^  - DATAPL^p 

TS  - DATAPL  +6,  - DATAPL  +2, 

dp  dp 

If  TS  < 0: 

2^  28  23 

TS  = TS  2 ' (the  2 corresponds  to  2 centlseconds ) 

DSPTEM2^^  = K:dc585  DATAPL  +4  / TS  (with  forced  sign  agreement) 

If  NDXCTR  > 0: 

THETAD  = 0 

Perform  "IMUCOARS" 

Perform  "IMUSTALL" 

If  ISSGOOD  = 0,  proceed  to  "S0MERR2" 

Perform  "SHOW" 

LENGTHOT  = 3990 
TS  = POSITON  - 2 
DRIFTT^p  = - SOUTHDRpg 

If  PIPINDEX  > 0: 

ERCOMP  = ERCOMP  + K:bt5 

X X 

ERCOMP  = ERCOMP  - K:bt5 

y y 

If  PIPINDEX  = 0: 

ERCOMP  = ERCOMP  - K:bt5 

y y 

ERCOMP  = ERCOMP  + K:bt5 
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Perform  "EARTHR* 


ERVECTOR  = 0 

X 

_pQ 

TORQNDX  = (1  - 2 ) 

LOSVEC  = CDU 

X 

Proceed  to  "ESTIMS" 


VALMIS  DSPTEM2  +1  = DRIFTO 
sp 

DSPTEM2  = 0 
Perform  "SHOW" 

ENDTEST1  Switch  FLAGWRDO  bit  8 (IMUSE)  to  0 
MODREG  = -0 


CHECKG 


Ej«tablif?h  "DSPMMJOB"  (pr30) 

Proceed  to  "ENDEXT" 

QPLACE  ==  return  address 
Inhibit  interrupts 


ZERONDX  = - PIPA 

Tf  pTPA 

PIPINDEX 


PIPINDEX 
+ ZERONDX  = 0: 


Release  interrupt  inhibit 

Check  for  new  job  and  perform  it  if  required;  if  a new  job 
is  performed,  proceed  to  2nd  line  of  "CHECKG" 

If  a new  job  is  not  performed: 

Inhibit  interrupts 


Proceed  to  4th  line  of  "CHECKG" 


datapLre2ultct  ip  index 

DATAPLj^^ul'PC'J'  + 1 “ (Channel  3,  Channel  4) 

Release  interrupt  inhibit 

Proceed  to  address  specified  by  QPLACE 
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SHOW 


DSPTEM2  +2  = POSITON 


Proceed  to  " GOFLASH"  with  TS  = K:V06N98 

(if  terminate,  proceed  to  "ENDTESTl" ; if  proceed, 
proceed  below;  if  other  response,  proceed  to  "SHOW") 

Return 

jiARTHR^'-  TSt  = TIMENOW 

TStI  = TSt  - TStmark 
If  TStl  < 0: 

TStl  = TStl  + 2 centi-seconds 

ERCOMP  = mCOMP  + [XSMJ  TStl  ^VECTOR 
TStmark  = TSt 
TS  = "ERCOMP" 

Perform  "IMUPULSE" 

Perform  "IMUSTALL" 

If  ISSGOOD  = 0,  proceed  to  "S0MERR2" 

Return 

ALLOOP  If  OVFLOWCK  > 0,  end  task 
TS  = ALTIM 
If  TS  = +0: 

ALTIMS  = to 
ALTIM  = -0 
If  TS  = -0: 

ALTIM  = to 

If  TS  < 0:  (should  not  be  positive) 

ALTIM  = -(  I ALTIM  | - 1 ) 

If  GEOCOMPS  - 1 r:  0 o-r  LENGTHOT  > 0: 

Call  "ALLOOP"  in  ISECXT  centi-seconds 
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DELV  - FIFA  (most  significant  half  only) 

FIFA  = 0 

Establish  "ALFLT" 

End  task 

ALFLT  If  GEOCOMFS  > 0,  perform  "I/FIFA" 

TS  = [XSM]'^  DELV 
DFIFAY  = - TS 

y 

DFIFAZ  = TS 

z 

If  GEOCOMFS  > 0,  proceed  to  "FERFERAS" 

If  ALT IMS  > 0: 


TS  = 144  - ALXIS 

ALTIM  = 

ALFDK^g 

ALT IMS 

= ALFDK^g  , ^ 

ALDK  = 

ALFDK^S  ^ 2 

ALDK^  = 

ALFDK^g  + 4 

ALDK,  = 
4 

ALFDK^g  + 6 

ALDK^  = 

ALFDKts  ^ 8 

ALDKg  = 

ALFDKts  ^ 10 

ALXIS  = 

ALXIS  - 12 

INTY  = INTY  - Kipipasc  DFIFAY 
DELM  = K:vesc  VLAUN  - INTY 

y y 

INTZ  = INTZ  - Kipipasc  DFIFAZ 

DELM  = K:vesc  VLAUN  - INTZ 
z z 

ALK  = ALDK  ALK 

ALK^  = ALDK^  ALK^ 
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INTY  = INTY  + ALK  DELM 

y 

ALK.  = ALK^  + ALDK 
A’  4-  A 

ANGX  = ANGX  + A ALK,  DELM 

4 y 

VLAUN  = VLAUN  + KiaskO  DELM 

y y y 

ANGZ  - ANGZ  + ALK_  DELM 
2 y 

ALK,  = ALK,  + ALDK, 

6 6 6 

DRIFTO  = DRIFTO  + 4 ALK,  DELM 

6 y 

ACCWD  = ACCWD  + K:ask2  DELM 

y y y 

INTZ  = INTZ  + ALK  DELM 

z 

ALKg  = ALKg  + ALDKg 

DRIFT I = DRIFT I + 4 ALK^  DELM 

o z 

VLAUW  = VLAUN  + KiaskO  DELM 
z z z 

ANGY  = ANGY  + ALK„  DELM 
2 z 

ACCWD  = ACCWD  + K:ask2  DELM 
z z z 

TS  = [tRANSMI]  (POSNV  , VLAUN  , ACCWD  ) 

(POSNV  , VLAUN  , ACCWD  ) = TS 

y y y 

TS  = [tRANSMI]  (POSNV  , VLAUN  , ACCWD  ) 

Z 2!)  Z 

(POSNV  , VLAUN  , ACCWD  ) = TS 
Z z z - 

SNANGi  = sin(K:georgj  ANGi)  (i  = x,  y,  z) 

CSANGi  = cos(K:georgj  ANGi)  (i  = x,  y,  z) 

PERFERAS  Proceed  to  erasable  memory  cell  3400  (E7,  I4OO) 

This  is  the  point  where  the  program  apparently  returns  from  erasable 
memory. 

If  LENGTHOT  > 0: 

LENGTH OT  = LENGTHOT  - 1 
Proceed  to  "SLEEPIE" 

If  TORQNDX  > 0,  LOSVEC-,=  ODU 

‘ X 
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SOMEERRR 


S0MERR2 


OGC  = JxSm]  (-K:georgj)(ANGX,  AN GY,  ANGZ) 

TS  = "OGC" 

Perform  "IMUPULSE" 

Perform  "IMUSTALL" 

If  ISSGOOD  = 0,  proceed  to  "S0MERR2" 

If  TORQNDX  > 0,  proceed  to  "VALMIS" 

PVECTOR  = K:omegms  ( sinLATITUDE,  -cosLATITUDE,  O) 

TStmark  = TIMENOW 

PCOMP  = 0 

Proceed  to  "TORQUE" 

OVFLOWCK  = 1 

Perform  "ALARM"  with  TS  = 01600^ 

Proceed  to  "ENDTEST1" 

Perform  "ALARM"  with  TS  = 01601 g 
Switch  FLAGWRDO  bit  8 (IMUSE)  to  0 
End  job 
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Quantities  in  Computations 


1SECXT:  Single  precision  quantity,  scale  factor  B14j  units  centi-seconds , 

giving  required  period  of  computations  for  "ALIOOP" . 

A:  See  MATX  section. 

ACCWD  , ACCWD  : Double  precision  value  of  horizontal  acceleration  of 
1 aXnch  vehicle  (due  to  sway)  in  north— south  and  east-west  directions 
respectively,  scale  factor  B9,  units  cm/sec^. 

AIDK,  ALDK^:  Set  of  double  precision  buffer  cells  used  to  contain  the 
values  of  the  time  constants  for  the  erection  angles  (PIPA  outputs 
and  east  axis  leveling  angle),  scale  factor  BO,  as  read  from  the 
ALFDK  table  set. 

ALDK^,  ALDK^,  ALDK  : Set  of  double  precision  buffer  cells  used  to  contain 
tne  values  of  the  slopes  of  the  gains  for  azimuth  angle,  vertical  drift, 
and  north-south  drift  respectively;  scale  factor  BO,  read  from  ALFDK 
table  set. 


ALFDK.:  Table  of  erasable  memory  quantities  used  in  "ALFLT"  to  update 
vaiues  of  parameters  to  be  used  for  filtering  in  gyro  drift 
computations.  The  table  consists  of  five  double  precision  constants, 
one  single  precision  constant  (the  setting  for  ALTIM),  and  a reset 
value  of  ALTIMS  (which  could  be  e.g.  -1  for  all  tables).  Values 
must  be  initialized  by  an  erasable  memory  load  (with  the  first  value 
at  "ALFDK",  with  settings  for  ALTIM,  ALTIMS,  ALDK,  ALDK^,  A 
and  ALDKg  stored  in  that  order  (first  two  single  precision, 
double  precision).  Scale  factor  of  first  two  assumed  B14,  and  the 
remainder  assiuned  BO,  in  this  writeup. 


re: 


fnainder 


ALK,  ALK-,  ALK  , ALK  , ALK_ : Values  of  gains  updated  each  cycle  in 
2 4 9 o 

gyro  drift  determination  computations.  ALK  and  ^LK^  are  initialized  to 
non-zero  values  in  "ESTIMS"  and  multiplied  by  time  constants  for 
PIPA  outputs  and  erection  angles  respectively,  with  scale  factors  due 
to  initialization  of  BO  (ALK)  and  B2.  The  others  (ALK^,  ALK^,  and  ALKg) 
are  initialized  to  0 values  in  "ESTIMS",  and  are  incremented  each 
cycle  to  achieve  varying  gains  for  azimuth  angle,  vertical  drift,  and 
north-south  drift  resp)ectively:  all  are  considered  to  have  scale 
factor  BO  (see  ALFDK). 


ALMCADR:  See  PGSR  section. 

ALTIM:  Single  precision  value  of  time  remaining  prior  to  change  in 

filter  constants  for  drift  measurements,  scale  factor  B14,  units 
seconds.  To  cause  a set  of  gains  to  be  used  for  T seconds,  ALTIM 
is  set  to-(T  - 2). 

ALTIMS:  Single  precision  flag  cell  set  to  0 when  a gain  change  should 

be  made  (see  ALTIM),  and  then  reset  (e.g.  to  -1)  when  the  gain  change 
has  been  done,  scale  factor  B14. 

ALXIS:  Single  precision  cell,  scale  factor  B14,  used  to  control  selection 

of  values  from  ALFDK^  erasable  memory  table  (set  to  144  in  "ESTIMS"). 
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ANGX,  ANGY,  ANGZ:  Values  of  determined  angle  changes  about  vertical, 
south,  and  east  axes  respectively,  scale  factor  BO,  units  revolutions 
they  are  azimuth  alignment  angle,  south  axis  leveling  angle,  and 
east  axis  leveling  angle  respectively. 

AZIMUTH:  Double  precision  erasable  memory  constant,  scale  factor  BO, 
units  revolutions.  It  gives  the  azimuth  of  the  vehicle  Z-axis  east 
of  north. 

CMPX1 : Single  precision  cell,  scale  factor  BI4,  used  to  set  proper 
contents  of  index  register  XI  to  permit  use  of  an  index  loop  (X1 
is  set  successively  to  ± 1 ) to  perform  calculations  in  "ALFLT". 

CAURSTOR:  See  DINT  section. 

CSANG^  (i  = X,  Y,  Z):  Values  of  cosine  of  ANGX,  ANGY,  and  ANGZ,  scale 
factor  B1,  stored  in  push-down  list  locations  16D,  18D,  and  20D 
respectively. 

CYR,  CYL,  SR,  EDOP:  Cycle  right,  cycle  left,  shift  right  and  shift  right 
7 registers. 

DATAI-’L:  Set  of  cells  used  to  retain  "prelaunch  data",  loaded  in  "CHECKG' 
with  SEimpled  accelerometer  value  and  corresponding  value  of  time 
information  in  (channel  3,  channel  4)  scaling  (B23  cs). 

DELM  , DELM^:  Value  of  measiirement  quantity  in  south  and  easterly 
directions  used  in  drift  test,  scale  factor  B-2,  units  radians. 

DELV : See  SERV  section. 

DPIPAY,  DPIPAZ:  Value  of  accelerometer  output  modified  for  use  in 

gyro  parameter  calculations.  The  y axis  of  this  system  is  south  and 
and  the  z axis  is  east  (from  fXSM]  ).  Scale  factor  is  BI4,  units 
accelerometer  counts. 

DRIFTI:  Value  of  gyro  drift  measurement  output  displayed  in  "TORQUE", 
scale  factor  (assumed)  BO,  units  radians,  giving  the  south  gyro 
drift . 

DRIFTO:  Value  of  gyro  drift  measurement  output  displayed  in  "VALMIS", 
scale  factor  (assumed)  BO,  units  radians,  giving  the  vertical  gyro 
drift. 

DRIFTT : Input  drift  to  gyro  drift  determination  routine  (to  separate 

east  gyro  drift  from  azimuth  error),  scale  factor  BO,  xanits  radians. 
It  has  only  its  most  significant  half  loaded  by  calling  routines, 
with  the  least  significant  half  set  to  0. 


TEST  - 20 


DSPTAB^  (i  0 - 10);  See  DSKY  section. 

DSPTAB^^:  See  INTR  section. 

DSPTEM1 , etc:  See  DATA  section. 

Contents  of  single  precision  erasable  memory  register  whose 
address  is  ADR. 

EBANK:  See  MATX  section. 

ERCOMP:  Value  of  gyro  compensation  to  be  sent  to  gyros,  scale  factor 
B21 , \inits  pulses  (or  scale  factor  BO,  units  revolutions,  since 
one  pulse  is  2“^”'  revolution). 

ERCOUNT:  Single  precision  count  of  errors  encountered  in  the  erasable 

memory  self-check,  initialized  at  zero  by  a fresh  start. 

ERESTORE:  Single  precision  storage  for  the  address  of  the  first  of  two 

erasable  memory  cells  currently  being  tested  by  the  "ERASCHK"  routine. 
Set  to  +0  when  the  "ERASCHK"  is  complete  or  not  functioning. 

ERVECTOR:  Earth  rotation  vector  initialized  in  "ESTIMS",  scale  factor  B1 , 
units  gyro  pulses  / centi-second. 

FCADR:  See  MATX  section. 

^OMP:  Value  of  required  gyro  compensation  command,  computed  with  a 
scale  factor  B14,  but  used  in  "IMUPULSE"  with  a scale  factor  B21 
(or,  alternatively,  with  a scale  factor  BO  revolutions  rather  than 
B21  gyro  pulses,  since  there  are  2“^  gyro  pulses  / revolution). 

GCOMPSW:  Single  precision  control  cell  used  to  bypass  the  performance 

of  "l/PIPA"  and  "NBDONLY"  if  it  is  negative. 

GEOCOMPS:  Single  precision  control  cell  which  when  positive  will 

cause  the  calculations  performed  in  "ALFLT"  to  be  skipped  and 
control  transferred  to  the  erasable  memory  programs.  Normally 
set  to  0. 

IM0DES30:  See  IMUC  section. 

IMODES33:  See  INTR  section. 

INTY,  INTZ:  Value  of  filtered  accelerometer  output  (corrected  for  vehicle 
sway  etc.)  used  in  gyro  drift  test,  scale  factor  B-2,  units  radians. 
Could  also  be  considered  to  be  "south"  and  "east"  velocity  increments 
expressed  in  units  of  g's  (see  K:pipa3c). 
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iSSGOOU:  See  IMUC  section. 


K:askO:  Constant,  program  notation  "ALSK",  scale  factor  B12,  stored  as 
05427  12577-,  equation  value  709.833965.  Value  corresponds  to 
0.72402338  X 980.402  X where  first  term  is  wind-induced  sway 

accelerometer  gain,  second  converts  DELM  to  units  of  cm/sec  (ie.  units 
of  VLAUN),  and  third  term  is  scale  factor. 


K;ask2:  Constant,  program  notation  "ALSK  +2",  scale  factor  B12,  stored 
as  77567  44202^,  equation  value_Y34. 2167470.  Value  corresponds  to 
0.03490074  X (-1)  X 980.402  X 2 , where  first  terra  is  wind-induced 

accelerometer  gain,  second  is  an  equation  factor,  third  converts  to 
units  of  cm/sec*^,  and  fourth  term  is  scale  factor. 


K:bt5:  Constant,  program  notation  "BIT5",  scale  factor  BO,  units 
revolutions,  stored  as  00020g,  equation  value  0.00098.  Value  is 
2"^*^  revolution  corresponding  to  about  360/1024=  0.35°,  serving 
to  offset  platform  to  account  for  accelerometer  dead  zones.  Could 


also  be  considered  to  have  value  of  2 
are  2^”'  pulses/rev. 


gyro  torquing  pulses;  there 


K:dc585:  Constant,  program  notation  "DEC585",  scale  factor  B9,  stored 
as  06200g,  equation  value  100.0.  The  100  corresponds  to  1 .0  x 100, 
where  first  term  is  accelerometer  nominal  scale  factor  (cm/sec  per  count) 
and  second  converts  denominator  in  "PIPJOBB"  from  unitg  of  centi-seconds 
to  seconds.  Result  has  scale  factor  BI4,  units  cm/sec  (measured 
gravity,  with  integral  part  in  R1  of  N98  and  fractional  part  in  R2). 

K:georgj:  Constant,  program  notation  "CEORGEJ",  scale  factor  B-2,  stored 
as  24276  I4O66-,  equation  value  0.159154942.  Value  corresponds  to 
(l/2'ir)  X 2'^,  to  convert  between  radians  and  revolutions  (the  interpre- 
tive language  trig  functions  require  angle  measurements  in  revs). 

K:oraegms:  Constant,  program  notation  "OMEG/MS",  scale  factor  BO,  un>ts 
gyro  pulses/centi-second,  stored  as  07623  26552-,  equation  value  „ 
0.243390478.  Value  corresponds  approximately  to  (1/86164.0932)  x 10  x 
2^\  where  first  term  is  earth  rotation  period  in  seconds  (used  to  de- 
rive constant),  second  converts  to  centi-seconds,  and  third  is  number 
of  gyro  torquing  pulses  in  one  revolution. 

K-.pipasc:  Constant,  program  notation  "PIPASC",  scale  factor  B-7,  stored 
as  04133  022650,  equation  value  0.001019989.  Value  corresponds  to 
1.0  X (1/980.402)  X 2'  where  first  term  is  nominal  accelerometer  scale 
factor  (cm/sec  per  count),  second  is  normalization  factor  (acceleration 
due  to  gravity),  and  third  is  scale  factor.  For  convenience  in 
description,  a fourth  factor  of  "i/second"  has  been  ass^aned  reflected  in 
this  constant,  giving  for  units  of  result  (in  INTY  etc.)  radians. 
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KtsoupyO:  Constant,  program  notation  "SOUPLY",  scale  factor  BO,  stored 
as  35730  00035rt>  equation  value  0,935058704.  Used  in  "ESTIMS"  to 
initialize  ALK. 

K:soupy2;  Constant,  program  notation  "SOUPLY  +2",  scale  factor  B2, 
stored  as  10317  17550^,  equation  value  1.05065691.  Used  in 
"ESTIMS"  to  initialize  ALK^. 

K:V06N98:  See  list  of  major  variables. 

K:vesc:  Constant,  program  notation  "VELSC",  scale  factor  B-9 , stored 
as  57223  66451rt>  equation  value  -0.001019989.  Value  corresponds  to 
(-1)  X (I/98O.4O2)  X 2^,  where  first  terra  is  an  equation  factor, 
second  converts  for  acceleration  due  to  gravity,  and  third  is  scale 
factor. 

L:  See  MATX  section. 

LATITUDE:  Erasable  memory  (double  precision)  constant,  with  scale 

factor  BO,  imits  revolutions.  It  gives  the  local  vertical  astronomi- 
cal latitude  of  the  pad. 

LENGTHOT:  Single  precision  cell,  scale  factor  B14>  used  to  contain  time 
duration  information.  It  is  loaded  in  "PIPACHK"  and  "PIPJOBB"  and 
decremented  in  "PIPATASK"  and  "PERFERAS" . 

LOSVEC,  LOSVEC^ : Single  precision  cells,  scale  factor  B-1 , units 
revolutions,  used  to  contain  the  value  of  CDU  in  "PIPJOBB"  and 

' X 

when  the  program  returns  from  erasable  memory,  for  use  in  DSKY 
monitoring  of  performance  (by  an  address-to-be-specified  noun). 

MODREG:  See  DATA  section, 

M0NSAVE1:  See  DATA  section. 

MPAC2:  See  DINT  section. 

NDXCTR:  Single  precision  cell,  scale  factor  BI4,  initialized  to  0 in 

"REDO"  and  incremented  to  1 for  a "gimbal  lock"  return  from 
"CALCGA"  (angle  of  60  degrees  or  more). 

NEWJOB:  See  MATX  section. 

NOUT:  See  INTR  section. 

OGC:  See  COOR  section. 

OVFLOWCK:  Single  precision  flag  which  will  terminate  the  IMU  performance 

test  if  set.  It  is  initialized  to  zero  in  "REDO"  and  set  in 
"SOMEERRR"  to  indicate  overflow  has  occurred  somewhere  in  the 
erasable  memory  program  calculations. 
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FERFDLAY:  Communication  cell  with  routine  calling  "GOESTIMS",  apparently 
not  loaded  by  program  control.  Scale  factor  B28,  units  centi-seconds . 
(the  "LONGCALL"  entrance  to  the  waitlist  system  is  iised). 

PIPA:  See  IMUC  section. 

PIPINDEX:  Single  precision  cell,  scale  factor  B14,  used  to  select 

accelerometer  axis  under  test  (0,1,  and  2 for  X,  Y,  Z respectively). 

Must  be  loaded  manually. 

POSITON:  Single  precision  cell,  scale  factor  BI4,  used  fo’'  indexing  and 
display  purposes  (used  in  previous  programs  to  select  desired  stable 
member  orientation  from  fixed  memory  information).  Must  be  loaded 
manually  (inputs  in  "SHOW"  do  not  change  it.). 

POSNV  , POSNV^:  Values  of  horizontal  displacement  of  launch  vehicle 

in  south  and  east  directions  respectively,  assumed  scale  factor 
B9,  units  cm  (assumed  since  scaling  of  [TRANSMij  elements  not 
known,  but  treated  as  B1  ) 

QPLAcE:  Single  precision  cell  used  to  retain  return  address  information. 

RADMODES:  See  RADR  section. 

PIESULTCT:  Single  precision  cell,  scale  factor  BI4,  used  to  select  the 
proper  storage  locations  in  "CHECKG" ; it  is  set  to  1 a^  the  start 
of  the  accelerometer  sampling  interval  and  to  5 at  its  end,  to 
cause  storage  in  appropriate  DATAPL  locations. 

SCOlINT,  SCOUNT^  : Single  precision  counters  incremented  to  count  cycles 
through  the  self-check  and  erasable  memory  test  routines,  respectively. 

SELFRET : Single  precision  storage  for  the  address  of  the  current  position 
in  the  self-check  routine,  for  return  after  other  jobs  are  completed. 

SFAIL:  Single  precision  address  in  the  self-check  routine  where  an  error 
was  detected. 

SKEEP1 : Single  precision  storage  for  the  branching  address  in  the 

self-test  routine,  or  for  an  octal  bank  sum  (the  sum  of  the  contents 

of  all  the  cells  in  a bank  of  fixed  memory),  accumulated  with  end 

aromd  carry  of  a + or  - overflow  (+1  for  overflow;  -1  for  - overflow). 

(Example  of  end  around  carry  of  overflow:  25701  + 32405j,  = 20307^) 

000 

SKEEP2:  Single  precision  cell  used  in  the  bank  sum  display  as  temporary 
storage  for  the  bank  number.  Used  in  the  erasable-memory  self-check 
to  indicate  whether  the  bank  being  checked  is  a normal  bank  or  the 
imswitched  bank.  Used  in  the  fixed-memory  self-check  as  temporary 
storage  for  the  value  in  the  cell  being  checked. 
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SKEEP3:  Single  precision  cell  used  as  temporary  storage  for  the  "bugger 
word"  during  a bank  sum  display.  (The  bugger  word  is  the  ]ast  word  in 
a fixed  memory  bank  which  adjusts  the  sum  to  make  it  equivalent  to  the 
bank  number.)  Used  in  the  erasable-memory  self-check  as  storage  for 
the  last  address  in  the  bank  to  be  checked.  Used  in  the  fixed-memory 
self-check  as  storage  for  the  address  of  the  next  fixed-memory  cell 
whose  contents  are  to  be  added  to  the  bank  sum. 

SKEEP4:  Single  precision  storage  for  the  value  of  the  EBANK  in  the 
erasable-memory  self-test  routines,  scaled  B6  and  expressed  as  an 
octal  number.  Single  precision  storage  for  the  value  of  the  FBANK 
number  in  the  fixed-memory  self-test  routines,  scaled  B4  and  expressed 
as  an  octal  nmber  with  the  SUPERBNK  setting  in  bits  7-5,  the  64ths 
octal  digit. 

SKEEP5:  Single  precision  storage  for  the  contents  of  the  first  of  two 
consecutive  E-memory  cells  being  checked;  or  single  precision  index 
indication  (by  being  set  to  +0  and  then  to  -1)  that  two  consecutive 
fixed-memory  cells  contain  their  own  addresses  (TC  SELF),  thus  sig- 
nifying that  the  remainder  of  a bank  contains  no  information. 

SKEEP6:  Single  precision  storage  for  the  contents  of  the  second  of  two 
consecutive  E-memory  cells  being  checked;  or  a single  precision  flag 
set  to  -0  to  indicate  a standard  fixed-memory  check  or  1 to  indicate 
a verb  91  bank  sum  display. 

SKEEP7:  Single  precision  address  of  the  first  of  two  consecutive 
E-memory  cells  being  checked;  or  a single  precision  index  counted 
down  to  signal  banks  2 and  3 so  that  they  may  be  addressed  directly 
instead  of  through  the  FBANK  setting. 

SMODE:  Single  precision  index  set  equal  to  "•'O  to  stop  the  LGC  self-test; 

set  to  -0,  ± 1 , ± 2,  ± 3,  ^ 6,  ^ 7,  or  ± lOg  to  cause  the  self-test 
routine  to  alternate  between  "ERASCHK"  and  "ROPECHK" ; set  to  ± 4 to 
cause  the  self-test  routine  to  perform  only  "ERASCHK",  and  set  ± 5 to 
cause  the  self-test  routine  to  perform  only  "ROPECHK".  If  an  error  is 
encomtered,  the  self -test  routine  will  return  to  idle  \inless  SMODE 
is  negative. 

SNANG. : (i  = X,Y,Z),  value  of  sine  of  ANGX,  ANGY,  and  ANGZ,  scale  factor 

B-i,  stored  in  push-down  list  locations  10D,  12D,  and  14D  respectively. 

SOUTHDR  • Indexed  cell  used  in  "TORQUE"  to  retain  the  value  of  DRIFTI 

i sp 

for  subsequent  initialization  of  DRIFTT  in  "PIPJOBB",  for  proper 

initialization  (e.g.  to  l)  and  subsequen?  incrementing  (e.g.  to  2) 
of  POSITON. 

T0RQ^.'DX:  Quantity  set  to  0 if  no  torquing  is  performed  and  to  1 (scale 

factor  BO)  if  torquing  is  to  be  performed  via  "EARTHR*"  at  the 
start  of  "SLEEPIE". 
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[TRANSMi]:  Transformation  matrix  used  as  a sway  transition  matrix, 
contained  in  erasable  memory  (must  be  initialized  to  values  as 
part  of  an  erasable  memory  load  before  running  test).  Assumed 
scaling  in  this  writeup  for  all  elements  is  B1  (after  being  used  to 
perform  multiplication,  a left  shift  of  1 is  done). 

TStraark:  Value  of  time  when  previous  earth-rate  compensation  was  made, 
scale  factor  B23,  units  centi-seconds . 

VLAUN  , VLAUN  : Value  of  horizontal  velocity  of  launch  vehicle  (due 
to^sway)  in  north-south  and  east-west  directions  respectively, 
scale  factor  B9,  units  cm/sec. 

WANGI:  Value  of  (-cos  LATITUDE)  loaded  in  "REDO",  scale  factor  BO. 

WANGO:  Value  of  (sin  LATITUDE)  loaded  in  "REDO",  scale  factor  BO. 

: See  COOR  section. 

[XSM]  : See  COOR  section . 

ZERONDX:  Single  precision  cell,  used  as  an  input  parameter  to  an 
erasable  memory  zeroing  routine,  (not  shown  in  this  writeup). 

It  is  loaded  in  "CHECKG"  with  accelerometer  information  whenever 
checks  for  accelerometer  output  are  made  after  an  interruption. 
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TRGL 


Targeting  - Lambert 


Uk 

P7/ 


P34/P74C 


INTLOOP 


Switch  FLAGWRD2  bit  5 (AVPLAG)  to  1 
Skip  next  step 

Switch  FLAGWRD2  bit  5 (AVFLAG)  to  0 

Switch  FLAGWRDl  bits  5 (TRACKFLG)  and  7 (UPDATFLG)  to  1 

Proceed  to  "GOFLASH"  with  TS  = K:V06N37  (TTPI) 

(if  terminate,  proceed  to  "GOTOPOOH" ; if  proceed, 
continue  at  next  step;  other  response,  repeat  this 
step . ) 

CENTANG  = K:130DEG 

NN  = 0 (most  significant  half  only) 

Perform  "DISPLAYE" 

Switch  FLAGWRD2  bit  7 (ETPIFLAG)  to  0 
TIG  = TTPI 

If  ELEV  / 0,  switch  FLAGWRI)2  bit  7 (ETPIFLAG)  to  1 
Perform  "SELECTMU" 

Perform  "W1645" 

Switch  FLAGWRD7  bit  15  (ITSWICH)  to  1 

If  FIJi.GWRD2  bit  7 (ETPIFLAG)  = 0: 

Switch  FLAGWRD7  bit  15  (ITSWICH)  to  0 

NOMTPI  = 0 

TDECl  = TTPI  + NOMTPI 

Perform  "PRECSET"  (get  RACT3 , VACT3,  RPASS3,  VPASS3) 
Perform  "S33/34.1"  (get  ELEV  or  TPI  time) 

If  TSnosol  / 0:  (no  solution) 
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Perform  "ALARM"  with  TS  = 00611^ 

o 

Proceed  to  "GOFLASH"  with  TS  = K:V05N09 

(If  terminate,  proceed  to  "GOTOPOOH";  if  proceed, 
proceed  to  the  second  step  of  "P74";  other 
response,  proceed  to  previous  step.) 

If  FLAGWRD7  bit  15  (ITSWICH)  = 1: 

Switch  FLAGWRD7  bit  15  (ITSWICH)  to  0 

Proceed  to  "INTLOOP" 

If  FLAGWRD2  bit  7 (ETPIFLAG)  = 0,  perform  "DISPLAYE" 

If  FLAGWRD2  bit  7 (ETPIFLAG)  = 1: 

Proceed  to  "GOFLASH"  with  TS  = K:V06N37  (TTPI) 

(If  terminate,  proceed  to  "GOTOPOOH";  if  proceed, 
continue  at  next  step;  other  response,  repeat 
this  step.) 

CSTH  = cosCENTANG 

SNTH  = sinCENTANG 

RVEC  = RPASS3  (both  shifted  left  two  if  necessary  to 

make  the  scaling  B29  and  B7  (earth) 

WEC  = VPASS3  or  B27  and  B5) 

Switch  FLAGWRD7  bit  9 (RVSW)  to  1 

Perform  "TIMETHET" 

INTIME  = TTPI 

TPASS4  = TTPI  + T 

Perform  "S34/35.2"  (get  DELVEET3  and  DELVLVC) 

DELVTPI  = (dELVEET3| 

DELVTPF  = |WASS4  - VTPRIME| 

RVEC  = MCT3  (both  shifted  left  two  if  necessary  to 

make  scaling  equivalent  to  that  in  CONC) 

VVEC  = VIPRIME 
Perform  "PERIAPO" 
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POSTTPI  = TShp 
TIG  = TTPI 

Proceed  to  "GOFLASH"  with  TS  = K:V06N58  (POSTTPI, 

DELVTPI,  DELVTPF) 

(if  terminate,  proceed  to  "GOTOPOOH";  if  proceed, 
continue  at  next  step;  other  response,  repeat  this 
step. ) 

Perform  "S34/35.5"  (get  MLVSIN  and  clear  XDELVFLG) 

Perform  ■VII1645"  (astronaut  recycle  or  finalize  options) 

Proceed  to  "P34/P74C" 

DISPLAYE  NORMEX  = return  address 

Proceed  to  "GOFLASH"  with  TS  = K:V06N55  (NN,  ELEV,  and  CENTANG) 

(if  terminate,  proceed  to  "GOTOPOOH";  if  proceed, 
return  via  NORMEX;  other  response,  repeat  this  step.) 

534/ 35.5  SUBEXIT  = return  address 

If  FLAGWRD2  bit  6 (FINALFLG)  = 0: 

Switch  FLAGWRDl  bit  7 (UPDATFLG)  to  1 

Perform  "S34/35.4" 

Proceed  to  "GOFLASH"  with  TS  = K:V06N59  (DVLOS) 

(if  terminate,  proceed  to  "GOTOPOOH";  if  proceed, 
continue  at  next  step;  other  response,  repeat 
this  step . ) 

Return  via  SUBEXIT 

Switch  FLAGWRD6  bit  3 (NTARGFLG)  to  0 
GDTd2  = pLVLVC 

Proceed  to  "GOFLASH"  with  TS  = K:V06N8l  (DELVLVC) 

(if  terminate,  proceed  to  "GOTOPOOH";  if  proceed, 
continue  at  next  step;  other  response,  repeat  this 
step . ) 
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TSsum  = 0 


NTARGCHK 


P35 


U1 


P33/P75B 


TS  - GDTd2.  - DELVLVC.  (check  for  astronaut  overwrite 
^ ^ of  DELVLVC) 

TSsiam  = TSsum  TS 

If  i>  0: 

i - i - 1 

Proceed  to  "NTARGCHK" 

If  TSsum  ^ 0: 

Switch  FLAGWRD6  bit  3 (NTARGFLG)  to  1 
Perform  "S34/35.3" 


PLVSIN  = DELVEET3 
Perform  "S34/35.4" 

Proceed  to  "GOFLASH"  with  TS  = K:V06N59  (DVLOS) 

(If  terminate,  proceed  to  "GOTOPOOH";  if  proceed, 
continue  at  next  step;  other  response,  repeat  this 
step. ) 

Retiirn  via  SUBEXIT 

Switch  FLAGWRD2  bit  5 (AVFLAG)  to  1 

TK  = ATIGINC 

Skip  next  two  steps 

Switch  FLAGWRD2  bit  5 (AVFLAG)  to  0 

TK  = PTIGINC 

Switch  FLAGWRDl  bits  5 (TRACKFLG)  and  7 (UPDATFLG)  to  1 
Perform  "SELECTMU" 

Perform  "VN1645" 

TSTRT  = TIMENOW 
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TIG  = TSTRT  + TK 


INTIME  = TIG 
TDECl  = TIG 
Perform  "PRECSET" 

ULOS  = unit(RPASS3  - RACT3) 

PRM  = unit(MCT3  VACT3) 

Perform  "S34/35.2"  (Lambert  solution) 

Perform  "S34/35.5"  (get  DELVSIN) 

Perform  "VN1645"  (astronaut  recycle  or  finalize) 

Proceed  to  "P35/P75B'’ 

S33/34.1  NORMEX  = return  address 
TITER  =•  -Krposmaxsp 
SECMAX  = K:MAX250 
RAPREC  = RA.GT3 
VAPREC  - VACT3 
RPPREC  - ^ASS3 
VPPREC  - VPASS3 

ELCALC  ULOS  = unit(pASS3  - RACT3) 
ipiM  - unit(MCT3  VACT3) 

IIP  - unit(UL0S  - (ULOS  • unitMCT3)  unitMCT3) 

TSelev  = arccos(lJP  • l^OS  sign(pRM  * MCT3  • UP)) 

(TSelev  is  positive,  between  0 and  180  degrees  - 0 and  ^ rev) 
If  ULOS  . RACT3  < 0: 

TSelev  = Kiposmaxdp  - TSelev 
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If  FLA-IWRDV  bit  15  (ITSWICH)  = 0: 

TTPI  = TTPI  + NOMTPI 
If  FLAGWRD2  bit  7 (ETPIFLAG)  0 
ELEV  = TSelev 
TSnosol  = 0 
Return  via  NORMEX 
DELELO  = DELEL 
DELEL  = TSelev  - ELEV 
If  I DELEL I < K;ELEPS; 

TSnosol  = 0 
Return  via  NORMEX 
If  TITER  ^ 1; 

TSnosol  = 1 
Return  via  NORMEX 
TITER  = TITER  - 1 
TSrdif  = iRPASS3l  - jMCT3l 
TS  = (i-  - ELEV)  signTSrdif 
If  TS  < 0:  (desired  ELEV  impossible) 

TSnosol  = TS  (/  O) 

Return  via  NORMEX 

TScsd  = -cos(2-  - ELEV)  |MCT3l  / 1FASS3  1 
TS  = 1 - [TScsd  I 
If  TS  < 0: 

TSnosol  = TS 
Return  via  NORMEX 
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TS16  = |K^ASS3|  unit(l]NM  * unitMCT3)  • VACT3 
TS  = unit^ASS3  ^ VPASS3 

TS16  = TS16  - |RACT3l  ixrLit(TS  unit^ASS3)  • VPA333 

TSs  = unitm\CT3  ^ unit^ASS3  • UNRM 

TSc  - arccos('anit_^CT3  * unitRPASS3)  signTSs 

TSca  = (g-  - arccosTScsd)  signTSrdif  + ELEV  - j + TSc 

TSt  = K:TWOPI  TSca  | MCT3  [ |^ASS3  1 / TS16 

If  |TStl  > SECMAX,  TSt  = SECMAX  signTSt 

If  TITER  < 0;  (first  pass) 

TITER  = 14 
DELTEEO  = TSt 

DELTEE  = TSt 
Proceed  to  "ADTIME" 

If  DELEL  DELELO  < 0:  (solution  is  surrounded) 

SECMAX  = SECMAX  / 3 
DELTEEO  = - iTStj  signDELTEEO  / 2 
DELTEE  = DELTEEO 
Proceed  to  "ADTIME” 

If  I DELELO I < I DELEL]: 

DELTEEO  = -DELTEEO  / 2 
DELTEE  = 3 DELTEEO 
Proceed  to  "ADTIME" 

DELTEEO  = jTStj  signDELTEEO 
DELTEE  = DELTEEO 
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ADTIME 


NOMTPI  = NOMTPI  + DELTEE 


Perforin  "INTINT"  with  TSv  = VAPREC,  TSr  = ^PliEC,  TSo  = 0, 
TSt  = NOMTPI,  and  TSlntyp  = NOMTPI 

RACT3  PTT 

VACT3  = VATT 

Perform  "INTINT"  with  TSv  = VPPKEC,  TSr  ^ RPPKri;,  TSo  ^-0, 
TSt  = NOMTPI,  and  TSintyp  = NOMIPI 

j^ASS3  = MTT 

VPASS3  = VATT 

Proceed  to  "ELOALC" 

S 34/35 .2  SUBEXIT  = return  address 

TSv  = WASS3,  TSr  = RPASS3,  TSo  = INTIME,  and  TSt  = TPASS4 

If  most  significant  half  of  NN  = 0: 

TSintyp  = KiTWOPI 
Perform  "INTINT" 

If  most  significant  half  of  NN  ^ 0: 

TSintyp  = 0 
Perform  "INTINT" 

PALS  = RATT 

VPASS4  = VATT 

ACTCENT  = arccos (unitRACT3  " unitpARO)  sign(unitMCT3  ^ 
unitpARG  ' UNRM) 

If  ACTCENT  ^ 0,  ACTCENT  = K:posmaxdp  + ACTCENT 

DELLT4  = TPASS4  - INTIME 

VTARGTAG  = NN 

CNANGL  = KiEPSFOUR 

PNIT  = pCT3 

VINIT  = VACT3 

Perform  "INITVEL" 
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DELV1.VC 


-unitMCT3  * UNRM 

-UNRM 

-unitMCT3 


DELVEET3 


Return  via  SIJREXIT 


S34/33 .3  NORMIX  = return  address 


DELVEET3  = DELVLVC 


-unitpCT3  ^ UNRM 

-PRM 

-unitRACT3 


Perforin  "INTINT"  with  TSv  = PLVEET3  + VACT3,  TSr  = pCT3, 
TSo  =■  TIG,  TSt  = TPASS4,  and  TSintyp  = Kiposmaxdp 


RTARG  = RATT 


DVLOS 


pos 

-unit(UL0S  ^ pRM)  ULOS 
-unit(pOS  ■»  PRM) 


Return  via  NORMEX 
534/35 .4  NORMEX  = return  address 


DVLOS  - 


pos 

-unit(pOS  * UNRM)  *,pOS 
-unit (ULOS  » PRM) 


Return  via  NORMEX 


DELVEET3 


DELVEET3 


INITVEL  Switch  FLAGWRDl  bit  2 (GUESSW)  to  1 
HAVEGUES  NORMEX  = return  address 
PARGI  = pARG 

If  MUDEX  / 0,  rescale  MNIT,  VINIT,  and  OTARGl 

RTMAG  = I RTARG 1 I 

ITCTR  = -1 

C0ZY4  = cosCNANGL 

PVEC  = MNIT 

PVEC  = RTARGl 

TDESIRED  = DELLT4 


P = unit(unitpNIT  ^ VINIT) 

C0ZY4  = (unitpARGl  ’ unitMNIT)  + C0ZY4 
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Switch  FLAGWRII7  bit  10  (NORMSW)  to  0 


INITVEL2 


If  C0ZY4  < 0: 

Switch  FLAGWRD7  bit  10  ( NORMSW ) to  I 

R2VEC  =:  |R2VEC|  uiilt(R2VEC  - (R2VEC  ’ UN)  UN) 

If  ITCTR  < 0,  RTARGl  = R2VEC 

XI  = -MUDEX  - 2 (-2  for  earth  sphere.  -10  I’or  lunar  sphere) 


TS  = unitRlVEC  unitR2VEC 


TSz  = Z component  of  TS 
If  TSz  > 0,  XI  = XI  + 10 
If  TSz  £ 0,  XI  = XI  + 2 


If  XI  = 0,  TS  = -TS 


TS  = (TS  unitRlVEC)  * unit  R2VEC 


If  TS  2 0,  GEOMSGN  = K:MUo 
If  TS  < 0,  GEOMSGN  = -K:MUo 
ITERCTR  = 20 
Perform  "LAMBERT" 


(only  most  '-.ignif leant  half  of 
K:MUo  is  used  for  setting  GEOMSGN) 


Switch  FLAGWRDl  bit  2 (GUESSW)  to  0 


VIPRrtE  WEC 

If  VTARGTAG  = 0,  proceed  to  "INITVEL7" 

Perform  "INTSTALL" 

Switch  FLAGWRDO  bit  12  (MOONFLAG)  to  0 

If  MUDEX  ^ 0,  switch  FLAGWRDO  bit  12  (MOONF'LAG)  Io  1 

RIVEC  = RINIT 

RCV  = RINIT 

VCV  = VIPRIME 

TET  = INTIME 

TDECl  = INTIME  + DELLT4 

Switch  FLAGWRD3  bit  4 (INTYPFLG)  to  0 
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Perform  "INTEGRVS" 


INITVEL7 


VTARGET  = VATT 
ITCTR  = ITCTR  + 1 
If  ITCTR  / VTARGTAG : 

R2VEC  = R2VEC  + RTARGl  - MTT  (bias  target  vector) 
Proceed  to  "INITVEL2" 


RTARGl  = R2VEC 

DELVEET3  = VIPRIME  - VINIT 

VTPRIME  = VTARGET 

If  MUDEX  i 0,  rescale  VTPRIME,  VIPRIME^  PLVEET3,  and  RTARGl 
MUE  . K:MUTABLE^^^^ 

MUdA  = (MUE)  (RdA)  / R1 
Rescale  MUE 


MUASTEER  = MUE 
RTARG  = OTARGl 

Switch  FLAGWRD2  bit  8 (XDELVFLG)  to  0 
Ret\irn  via  NORMEX 
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Quantities  in  Computations 

ACTCENT;  Double  precision  central  angle  between  active  and  passive 
vehicles,  scaled  BO  in  units  of  revolutions. 

ATIGINC:  Double  precision  time  between  ruiacourse  burn  targeting  by 
the  active  vehicle  and  TIG,  scaled  B28  in  units  of  centiseconds . 

Part  of  the  erasable  load. 

CENTANG:  Double  precision  central  angle  b--.tween  Li.  > passive  vehicle's 
position  at  TIG  and  at  intercept,  scaled  BO  In  un  ts  of  revolutions. 

CNANGL:  Double  precision  central  angle  /f  a cone  o/ound  -RINIT,  scaled 
BO  in  units  of  revolutions.  Target  vectors  within  this  cone  are  pro- 
jected into  the  orbital  plane  of  the  active  vehicle  because  of  the 
sensitivity  of  the  transfer  plane  orientation  to  a change  in  RTARG 
when  RTARG  is  close  to  -RINIT. 

C0ZY4;  Value  used  by  "INITVEL"  to  determine  if  t.ne  original  target 
position  vector  falls  within  the  cone  specified  by  CNANGL.  Scaled 
B2  and  unitless. 

CSTH:  See  CONG  section. 

DELEL,  DELELO:  Double  precision  present  and  previouo  increments  to 
ELEV  during  the  TPI- time/elevation-angle  iteration,  scaled  BO 
in  xanits  of  revolutions. 

DELLT4:  Double  precision  maneuver  transfer  time,  scaled  B28  in  units 
of  centiseconds. 

DELTEE,  DELTEEO:  Double  precision  increment  to  NOMTPI  during  the 
TPI-time/elevation-angle  iteration,  scaled  B28  in  units  of 
centiseconds . 

DELVEET3:  Double  precision  velocity-to-be-gained  vector,  scaled  B7  in 
units  of  meters  per  centisecond.  Calculated  by  the  "INITVEL"  rouiine. 

DELVLVC:  See  TRGX  section. 

DELVSIN : See  TRGX  section. 

DELVTPF:  Double  precision  magnitude  of  the  velocity  to  be  gained  in 
the  final  rendezvous  maneuvers  of  the  terminal  phase,  scaled  B7  in 
xmits  of  meters  per  centisecond. 

DELVTPI:  Double  precision  magnitude  of  velocity  to  be  gained,  as 
calculated  by  P34.  Scaled  B7  in  units  of  meters  per 
centisecond. 
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DVLOS:  Double  precision  velocity-to-be-gained  vector,  scaled  B7  in  units 
of  meters  per  centisecond  and  expressed  in  "line-of-sight" 
coordinates.  (See  "S34/35.3"  for  definition  of  "line-of-sight" 
coordinates . ) 

ELEV : Double  precision  elevation  angle  of  the  line-of-sight  to  the 

passive  vehicle;  measured  from  the  vector  which  is  perpendicular 
to  the  active  vehicle  position  vector,  perpendicular  to  MCT  * M^ASS, 
and  whose  dot  product  with  the  active  vehicle  velocity  vector  is 
positive.  An  angle  between  0 and  1 (O  and  360  degrees)  scaled  BO 
in  units  of  revolutions.  ELEV  is  greater  than  -g-  (l80  degrees)  if 
the  passive  vehicle  is  below  the  active  vehicle's  local  horizontal. 

ELEV  is  an  astronaut  input  in  P32-72  and  an  optional  input  in  P34--74. 

GDTd2:  A temporary  storage  location  for  DELVLVC . If  MLVLVC  is  over- 
written by  the  astronaut,  the  previous  value  of  DELVLVC  will 
still  be  in  GDTd2,  thus  making  possible  a program  comparison  of 
the  two  values,  and  detection  of  the  astronaut  overwrite. 

GEOMSGN : Single  precision  flag  to  assure  that  a \uiit  normal  vector 

computed  in  "GEOM"  will  have  the  same  relation  to  the  orbital 
plane  of  the  active  vehicle  as  M will  have  when  computed  in  "INITVEL". 

INTIKE:  Double  precision  time- tag  associated  with  RINIT  and  VINIT, 
scaled  B28  in  units  of  centiseconds . 

ITCTR:  Single  precision  coimter  measuring  the  ni:unber  of  iterations 
through  the  loop  which  biased  a Lambert  target  vector  to  achieve 
a more  accurate  estimate  of  velocity  required,  based  on  precision 
integration  of  the  biased  conic  solution. 

ITERCTR:  See  CONG  section. 

K:130DEG:  Double  precision  constant  stored  as  0.3611111111,  scaled  BO 
in  units  of  revolutions.  Equation  value:  0.3611111111. 

K:ELEPS:  Double  precision  constant  stored  as  0.27777777  x 10 

scaled  BO  in  units  of  revolutions.  Equation  value:  0.00027777777. 
(Equivalent  to  0.1  degrees.) 

K:EPSF0IJR:  Double  precision  constant  stored  as  0.0416666666,  scaled 
BO  in  units  of  revolutions.  Equation  value:  0.0416666666. 

(Equivalent  to  15  degrees.) 

K:MAX250:  Double  precision  constant  stored  as  25000  x 2 , scaled 

B28  in  \inits  of  centiseconds.  Equation  value:  25000. 

K:MUo:  See  ORBI  section. 

K:MUTABLE:  See  CONG  section. 
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KiTWOPI:  Double  precision  constant  stored  as  6.283185307  yi  2 ^ , 
scaled  B4  and  unitless.  Equation  value:  6.283185307. 

MUASTEER:  Equal  to  MUE,  but  rescaled  to  B42  (earth)  or  B36  (moon). 

MUdA:  Ratio  of  gravitational  constant  (MUE)  to  semi-major  axis. 
Scaled  B14  (earth)  or  BIO  (moon). 

MUDEX:  See  CONC  section. 

MUE:  See  TRGX  section. 

NN:  See  TRGX  section. 

NOMTPI:  Double  precision  iterative  addition  to  TTPI,  scaled  B28 
in  units  of  centiseconds . 

NORMEX:  Single  precision  octal  return  address  storag-. 

POSTTPI:  Double  precision  perigee  altitude,  calculated  in  P34-74, 
scaled  B29  in  units  of  meters. 

PTIGINC:  Double  precision  time  between  midcourse  burn  targeting  by 
the  passive  vehicle  and  TIG,  scaled  B28  in  xmits  of  centiseconds. 
Part  of  the  erasable  load. 

Rl:  See  CONC  section. 

RIVEC,  R2VEC : See  CONC  section. 

MCT3,  VACT3:  Double  precision  position  and  velocity  vectors  of  the 
active  vehicle  prior  to  a particular  burn,  scaled  B29  and  B7 
respectively  in  units  of  meters  and  meters  per  centisecond. 

Both  vectors  are  also  used  as  temporary  storage  for  intermediate 
active  vehicle  position  and  velocity  vectors. 

RAPREC,  V^APREC,  ^PREC,  VPPREC:  Double  precision  vector  storage 
for  RACT3,  VACT3  and  ^ASS3,  VPASS3  as  they  were  at  entry  to 
"S33734.1". 

RATT,  V^ATT : See  ORBI  section. 

RC7,  VCV : See  CONC  section. 

RdA:  See  CONC  section. 

RINIT,  VINIT:  Double  preeision  active  vehicle  position  and  velocity 
vectors,  scaled  B29  and  B7  respectively  in  units  of  meters  and 
meters  per  centisecond.  Rescaled  at  the  beginning  of  "INITVEL" 
to  B27  and  B5  respectively  if  the  CSM  is  within  the  moon's 
sphere  of  influence. 
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VrA;’>nji  : Dmiljlc  |ircci;:;ion  position  and  velocity  vectors  of 
l.ho  passive  vehicle  prior-  to  a particular  burn,  scaled  B29  and 
IV^  in  units  of  meter:;  and  meters  per  centisecond  resfiectively . 

Both  vectors  are  also  us.ed  as  teiuporary  storage  for  intermediate 
|)as,sive  vehicle  por;  i ti  on  and  velocity  vectors. 

R'UAHG ; Target  position  vector  input  to  "INITVEL".  Bcaled  B29  in 
units,  of  meters.  Upon  exit,  "i^NITVEL"  loads  RTAHf!  with  the 
biased  target  position  vector,  if  such  a biased  vector  as  calculated. 

RTAiiGl:  Value  of  RTAT-iG  used  v/ithin  "INITVEL" , scaled  B?9  (earth) 
or  B27  (moc;n),  in  units  of  meters. 

RTMAG : Magnitude  of  RTAIaGI,  s.caled  B?9  (earth)  or  B?7  (moon),  in  units 
of  meters . 

RVEC,  WEC:  See  CONC  section. 

SECMAX:  Ooulil.o  prec-ision  maximum  limit  on  changes  to  NOMTPI , 

scaled  Rr'8  in  units  of  centiseconds . 

;SNTII:  See  CONC  section. 

SUBEXIT:  Single  precision  octal  return  address  s.torage. 

T:  See  CONC  section. 

TDECl:  See  ORBI  section. 

TDESIRED:  See  CONC  section. 

TET:  See  ORBI  section. 

TIG:  See  HIRN  section. 

TIMENOW:  See  EXVB  section. 

TITER:  Single  precision  iteration  counter. 

TK:  Double  precisi.on  time  betv/een  the  initiation  of  P35-75  and 

the  ignition  of  a midcourse  correction  burn,  scaled  B28  in  units 
of  centisecond:' . 

TPASS4:  Double  precision  scheduled  time  of  target  intercept, 

scaled  B28  in  units  of  centiseconds. 

TSTRT:  Double  precision  time  of  initiation  of  P35-755  scaled  B28 

in  units  of  centiseconds. 

TTPI : Double  precision  time  of  terminal  phase  initiation,  scaled 

B28  in  units  of  centiseconds;  an  astronaut  input  in  P32-72  and 

P34-74. 
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ULOS:  Double  precision  unit  vector  along  the  line-of-sight  vector, 
scaled  B1  and  unitless. 

UN:  Double  precision  unit  vector  perpendicular  to  the  active 
vehicle  orbital  plane,  scaled  B1  and  unitless. 

UNRM:  Double  precision  unit  vector  perpendicular  to  the  active 
vehicle  orbital  plane,  scaled  B1  and  unitless. 

UP:  A unit  vector  perpendicular  to  ^CT3  and  perpendicular  to 
RACT3  * ULOS,  whose  dot  product  with  ULOS  is  positive,  scaled 
B1  and  unitless. 

VIPRIME:  Double  precision  velocity  vector  computed  by  the  Lambert 
routine  at  the  time  INTIME.  Scaled  B7  in  units  of  meters  per 
centisecond. 

VPASS4:  Double  precision  velocity  vector  of  the  passive  vehicle 

at  the  time  of  target  intercept.  Scaled  B7  in  units  of  meters  per 
centisecond. 

VTARGET:  See  CONG  section. 

VTARGTAG:  Single  precision  cell,  scaled  B14,  which  specifies  the 
number  of  iterations  through  the  LAMBERT /INTEGRVS  routines.  I"' 
VTARGTAG  = 0,  "LAMBERT"  is  performed  to  obtain  initial  and  final 
velocity  vectors,  and  "INTEGRVS"  is  not  entered.  If  VTARGTAG  > 0, 
"INTEGRVS"  output  is  used  to  bias  the  target  position  vector 
in  order  to  obtain  a more  accurate  "LAMBERT"  solution. 

VTPRIME:  Double  precision  velocity  vector,  equal  to  VTARGET, 

which  is  calculated  in  the  "INITVEL"  routine.  Scaled  B7  in  units 
of  meters  per  centisecond. 

XI:  Index  register  1. 


TRGL  - 16 


TRGX 


Targeting  - External  Delta-V 


Switch  FIAGWI^Dl  bits  7 (UPDAl’Firi ) and  5 (TRACKFLG)  to  1 

Proceed  to  "C-OFIASH"  x^ith  TS  = K:V06n33  (TIG) 

(if  terminate,  proceed  to  "GOTOPOOH" ; if  proceed, 
continue  at  next  step;  other  response,  repeat  this  step.) 

Proceed  to  ''GOFIASH”  with  TS  = X:V06n81  (DELVLVC) 

(if  terminate,  proceed  to  "GOTOPOOH";  if  proceed, 
continue  at  next  step;  other  response,  repeat  this  step.) 

Switch  FIAGWRDl  bit  7 (UPDATFLG)  to  0 

Perform  "S30.I" 

Switch  FIAGl^Dl  bit  7 (UPTATFIG)  to  1 
Switch  FLAGWRD2  bit  8 (XDELVFLG)  to  1 

Proceed  to  "GOFIASH"  with  TS  = K:V06N42  (HAPO,  HPER,  DELVSAB) 
(if  terminate,  proceed  to  "GOTOPOOH";  if  proceed, 
continue  at  next  step;  other  response,  repeat  this  step.) 

Switch  FIAGVmOP  bit  6 (FIMHFIG)  to  1 
Perform  ''VHl6t5" 

Go  back  one  step 

Switch  FIAGWRD2  bit  5 (AVFIAG)  to  1 
Skip  next  step 

Switch  FIAGWRD2  bit  5 (AVFIAG)  to  0 
CENTANG  = 0 

Switch  FIAGWRDl  bits  5 (TRACKFLG)  and  7 (UPDATFLG)  to  1 
NN  = 0 (least  significant  half  only) 

TCSI  = 0 


VNO6II  Proceed  to  "GOFIASH"  with  TS  = K:V06N11  (TCSl) 

(If  terminate,  proceed  to  "GOTOPOOH";  if  proceed, 
continue  at  next  step;  other  response,  repeat 
this  step.) 

If  - (TCSI)  < 0: 

Proceed  to  "VN0655" 
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TDECl  = TETLEM 


Perform  "PRECSET" 

RVEC  = MCT3 
VVEC  = VACT3 

Switch  FLAGWRD7  bit  9 (RVSW)  to  1 
RDESIRED  = Krposmaxdp 

Perform  "TIMERAD"  (compute  time  to  apogee) 

TCSI  = T + TDEC2 
Proceed  to  "VRO6II" 

VTJ0655  Proceed  to  "GOFLASH"  with  TS  = K:V06N55  (NN,  ELEV,  CENTANG) 
(if  terminate,  proceed  to  "GOTOPOOH" ; if  proceed, 
continue  at  next  step;  other  response,  repeat  this 
step . ) 

Proceed  to  "GOFMSH"  with  TS  = K :V06N37  (TTPl) 

(if  terminate,  proceed  to  "GOTOPOOH";  if  proceed, 
continue  at  next  step;  other  response,  repeat  this 
step. ) 

TIG  TCSI 

Perform  "SELECTMU"  (switches  FINALFLG  to  O) 

Perform  "VNI645"  (switches  UPDATFLG  to  O) 

P32/P72B  Perform  "ADVANCE"  (advances  LM  and  CSM  vectors  to  TIG, 

sets  XDELVFLG) 

Perform  "INTINT"  with  TSv  - VPASSI,  TSr  = RPASSI,  TSo  = TCSI, 
TSt  = TTPI,  and  TSintyp  = K:TWOPI 

RPASS3  = MTT 

VPASS3  = VATT 

Perform  "CSI/A" 

P32/P72C  If  FLAGWRD2  bit  6 (FINALFLG)  = 0: 

Switch  FLAGWRDI  bit  7 (UPDATFLG)  to  I 

Proceed  to  "P32/P72E" 
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P32/P72E  If  T1T0T2  > K:60MIN: 


T1T0T2  T1T0T2  - K:60MIN 

Proceed  to  "P32/P72E" 

P32/P72F  If  T2T0T3  > K:60MIN: 

T2T0T3  ^ T2T0T3  - K:60MIN 

Proceed  to  "P32/P72F" 

Proceed  to  "GOFLASH"  with  TS  = K:V06N  75 

(If  terminate,  proceed  to  "GOTOPOOH"; 
at  nexi  step;  oth  'r  r> '.'poris' • , r"pnal'. 


[lvcmat] 


- unitMCTl  UPl 

- PPl 

- unitMCTl 


DELVLVC  = [lvcmat]  DELVEETl 


Proceed  to  "GOFLASH"  with  TS  = K:V06N81 

(if  terminate,  proceed  to  "GOTOPOOH"; 
at  next  step;  ol.h  t r'' ^sjjonr.f: . ropi'af, 


DELVSIN  = [lvcmat]  DELVLVC 
DELVSAB  - I DELVSIN I 
DELVEETl  - DELVSIN 


[lvcmat] 

DELVLVC 


- unitMCT2  DPI 

- UPl 

- unitMCT2 
[lvcmat]  DELVEET2 


Proceed  to  "GOFLASH"  with  TS  = K:V06N82 

(If  terminate,  proceed  to  "GOTOPOOH"; 
at  next  step;  other  r.-’cponse,  repeat 


TTPIO  - TTPI 

Perform  "VN16A.5"  (astronaut  recycle  or 
Proceed  to  "P32/P72B" 


(DIFFALT,  T1T0T2,  T2T0T3 ) 
if  proceed,  continue 
thic  rtep. ) 


(DELVLVC) 

if  proceed,  continue 
thi  r,  step.) 


(MCTl  set  equal  to  p.CT2) 


(DELVLVC) 

if  proceed,  continue 
this  step. ) 


finalize) 
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P33  Switch  FLAGWRD2  bit  5 (AVFLAG)  to  1 

Skip  next-  step 

P73  Switch  FLAGWKD2  bit  5 (AVFLAG)  to  0 

Switch  FLAGWRDl  bits  5 (TRACKFLG)  and  7 (UPDATFLG)  to  1 

Proceed  to  "GOFLASH"  with  TS  = K;V06n13  (TCDH) 

(If  terminate,  proceed  to  "GOTOPOOH" ; if  proceed,  continue 
at  next  step;  otlier  r&s].>on3c , repeat  this  step.) 

TTPI  TTPIO 

TIG  TCDH 

Perform  "SELECTMU"  (switches  FINALFLG  to  0) 

Perform  "VN1645"  (switches  UPDATFLG  to  0) 

P33/P73B  Perform  "ADVANCE"  (LM  and  CSM  vectors  to  TIG,  set  XDELVFLG) 
Perform  "CDHMVR" 

Perform  "INTINT"  with  TSv  - VACT3,  TSr  - MCT2,  TSo  - TCDH, 

TSt  TTPI, and  TSintyp  ^ 0 

MCT3  RATT 

VACT3  --  VATT 

Perform  "INTINT"  with  TSv  WASS2,  TSr  - ^ASS2,  TSo  = TCDH, 
TSt  TTPI  ,and  TSintyp  - 0 

^ASS3  - RATT 

VPASS3  VATT 

Switch  FLAGWRD7  bit  15  (ITSWIC-O  to  1 
NOMTPI  0 

Perform  "S33/34.1"  (get  transfer  time  to  TPI) 

If  TSnosol  / 0:  (no  solution) 

Perform  "ALARM"  with  TS  = 006llg 


TRGX  - 4 


(if  no  solution) 


Proceed  to  "GOFLASH"  with  TS  = K:V05N09 

(if  terminate,  proceed  to  "GOTOPOOH";  if  proceed, 
continue  at  next  step;  other  response,  proceed  to 
second  step  of  "P73".) 


NOMTPI  = 0 

If  FLAGWRD2  bit  6 (FINALFLG)  = 0: 

Switch  FLAGWRDl  bit  7 (UPDATFLG)  to  1 
TTPI  = TTPI  + NOMTPI 


T1T0T2  - TTPI  - TCDH 


P33/P73E  If  T1T0T2  > K:60MIN: 

T1T0T2  = T1T0T2  - K:60M[N 
Proceed  to  "P33/P73E" 


T2T0T3  = TTPI  - TTPIO 


P33/P73F  If  1T2TOT31  > K:60MIN: 

T2T0T3  = T2T0T3  - K:60MIN  signT2T0T3 
Proceed  to  "P33/P73F" 


Proceed  to  "GOFLASH"  with  TS  = K:V06N75  (DIFFALT,  T1T0T2,  T2TOT3) 
(if  terminate,  proceed  to  "GOTOPOOH";  if  proceed,  continue 
at  next  step;  other  response,  repeat  this  step.) 


lLVCMATj  = 


"-unitMCTl  ^ UPl 
-UPl 

_-unitMCTl 


DELVLVC  = [LVCMATj  DELVEET2 

Proceed  to  "GOFLASH"  with  TS  = K:V06N8l  (DELVLVC) 

(if  terminate,  proceed  to  'GOTOPOOH";  if  proceed,  continue 
at  next  step;  other  response,  repeat  this  step.) 

DELVSIN  = LLVCMATj ’^DELVLVC 


DELVSAB  = j DELVSIN 


DELVEET2  = DELVSIN 
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Perform  "VN1645"  (astronaut  recycle  or  finalize) 

Proceed  to  "P33/P73B" 

SELECTMU  MUDJiX  = 0 

If  FLAGWRD8  bit  12  (CMOONFLG)  = 1,  MUDEX  = 8 
i = MQDEX  + b 
RPldMU  = K:MUTABT,E^ 

MJE  = K:MUTABLE^yP£^ 

If  FLAGWRD8  bit  12  (CMOONFLG)  = 1,  rescale  MUE  (sr6) 

Switch  FLAGWRD2  oit  6 (FINALFLG)  to  0 
Return 

VN1645  SUBEXIT  = return  address 
pMGA  = KrDPmpOl 

If  FLAGWRD2  bit  6 (FINALFLG)  = 1; 
pMGA  = 2 K:DPmp01 

If  FLAGWRD3  bit  13  (REFSMFLG)  = 1 and  MODRBG  < 64: 

Perform  "GET+MGA"  with  TS  = DELVSIN 
Perform  "COMPTGO" 

Delay  1 second  (via  "DELAYJOB") 

Proceed  to  "GOFLASH"  with  TS  = K:Vl6N45  (TRKMKCNT,  TTOGO,  pMGA) 
(If  terminate,  contine  at  next  step;  if  proceed,  proceed  to 
"N45PR0C";  other  response,  proceed  to  "CLUPDATE".) 

DISPDEX  = Z (to  stop  computation  of  TTOGO) 

Proceed  to  "GOTOPOOH" 

N45PR0C  If  FLAGWRD2  bit  6 (FINALFLG)  = 1: 

DISPDEX  = Z 
Proceed  to  "GOTOPOOH" 
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CLUPDATE 


SJ!L.l 


ADVANCE 


Switch  FLAGWRD2  bit  6 (FINALFLG)  to  1 
DISPDEX  = Z 

Switch  FLAGWRDl  bit  7 (UPDATFLG)  to  0 
Return  via  SUBEXIT 


Qi'KMP  = return  address 


TDECl  = TIG 
Perform  "LEMPREC" 
miG  = MTT 


VTIG  = VATT 


[LVCMATj 


■-unit (VTIG  raiG)  unitOTIG 
unit  (VTIG  OTIG) 

_-unitOTIG 


DELVSIN  DELVLVC  LLVCMATJ 
DELVSAB  1 DELVSIN  1 
TSr  = raiG 

TSv  = VTIG  + DELVSIN 
Perform  "PERIAPOl" 

HPER  = TShp  (pericenter  altitude) 
If  HPER  > K:MAXNM: 


HPER  = K:MAXNM 

HAPO  = TSha  (apocenter  altitude) 
If  HAPO  > KrMAXNM: 

HAPO  = K:MAKNM 
Return  via  QTEMP 
SUBEXIT  = return  address 


TDECl  = TIG 


TRGX  - 7 


Perform  "PRECSET" 


Switch  FLAGWRD2  bit  8 (XDELVFLG)  to  1 

VPASS2  ^ VPASS3 

VPASSl  = VPASS3 

^ASS2  = RPASS3 

^ASSl  = ^ASS3 

UPl  = unit  (uniWASSl  VPASSl) 

OTIG  ^ MCI  3 

MCT2  = l^CT3l  unit(RACT3  - (MCT3  • UPl)  UPl) 
MCTl  = MCT2 
VTIG  = VACT3 

VACT2  ^ |VACT3l  unit(VACT3  - (VACr3  • UPl)  UPl) 
VACTl  = VACT2 
Return  via  SUBMIT 
PRECSET  NORMEX  =•  return  address 
TDEG2  = TDECl 
Perform  "LEMPREC" 

If  FLAGWRD2  bit  5 (AVFLAG)  = 1: 

MCr3  = MTT 
VACT3  - VATT 

If  FLAGWRD2  bit  5 (AVFLAG)  = 0: 

^ASS3  ==  MTT 
VPASS3  = VATT 
TDECl  = TDEC2 
Perform  "CSMPREC" 
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If  FLAGWRD2  bit  5 (AVFLAG)  = 1: 


^AS33  ^ RATT 
VP  ASS  3 VATT 

If  FLAGWRD2  bit  5 (AVFLAG)  = 0: 

MCT3  = MTT 
VAST  3 = VATT 
Return  via  NORMEX 
INTINT  RTRN  = return  address 
Perform  "INTSTALL" 

Switch  FLAGWRD3  bit  4 (INTYPFLG)  to  0 

If  TSintyp  f-  0,  Switch  FLAGWRD3  bit  4 to  1 (conic  integration) 
TDECl  = TSt 

Switch  FLAGWRDO  bit  12  (MOONFLAG)  to  1 

If  FLAGWRD8  bit  12  (CMOONFLG)  = 0,  Switch  FLASWRDO  bit  12  to  0 

TET  = TSo 

^V  = TSr 

VCV  = TSv 

Perform  "INTEGRVS" 

Return  via  RTRN 

CDHMVR  SUBEXIT  = return  address 
UN'\^EC  = unitMCT2 
CSTH  = unitRPASS2  • UNVEC 
TS  = - MCT2  ^ roASS2  • UPl 
SNTH  = 7i  - CSTH^  signTS 
VVEC  = VP ASS 2 
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C3I/A 


CSI/B 


CSI/B2 


OTEC  = ^ASS2 

Switch  FLAGWRD7  bit  9 (WSW)  to  0 
Perform  "TIMETHET" 

DIFFALT  = jTSrj  - |MCT21 


SMALLA  = R1  / R/iA 
TSa  = (TSv  • UTWEC: 
'^"MUE 


SMALLA 


3/2 


SMALLA  - DIFFALT 

- TSa2 


MUE 


TSb  = V|MCT2l  SMALLA  - DIFFALT 
VACT3  = TSa  UOTEC  + TSb  anit(UPl  UNVEC) 
DELVEET2  = VACT3  - VACT2 


Return  via  SUBEXIT 


Switch  FLAGWRD6  bits  12  (S32.1F3B)  and  U (S32.1F2)  to  1 
Switch  FLAGWRD6  bits  13  (S32.1F3A)  and  15  (S32.1F1)  to  0 
LOOPCT  = 0 
CSIALRM  = 0 

TS  = jMCTlj  (1  + iMCTlj  / l^ASS3l) 

TS  = V2  MUE  / rS 


DELVCSI  = TS  - unit(UPl  ^ unimCTl)  • VACTl 


DELDV  = K:INITST 
LOOPCT  = LOOPCT  + 1 


If  LOOPCT  > KiLOOPMX,  proceed  to  "SCNDSOL"  with  TSsp  = 6 
If  I DELVCSI I > K:DVMAX1: 

If  FLAGWRD6  bit  15  (S32.1F1)  = 1 or  if  FLAGWRD6  bits 
12  (S32.1F3B)  and  13  (S32.1F3A)  both  equal  1,  proceed 
to  "SCNDSOL"  with  TSsp  = 7 

Switch  FLAGWRD6  bit  15  (S32.1F1)  to  1 
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DELVCSI  = K:DVMAX2  signDELVCSI 
DELVEETl  ^ DELVCSI  unit(UPl  ^ unitMCTl) 

VACT4  - VACTl  + DELVEETl  (ignoring  overflow  if  any) 
yVEC  = VACT4 
OTEC  = MCTl 

Switch  FLAGWRD7  bit  9 (RVSW)  to  1 
S.MTH  = K:SN359+ 

CSTH  = K:CS359+ 

Perform  "TIMETHET" 

HAFPAl  = T/  2 
Perform  "PERIAPO" 

POSTCSI  - TShp 

If  CENTANG  i-  0,  proceed  to  "CIRCL" 

If  ECC  < KrONETHTH,  proceed  to  "CIRCL" 

If  (|MCT1  • VACT41  / Rl)  < K:NICKELDP,  proceed  to  "CIRCL" 

TScs  = P - 1 

TS  = ^/P  Ri  RTldMlJ  / Rl 

If  FLAGWRD8  bit  12  (CMOONFLG)  = 1,  rescale  TS  (sl3) 
RDOTV  = MCTl  • VACT4 
TSsn  = I RDOTV  1 TS 
TSden  - Scs^  + TSsn^ 

SNTH  = TSsn  / TSden 
CSTH  = TScs  / TSden 
VVEC  = -VACT4  signRDOTV 
OTEC  = MCTl 
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Switch  FLAGWRD7  bit  9 (RVSW)  to  1 
Perform  "TIMETHET" 

If  RD'OTV  < 0;  TCDH  ^ NN  HAFPAl  - HAFPAl  + T + TCSI 
If  RDOTV  > 0,  TCDH  = TCSI  + M HAFPAl  - T 
Skip  next  step 

CIRCL  TCDH  = TCSI  t NN  HAFPAl 

If  TTPI  < TCDH,  proceed  to  "SCNDSOL"  with  TSgp  = 5 

Perform  "INTINT"  with  TSv  = VACT4,  TSr  - MCTl,  TSo  = TCSI, 
TSt  = TCDH,  and  TSintyp  = K:TW0PI 

P.CT2  = MTT 

VACT2  - VATT 

Perform  "INTINT"  with  TSv  = VPASSl,  TSr  = ^ASSl,  TSo  = TCSI, 
TSt  = TCDH,  and  TSintyp  = K:TW0PI 

^ASS2  = ^T 

VPASS2  = VATT 

Perform  "CDHMVR" 

TSr  = MCT2 

TSv  = VACT3 

Perform  "PERIAPOl" 

POSTCDH  = TShp 

Perform  "INTINT"  with  TSv  = VACT3,  TSr  = RACT2,  TSo  = TCDH, 
TSt  = TTPI,  and  TSintyp  = K:TW0PI 

^CT3  = RATT 

VACT3  = VATT 

TSu  = cosELEV  unit(Wl  unit^CTl)  + sinELEV  unit^CT3 
TSrsin  = TSu  • MCT3 

TS  = ^ASS3  • RPASS3  - RACT3  * RACT3  + TSrsin^ 
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If  LOOPCT  ^ 1: 


CSIALM  = 1 

Proceed  to  "ALMXIT" 

(If  TS  < 0) 

DZLDV  DELDV  / 2 
DELVCSI  = DVPREV  - DELD’\/ 

Proceed  to  "CSI/BI" 

TSk2  = -TSrsin  - Ay^S 
TSkl  = -TSrsin  + a/TS 
TS  = TSk2 

If  lTSk2|  > |T3kll,  TS  = TSkl 
URPESTIM  = unit(MCT3  + TS  TSu) 

TS  = (uniWASS3  URPESTIM)  • (uaitVPASS3  “ unitRPASS3) 
GAMP32  = arccos( URPESTIM  • unitRPASS3)  signTS 
If  FLAGWRD6  bit  U (S32.1F2)  = 1,  proceed  to  "FRSTPAS" 
TSslope  = (GAMP32  - GAMPRE"!)  / (DELVCSI  - DVPREV) 

DVPREV  = DELVCSI 

If  FLAGWRD6  bits  12  (S32.1F3B)  and  13  (S32.1F3A)  are  both 
TS  = GAMPREtf  (GAMP32  - GAMPREV) 

If  TS  > 0,  proceed  to  "FIFTYFPS" 

DELDV  = KrINITST  sign  DELDV 
Switch  FLAGWRD6  bit  13  (S32.1F3A)  to  1 
Switch  FLAGWRD6  bit  12  (S32.1F3B)  to  0 
Proceed  to  "FRSTPAS" 
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FBSTPAS 


FIFTYFPS 


SCNDSOL 


If  FLAGWRD6  bits  12  (S32.1F3B)  and  13  (S32.1F3A)  are  both 
0,  proceed  to  "FIFTYFPS" 

DFLDV  = GAMP32  / TSslope 

GAMPREV  = GAMP32 

If  iDELDVj  < K:EPSILN1,  proceed  to  "CSl/SOL" 

If  iDELDVl  > K:DELMAX1,  DELDV  = KrDELMAXl  signDELDV 
DELVCSI  = DELVCSI  - DELDV 
Proceed  to  "CSl/Bl" 

GAMPREV  = GAMP32 

D7PREV  = DELVCSI 

DELVCSI  = DELVCSI  - DELDV 

Switch  FLAGWRD6  bit  U (S32.1F2)  to  0 

Proceed  to  "CSl/Bl" 

DELDV  = K:FIFPSDP  signTSslope  signGAMPREV 
DELVCSI  = DELVCSI  - DELDV 
GAMPREV  = GAMP32 

Switch  FLAGWRD6  bits  12  (S32.1F3B)  and  13  (S32.IF3A)  to  1 
Proceed  to  "CSI/B2" 

If  FLAGWRD6  bit  12  (S32.1F3B)  = 0 or  bit  13  (S32.1F3A)  = 1: 

Proceed  to  "ALMXIT" 

CSIALR'4  = TS^„ 

top 

Switch  FLAGWRD6  bits  12  (S32.1F3B),  13  (S32.1F3A),  and  15  (S32.1F1) 
to  0 

Switch  FLAGWRD6  bit  U (S32.1F2)  to  1 
LOOPCr  = 0 
Proceed  to  "CSI/B" 
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ALMXIT 


TS  036008  + GSIALRM  _ i (i.e.,  006058  if  CSIALRM  6) 


Perform  "VARALARM" 

Proceed  to  "OOFLASH"  with  TS  = K:V05N09 

(if  terminate,  proceed  to  "GOTOPOOH";  if  proceed,  repeat 
this  step;  other  response,  continue  at  next  step.) 


Proceed  to  third  step  of  ''P72" 

CSI/SOL  1 = MUDEX 

If  POSTCSI  < K:PMINj_,  proceed  to  "SCNDSOL"  with  TSsp  = 2 
If  POSTCDH  < K:PMINi,  proceed  to  "SCNDSOL"  with  TSsp  ^ 3 
T1T0T2  = TCDH  - TCSI 


If  T1T0T2  < K:TMIN,  proceed  to  "SCNDSOL"  with  TSsp 
T2TOT3  = TTPI  - TCDH 

If  T2T0T3  < K:TMIN,  proceed  to  "SCNDSOL"  with  TSsp 
Proceed  to  "P32/P72C" 


= 4 


GET.LVC  DELVLVC  = 


■unit((RINIT  ^ VINIT)  mNIT) 
-unit (KNIT  VINIT) 
-unitRINIT 


TS 


Switch  FLAGWRD5  bit  2 (MGLVFLAG)  to  1 


Return 


GET+MGA  IGAX  = (REFSMMAT21,  RSFSMMAT22,  REFSMMAT23) 
pMGA  = arcsin(unitTS  • IGAX) 


If  pMGA  < 0,  pMGA  = 1 + pMGA 

Switch  FLAGWRD5  bit  2 (MGLVFLAG)  to  0 

Return 
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Quantities  in  Computations 


CENTANG:  See  TRGL  section. 

CSIALRM;  Single  precision  decimal  number  that  is  converted  to  octal  and 
added  to  00577g  to  be  displayed  to  indicate  any  failure  in  the  CSI 
targeting  iteration. 

CSTH:  See  CONG  section. 

DELDV:  Double  precision  increment  to  DELVCSI  in  one  CSI  iteration,  scaled 
B7  in  units  of  meters  per  centisecond. 

DELVCSI : Double  precision  magnitude  of  velocity  bo  be  gained  during  the 
CSI  burn,  scaled  B7  in  units  of  meters  per  centisecond. 

D^ELVEETl:  Double  precision  vector  corresponding  to  the  velocity-to-be- 
gained  vector  for  the  CSI  burn,  scaled  B7  in  units  of  meters  per  centi- 
second. Parallel  to  the  orbital  plane  of  the  passive  vehicle  and 

perpendicular  to  the  active  vehicle  position  vector  at  TCSI. 

D^ELVEET2:  Double  precision  vector  corresponding  to  the  velocity-to-be- 
gained  vector  for  the  CDH  burn,  scaled  B7  in  units  of  meters  per  centi- 
second. Parallel  to  the  orbital  plane  of  the  passive  vehicle. 

DELVLVC:  Double  precision  velocity  vector  expressed  in  local  vertical 
coordinates,  scaled  B7  in  units  of  meters  per  centisecond.  In  the 
local  vertical  coordinate  system,  X is  along  the  horizontal  component 
of  velocity,  Z points  toward  the  center  of  attraction,  and  Y completes 
a right-handed,  orthogonal  system. 

DELVSAB:  Double  precision  magnitude  of  velocity  to  be  gained  for  input 
to  the  thrusting  programs,  scaled  B7  in  \mits  of  meters  per  centisecond. 

DELVSIN:  Double  precision  velocity  vector  for  input  to  the  thrusting 
programs,  scaled  B7  in  units  of  meters  per  centisecond  and  expressed 
in  reference  coordinates. 

DIFFALT:  Double  precision  difference  of  passive  and  active  vehicle 

altitudes  at  the  time  of  CDH,  scaled  B29  in  units  of  meters;  negative 
if  the  passive  vehicle  is  below  the  active  vehicle  at  CDH,  and  displayed 
to  the  astronaut  during  P32-72  and  P33-73- 

DISPDEX:  See  BURN  section. 

DVPREV:  Previous  value  of  DELVCSI. 

ECC:  Double  precision  eccentricity,  scaled  B3  and  unitless. 

F.T .KV : See  TRGL  section. 

GAMP32,  GAMPREV:  Double  precision  error  angle  (and  previous  value  of 
that  angle)  between  projected  rendezvous  point  and  desired  rendezvous 
point,  scaled  BO  in  units  of  revolutions. 
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HAFPAl : Double  precision  time  corresponding  to  hnlf  of  n period  in  the 
post-CSI,  pre-CDH  orbit,  scaled  B28  in  units  of  centiseconds . 

HAPO,  HPER:  Double  precision  heights  above  the  earth  or  moon  at  apogee 
and  at  perigee  respectively,  scaled  B29  in  units  of  meters. 

IGAX;  Double  precision  unit  vector  along  the  inner  gimbal  axis,  scaled 
B1  and  expressed  in  reference  coordinates. 

K:60MIN;  Double  precision  constant  stored  as  360000  x 2 scaled  B28 
in  units  of  centiseconds.  Equation  value:  36OOOO. 

K;CS359^:  Double  precision  constant  stored  as  0.199999992,  scaled  B1 
and  unitless.  Equation  value:  0.999999984. 

-7 

K:DELMAX1:  Double  precision  constant  stored  as  O.6O96OOO  x 2 , scaled 

B7  in  units  of  meters  per  centisecond.  Equation  value:  O.6O96. 
(Equivalent  to  200  feet  per  second.) 

K:DPmp01:  Double  precision  constant  stored  as  77777rt  6l337rtj  scaled  BO 
in  units  of  revolutions.  Equation  value:  -0.455078125  x 2~^^. 
(Eq'uivalent  to  - 0.01  degrees.) 

_7 

K:DVMAX1:  Double  precision  constant  stored  as  3-0480  x 2 , scaled  B? 

in  units  of  meters  per  centisecor-d . Equation  value:  3-0480. 
(Equivalent  to  1000  fps.) 

K:DVMAX2:  Double  precision  constant  stored  as  3.014472  x 2 scaled  B? 
in  units  of  meters  per  centisecond.  Equation  value:  3-014472. 
(Equivalent  to  989  fps.) 

-7 

K:EPSILN1:  Double  precision  constant  stored  as  O.OOO3O48  x 2 , scaled 

B7  in  units  of  meters  per  centisecond.  Equation  value:  O.OOO3O48. 
(Equivalent  to  0.1  fps.) 

-7 

K:FIFPSDP:  Double  precision  constant  stored  as  -0.152400  x 2 , scaled 

B7  in  units  of  meters  per  centisecond.  Equation  value:  -0.1524. 
(Equivalent  to  - 50  fps.) 

K:INITST:  Double  precision  constant  .stored  as  O.O3046  x 2 scaled  B7 
in  units  of  meters  per  centisecond.  Equation  value:  O.O3048. 
(Equivalent  to  10  fps.) 

—28 

K:L00PMX:  Double  precision  constant  stored  as  I6  x 2 , scaled  B28  and 

\ini.tless.  Equation  value:  I6. 

K:MAXNM:  See  EXVB  section. 

K:MUTABLEj^yjjg^:  See  CONG  section. 

K:NICKELDP:  Double  precision  constant  stored  as  0.021336  x 2 

scaled  B7  in  units  of  meters  per  centisecond.  Equation  value: 
0.021336.  (Equivalent  to  7.0  fps) 

K:0NETHTH:  Double  precision  constant  stored  as  0.0001  x 2 
scaled  B3  and  unitless.  Equation  value:  0.0001. 
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-29 

K:PMINq:  Double  precision  constant  stored  as  157420  x 2 , scaled  B29 

in  units  of  meters;  program  notation  PMINE.  Equation  value:  157420. 

-29 

KzPMINgt  Double  precision  constant  stored  as  10668  x 2 , scaled 

B29  in  units  of  meters;  program  notation  PMINM.  Equation  value:  10668. 

K:SN359+:  Double  precision  constant  stored  as  -0.000086601,  scaled 
B1  and  unitless.  Equation  value:  -0.000173202. 

—28 

K:TMIN:  Double  precision  constant  stored  as  60000  x 2 , scaled 

B28  in  units  of  centiseconds . Equation  value:  60000. 

K:TW0PI:  Double  precision  constant  stored  as  6.283185307  x 2 scaled 
B4  and  unitless.  Equation  value:  6.283185307. 

LOOPCT:  Double  precision  iteration  counter,  scaled  B28  and  unitless. 

I^LVCMATJ:  Double  precision,  3x3  transformation  matrix  defined  such 
that  Alv  = flVCMATj  Aref,  where  A is  a vector  expressed  in  local 
vertical  and  reference  coordinates  respectively. 

MODREG:  See  DATA  section. 

MUDEX:  See  CONG  section. 

MUE : Double  precision  gravitational  constant,  scaled  B36  in  units  of 
meters  cubed  per  centisecond  squared. 

NN : Double  precision  number  designating  the  apsidal  crossing  after 
CSI  at  which  the  CDH  burn  will  be  executed,  scaled  Bl4  and 
unitless.  (NN  = 1 indicates  that  the  CDH  burn  will  be  executed 
at  the  first  apsidal  crossing  after  CSI.  ) NN  is  used  in  P34  and 
P35  as  a flag  to  specify  precision  or  conic  integration.  In 
"334/35.2"  , it  is  used  to  set  VTARGTAG. 

NOMTPI : See  TRGL  section. 

NORMEX : Single  precision  octal  return  address  storage. 

P:  See  CONG  section. 

pMGA:  Double  precision  middle  gimbal  associated  with  a desired  thrust 
direction,  scaled  BO  in  -units  of  revolutions. 

POSTCDH:  Double  precision  height  above  the  earth  or  the  moon  at  the 
perigee  of  the  orbit  of  the  active  vehicle  after  the  CDH  burn, 
scaled  B29  in  units  of  meters. 

POSTCSI : Double  precision  height  above  the  earth  or  the  moon  at  the 

perigee  of  the  orbit  of  the  active  vehicle  after  the  CSI  burn,  scaled 
B29  in  units  of  meters. 

QTEMP:  Single  precision  octal  return  address  storage. 
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R1 : See  CONG  section. 


MCTl,  VACTl : Double  precision  position  and  velocity  vectors  of 
the  active  vehicle  at  TCSI,  prior  to  the  CSI  burn,  scaled  B29 
and  B7  in  units  of  meters  and  meters  per  centisecond  respectively 
rotated  into  the  orbital  plane  of  the  passive  vehicle. 

MCT2,  VACT2:  Double  precision  position  and  velocity  vectors  of  the 
active  vehicle  at  TCDH,  prior  to  the  CDH  burn,  scaled  B29  and 
B7  in  units  of  meters  and  meters  per  centisecond  respectively; 
rotated  into  the  orbital  plane  of  the  passive  vehicle. 

MCT3,  VACT3 : See  TRGL  section. 

MTT,  VATT : See  ORBI  section. 

RCV,  VCV:  See  CONG  section. 

RdA  : See  GONG  section. 

RDESIRED:  See  GONG  section. 

RDOTV : Double  precision  dot  product  (RAGTl  ’ VAGT4)  scaled  B36  in 
units  of  meters  squared  per  centisecond. 

[REFSMMATJ  : See  GOOR  section. 

RINIT,  VINIT:  See  TRGL  section. 

RPASSl,  VPASSl:  Double  precision  position  and  velocity  vectors  of 
the  passive  vehicle  at  TGSI,  scaled  B29  and  B7  in  units  of  meters 
and  meters  per  centisecond  respectively. 

^ASS2,  VPASS2 : Double  precision  position  and  velocity  vectors  of 
the  passive  vehicle  at  TGDH,  scaled  B29  and  B7  in  units  of  meters 
and  meters  per  centisecond  respectively. 

RPASS3,  VPASS3 : See  TRGL  section. 

RTldMU : Double  precision  storage  for  the  inverse  of  the  sqiare 
root  of  MUE,  scaled  B-17  (earth)  or  B-I4  (moon)  in  units  of 
centiseconds/meters  to  the  three-halves  power. 

RTIG,  VTIG : Double  precision  position  and  velocity  vectors  for 
input  to  the  thrusting  programs,  scaled  B29  and  B7  in  units  of 
meters  and  meters  per  centisecond. 

RTRN : Single  precision  octal  return  address  storage. 

RVEG,  WEG:  See  GONG  section. 
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SMALLA:  Double  precision  semi -major  axis,  in  units  of  meters. 

SNTH : See  CONG  section. 

SUBEXIT:  Single  precision  octal  return  address  storage. 

T:  See  CONG  section. 

TJVPTl:  Double  precision  transfer  time  between  GSI  and  CDH,  scaled  B28 
in  units  of  centiseconds ; displayed  to  the  astronaut  in  P32-P72. 
Transfer  time  between  CDH  and  TPI  when  displayed  to  the  astronaut  in 
P33-P73. 

T2T0T3 : Double  precision  transfer  time  between  CDH' and  TPI  (P32-P72)  or 
time  difference  between  TTPI  in  P33  and  TTPI  used  in  P32  (displayed 
in  P33-P73);  scaled  B28  in  units  of  centiseconds. 

TCDH:  Double  precision  time  of  ignition  of  the  CDH  burn,  scaled  B28 
in  units  of  centiseconds;  an  astronaut  input  in  iP33-P73. 

TCSI:  Double  precision  time  of  ignition  of  the  CSI  burn,  scaled  B28  in 
units  of  centiseconds.  It  may  be  either  an  astronaut  input  or 
computed  by  the  program. 

TDECl : See  ORBI  section. 

TDEC2:  Temporary  storage  for  TDECl  to  assure  that  both  active  and 
passive  states  are  advanced  to  the  same  time. 

TET:  See  ORBI  section. 

TETLEM:  "Permanent"  time  value  for  the  LM  state  vector,  sca].ed  B28 
in  units  of  centiseconds. 

TIG:  See  BURN  section. 

TRKMKCNT:  See  RNAV  section. 

TTOGO  : See  BURN  section . 

TTPI:  See  TRGL  section. 

TTPIO : Double  precision  storage  for  TPI  time  used  in  P32  for  information 
in  P33,  scaled  B28  in  units  of  centiseconds. 

UPl : Double  precision  unit  vector  perpendicular  to  the  orbital  plane 

of  the  passive  vehicle,  scaled  B1  and  unitless. 

UNVEC : Double  precision  unit  vector  along  MCT2,  scaled  B1  and  unitless. 

URPESTIM:  A unit  vector  in  the  direction  of  the  passive  vehicle  position 
vector  that  would  satisfy  the  required  TPI  conditions,  derived  from 
the  estimate  of  DELVCSI. 


TRGX  - 20 


VACT4:  Double  precision  velocity  vector  of  the  active  vehicle  at 
TCSI  after  the  addition  of  the  velocity  gained  in  the  CSI  burn, 
scaled  B7  in  units  of  meters  per  centisecond. 

Z:  Z register,  or  program  counter.  Contains  address  of  the  next  step. 
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TABLES 


PROGRAM  MD  ROUTINE  LIST 


Programs 


Number 

(GSOP) 

Title  in 
this  document 

Page 

00 

POOH 

PGSR-6 

06 

P06 

PGSR-1 3 

12 

P12LM 

ASCT-1 

20 

PR0G20 

RNAV-1 

21 

PR0G21 

RNAV-6 

22 

PR0G22 

RNAV-1 

25 

PR0G25 

RNAV-8 

27 

V7xUPDAT 

EXVB-8 

. 30 

P30 

TRGX-1 

32 

P32 

TRGX-1 

33 

P33 

TRGX-4 

34 

P34 

TRGL-1 

P35 

TRGL-4 

40 

P40LM 

BURN-1 

41 

P41IM 

BURN-2 

42 

P42LM 

BURN-1 

47 

P47LM 

BURN-1 3 

51 

P51 

ALIN-1 

52 

PR0G52 

ALIN-1 4 

57 

P57 

ALIN-25 

63 

P63LM 

DESC-1 

64 

STARTP64 

DESC-4 

1 65 

P65START 

DESC-1 0 

66 

STARTP66 

DESC-1 1 

67 

STARTP67 

DESC-1 1 

68 

LAND JUNK 

DESC-1 8 

70 

P70  or  P70A 

ASCT-3 

71 

P71  or  P71A 

ASCT-3 

72 

P72 

TRGX-1 

73 

P73 

TRGX-4 

74 

P74 

TRGL-1 

' 75 

P75 

TRGL-4 

76 

P76 

ORBI-23 

I 


Routines 


Nmber 

Title  in 

Page 

(GSOP) 

this  document 

00 

GOTOPOOH 

PGSR-1 1 

02 

R02B0TH 

IMUC-19 

03 

DAPDATA1 

DAPB-1 9 

04 

R04 

EXVB-7 

05 

SBANDANT 

EXVB-27 

09 

R10,R11 

SERV-1 4 

10 

LAND ISP 

SERV-1  5 

11 

RIOjRII 

SERV-1 4 

12 

MUNRETRN 

SERV-7 

13 

LUNLAND 

DESC-4 

14 

HIGATJOB 

SERV-7 

20 

RADAREAD 

RADR-1 9 

21 

R21LEM 

RNAV-1 3 

22 

R22LEM 

RNAV-1 7 

23 

R23LEM 

RNAV-1 9 

24 

R24LEM 

RNAV-20 

25 

RRAUTCHK 

RADR-1 

26 

R21 LEM4 

RNAV-1 4 

29 

R29 

RNAV-31 

30 

V82CALL 

EXVB-17 

31 

V83CALL 

EXVB-24 

33 

ALINTIME 

EXVB-6 

36 

R36 

EXVB-26 

40 

DVMON 

SERV-3 

41 

MIDT0AV1 

ORBI-1 9 

47 

AGSINIT 

EXVB-12 

50 

CAL53A 

ALIN-1 8 

51 

R51 

ALIN-19 

52 

R52 

ALIN- 21 

53 

AOTMARK 

ALIN-3 

54 

CHKSDATA 

ALIN-1 3 

55 

R55 

ALIN-22 

56 

TRMTRACK 

EXVB-6 

57 

MARKRUPT 

ALIN-6 

58 

PLANET 

ALIN-1 2 

59 

R59 

ALIN-30 

60 

R60LEM 

ATTM-1 

61 

R61 LEM 

RNAV-1 0 

62 

R62DISP 

ATTM-1 1 

63 

V89CALL 

ATTM-1 1 

65 

R65LEM 

RNAV-1 0 

76 

TESTXACT 

EXVB-2 

77 

R77 

ESVB-9 

W - 3 
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Noun  List 


The  following  is  an  interpretation  of  the  list  of  nouns  that  are  used 
or  defined  in  the  LUMINARY  program  (See  DATA  section).  Other  nouns 
are  either  illegal  or  meaningless  when  used  with  the  LUMINARY  program. 

The  list  includes  the  tag  assigned  to  the  components  of  each  noun 
(in  this  document)}  the  niamber  of  components  in  each  noun}  the  magnitude 
and  units  used  in  a decimal  display  of  each  noun}  the  section  in  which  each 
component  of  each  noun  is  defined}  and  an  indication  if  the  noun  is  a 
"no-load"  or  "decimal  only"  no\in.  Routines  making  use  of  a noun  are  listed 
in  parentheses  under  the  above  information. 

Special  Considerations; 

1 . The  X,  Y and  Z components  of  a vector  quantity  are  displayed  in  R1 -R3 
respectively  with  the  same  scaling  and  units  for  each  component. 

2.  Single  component  nouns  appear  in  R1  only. 


Noun 

Tae  Como . 

Def, 

Decimal  Disolav 

Comment 

00 

spare 

01 

3 . XXXXX  without  regard 

to  scaling  or  units 
(0HWELL1,  0HWELL2,  SDISPLAY) 

Address 

supplied 

02 

3 

(UPVERIFY) 

XXXXX.  without  regard 
to  scaling  or  units 

Address 

supplied 

03 

3 

( none ) 

— 

XXX. XX  degrees 

Address 

supplied 

04 

DSPTEM1  1 

(GVDETER) 

DATA 

XXX. XX  degrees 

05 

DSPTEM1  1 DATA 

(R22LEM,  CHKSDATA) 

XXX .XX  degrees 

06 

0PTI0N1  3 

0PTI0N2 

0PTI0N3 

(DSP0PTN,G0PERF4, 

DATA  Octal  only 

DATA  Octal  only 

DATA  Octal  only 

G0PERF4R) 
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Noun 

Tag 

Comn. 

Def, 

Decimal  Display 

07 

XREG 

3 

DATA 

Octal  only 

YREG 

DATA 

Octal  only 

ZREG 

(none) 

DATA 

Octal  only 

(See  "ABCLOAD"  routine) 


Comment 


When  used  with  verb  25, 
noun  7 is  used  to  switch  a 
specified  bit  or  bits  of  a 
flagword  to  1 or  0.  In  that 
case,  ECADR  of  the  flagword 
is  loaded  into  XREG,  bits  to 
be  changed  are  set  in  YREG 
(01004g  indicates  that  bits 
10  ana  3 are  to  be  switched), 
ZREG  is  set  to  0 if  bits  are 
to  be  zeroed,  non-zero  if  bits 
are  to  be  set. 


08  ALMCADR  3 
ALMCADR^ 
ERCOUNT 
( none ) 


PGSR  Octal  only 
PGSR  Octal  only 
TEST  Octal  only 


09 


FAILREG 

FAILREG 

FAILREG 


PGSR 

PGSR 

PGSR 


Octal  only 
Octal  only 
Octal  only 


(used  whenever  alarm  codes  are  displayed) 


10 

(none) 

Octal  only 

Channel  to  be 
specified 

11 

TCSI  3 

(P32,  P72) 

TRGX 

OOXXX.  hours 

OOOXX.  minutes 

OXX.XX  seconds 

Decimal  only-  three 
components  must  be 
supplied 

12 

OPTIONX  2 EXVB 

OPTIONX!:  EXVB 

(VBCOARK,  V82CALL,  R04Z, 

Octal  only 

Octal  only 

V89CALL) 

13 

TCDH  3 

(P33,  P73) 

TRGX 

OOXXX.  hours 

OOOXX.  minutes 

OXX.XX  seconds 

Decimal  only-  three 
components  must  be 
supplied 

U 

DSPTEMX  3 
DSPTEMX!: 

DSPTEMx' 

(none) 

DATA 

DATA 

DATA 

XXXXX.  without  regard 
XXXXX.  to  scaling 
XXXXX.  or  units 
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Noun 

Tag  Como. 

Def. 

Decimal  Disnlav 

Comment 

15 

I 

Octal  only 

Increment  machine 

(none) 

address 

16 

DSPTEMX,  3 

DATA 

OOXXX.  hours 

Decimal  only  - t2iree 

OOOXX.  minutes 

components  must  be 

OXX.XX  seconds 

supplied 

(AGSDISPK,  R36, 

AGSVCALC) 

17 

spare 

18 

FDAI  3 

ATTM 

XXX. XX  degrees 

(V89RECL,  TOBALL 

, REDOING) 

19 

spare 

20 

CDU  3 

IMUC 

XXX. XX  degrees 

(GYCOARS,  VBZERO 

, VBCOARK) 

21 

PIPA  3 

^none) 

IMUC 

XXXXX.  piilses  for  each 

22 

THETAD  3 

IMUC 

XXX. XX  degrees 

(VBCOARK,  IMUATTCK,  P51  , 

R62DISP,  P52D,  INITBY) 

23 

spare 

24 

DSPTEMX,  3 
dp 

DATA 

OOXXX.  hours 

Decimal  only-  three 

OOOXX.  minutes 

components  must  be 

OXX.XX  seconds 

supplied 

(ALINTIME) 

25 

DSPTEM1  3 

DSPTEM1  r 

DSPTEM1  : 

DATA 

XXXXX.  without  regard 

DATA 

XXXXX.  to  scaling 

DATA 

XXXXX.  or  units 

(GOPERFT,  G0PERF1R,  R04Z) 

26 

DSPTEM1  „ 3 

PGSR 

Octal  only 

Used  to  load  address, 

DSPTEM1  ^ 

DSPTEM1  ' 

PGSR 

Octal  only 

bank  and  priority  or 

PGSR 

Octal  only  , 

delay  information  before 

(none) 

a verb  30  or  verb  31 

27 

SMODE  1 . 

(none) 

TEST 

XXXXX.  unitless 

28 

spare 

w 


7 


Noun  Tag  Como.  Def ♦ Decimal  Display 

29  spare 

30  spare 


Comment 


31  spare 


32 

mTPER  3 

EXTO 

OOXXX. 

hours 

Decimal  only-  three 

OOOXX. 

minutes 

components  must  be 

(none) 

OXX.XX 

seconds 

supplied 

33 

TIG  3 

BURN 

OOXXX. 

hours 

Decimal  only  - three 

OOOXX. 

minutes 

components  must  be 

OXX.XX 

seconds 

supplied 

(P76,  P30,  ORBCHGO,  P12LM) 

34 

DSPTEM1 , 3 

dp 

DATA 

OOXXX. 

hours 

(=TALIGN)  Decimal  only 

OOOXX. 

minutes 

three  components  must 

OXX.XX 

seconds 

be  supplied 

(PR0G21,  P52B, 

P570PT) 

35 

TTOGO  3 

BURN 

OOXXX. 

hours 

Decimal  only  - three 

OOOXX. 

minutes 

components  must  be 

(none) 

OXX.XX 

seconds 

supplied 

36 

TIMENOW  3 

EXVB 

OOXXX. 

hoirrs 

Decimal  only  - three 

OOOXX. 

minutes 

components  must  be 

(none) 

OXX.XX 

seconds 

supplied 

37 

TTPI  3 

TRGL 

OOXXX. 

hours 

Decimal  only  - three 

OOOXX. 

minutes 

components  must  be 

OXX.XX 

seconds 

supplied 

(P32,  P72,  P34: 

, P74,  INTLOOP) 

38 

TET  3 

ORB  I 

OOXXX. 

hours 

Decimal  only  - three 

OOOXX. 

minutes 

components  must  be 

OXX.XX 

seconds 

supplied 

(none) 


39  spare 
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Noiin 

Tae  Como. 

Def. 

Decimal  Disolav 

Comment 

40 

TTOGO  3 

BURN 

XX  XX  min-sec 

No  load  - decimal 

DELVSAB 

TRGX 

XXXX.X 

fps 

only 

DVTOTAL  ' 

BURN 

XXXX.X 

fps 

(POSTBDRN,  CLOKJOB,  V99RECYC) 

41 

DSPTEM1  2 

DSPTEMI^ 

(REDO) 

DATA 

XXX. XX 

degrees 

DATA 

XX. XXX 

degrees 

42 

HAPO  3 

TRGX 

XXXX.X 

nautical  miles 

Decimal  only 

HPER 

TRGX 

XXXX.X 

nautical  miles 

DELVSAB 
(P30  ) 

TRGX 

XXXX.X 

fps 

43 

LAT  3 

COOR 

XXX. XX 

degrees 

Decimal  only 

LONG 

COOR 

XXX. XX 

degrees 

ALT 

COOR 

XXXX.X 

nautical  miles 

(P21VSAVE,  LANDJUNK) 

44 

HAPOX  3 

EXVB 

XXXX.X 

nautical  miles 

No  load  - decimal 

HPERX 

EXVB 

XXXX.X 

nautical  miles 

only 

IFF 

EXVB 

XX  XX 

min  - sec 

(V82G0FLP,  V82G0N) 

45 

TRKMKCNT  3 

RNAV 

xxxxx. 

unitless 

No  load  - decimal 

TTOGO 

BURN 

XX  XX 

min-sec 

only 

pMGA 

(VN1645) 

TRGX 

XXX. XX 

degrees 

46 

DAPDATR1  1 

DAPB 

Octal  only 

(DAPDATA1) 

47 

LEMMASS  2 

DAPB 

XX  OX. 

pounds  mass 

Decimal  only 

CSMMASS 

(DAPDATA2) 

DAPB 

XXXXX. 

pounds  mass 

48 

PITTIME  2 

DAPB 

XXX. XX 

degrees 

Decimal  only 

ROLLTIME 

DAPB 

XXX. XX 

degrees 

(DAPDATA2,  TRIMDONE) 

49 

R22DISPR  3 

RNAV 

XXXX.X 

nautical  miles 

Decimal  only 

R22DISP7 

RNAV 

XXXX.X 

fps 

WHCHREAD 

RNAV 

xxxxx. 

(N49DSP  (R22LEM96)) 
50  spare 
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Comment 


Noun 

Tag 

Comp. 

Def. 

Decimal  Display 

51 

PITCHANG 

2 

Exre 

XXX. XX 

degrees 

YAWANG 

(SBANDEX) 

EXVB 

XXX. XX 

degrees 

52 

ACTCENT 

(none) 

1 

TRGL 

X.XX.XX 

degrees 

53 

spare 

54 

RANGE 

3 

EXVB 

XIXX.XX 

nautical 

miles 

RRATE 

EXVB 

xxxx.x 

fps 

RTHETA 

(DISPN5X) 

EXVB 

XXX. XX 

degrees 

55 

NN 

3 

TRGX 

xxxxx. 

unitless 

ELEV 

TRGL 

XXX. XX 

degrees 

CENTANG 

TRGL 

XXX. XX 

degrees 

(DISPUYE, 

P32, 

P72) 

56 

RR-AZ 

2 

RNAV 

XXX. XX 

degrees 

RR-ELEV 

(DSPRRLOS) 

RNAV 

XXX. XX 

degrees 

57 

spare 

to 

POSTTPI 

3 

TRGL 

xxxx.x 

nautical 

miles 

DELVTPI 

TRGL 

xxxx.x 

fps 

DELVTPF 
( INTLOOP ) 

TRGL 

xxxx.x 

fps 

59 

DVLOS 

3 

TRGL 

xxxx.x 

fps 

(334/35. 5. 

NTARGCHK ) 

60 

VHORIZ 

3 

DESC 

xxxx.x 

fps 

HDOTDISP 

SERV 

xxxx.x 

fps 

HCALC1 

(VERTDISP) 

SERV 

xxxxx. 

f eet 

61 

TTFDISP 

3 

DESC 

XX  XX  min-sec 

TTOGO 

BURN 

XX  XX  min-sec 

OUTOFPLN 

(CLOKJOB) 

DESC 

XXXX.X 

nautical 

miles 

Decimal  only 


Decimal  only 


Decimal  only 


Decimal  only 


Decimal  only 


Decimal  only 


No  load  - Decimal 
only 
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Noun 

Tag 

Como. 

Def. 

Decimal  Display 

Comment 

62 

A3VEL 

3 

SERV 

mX.X  fps 

No  load  - decimal 

TTOGO 

BURN 

XX  XX  min- sec 

only 

DVTOTAL 

BURN 

XXXX.X  fps 

(CLOKJOB, 

V99RECYC) 

63 

ABVEL 

3 

SERV 

XXXX.X  fps 

Decimal  only 

HDOTDISP 

SERV 

XXXX.X  fps 

HCALC1 

DESC 

XXXXX.  feet 

(CLOKJOB, 

P63DISPS,  CUTOFF,  V99RECYC) 

64 

FUNNYDSP 

3 

DESC 

XX  XX 

No  load  - decimal 

HDOTDISP 

SERV 

XXXX.X  fps 

only 

HCALC 

SERV 

XXXXX.  feet 

(P64DISPS) 

65 

SAMPTIME 

3 

DSKY 

OOXXX.  hours 

Decimal  only  - three 

OOOXX.  minutes 

components  must  be 

(none) 

OXX.XX  seconds 

supplied 

66 

RSTACK, 

2 

RADR 

XXXXX.  feet 

No  load  - decimal 

Bits  7-6 

— 

OOOOX.  unitless 

only 

of  Channel 

33 

(R04Z) 

67 

RSTACK 

RSTACK^ 

3 

RADR 

XXXXX.  fps 

RADR 

XXXXX.  fps 

RSTACKT 

(R04Z)'^ 

RADR 

XXXXX.  fps 

68 

RANGEDSP 

3 

DESC 

XXXX.X  nautical  miles 

No  load  - decimal 

TTFDISP 

DESC 

XX  XX  min  - sec 

only 

DELTAH 

(none) 

SERV 

XXXXX.  feet 

69 

DLAND 

Tnone) 

3 

DESC 

XXXXX.  feet 

Decimal  only 

70 

AOTCODEf, 
AOTCODE): 
AOTCODE  ‘ 

3 

ALIN 

Octal  only 

Note  that  noun  70  is 

— 

Octal  only 

displayed  with  verb  01 

— 

Octal  only 

The  second  and  third 

(R52,  R59) 

components  are  meaning 

less . 
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Noun 

Tas  Como. 

Def. 

Decimal  Display 

Comment 

71 

A0TC0DE„  3 

aotcode!: 

aotcode' 

ALIN 

Octal  only 

Like  noun  70 

— 

Octal  only 

— 

Octal  only 

(($TDAT,  CHANGEVB,  GETMKS) 

72 

CDU  2 

RADR 

XXX. XX  degrees 

(360  degrees  - CDU.  displayed) 

CDU 

RADR 

XXX. XX  degrees 

(Rofz,  VBZERO, 

VBCOARK , 

R21DISP) 

73 

TANG„  2 

tang!: 

(vbc6ark) 

RADR 

XXX. XX  degrees 

(display  of  TANG^  is  the  comp- 

RADR 

XXX. XX  degrees 

lement 

of  the  value  stored) 

74 

TTOGO  3 

BURN 

XX  XX  min-sec 

No  load  - decimal 

YAW 

ASCT 

XXX. XX  degrees 

only 

PITCH 

ASCT 

XXX. XX  degrees 

(CLOKJOB,  V99RECYC) 

75 

DIEFALT  3 

TRGX 

XXXX.X  nautical 

miles 

No  load  - decimal 

T1 T0T2 

TRGX 

XX  XX  min-sec 

only 

T2T0T3 

TRGX 

XX  XX  min-sec 

(P32/P72F,  P33/P73F) 

76 

ZDOTD  3 

ASCT 

XXXX.X  ft/sec 

Decimal  only 

RDOTD 

ASCT 

XXXX.X  ft/sec 

XRANGE 

(P12LM) 

ASCT 

XXXX.X  nautical 

miles 

77 

TTOGO  2 

ASCT 

XX  XX  min-sec 

No  load  - decimal 

YDOT 

ASCT. 

XXXX.X  fps 

only 

(none ) 

78 

DNRRANGE  3 

RADR 

XXX. XX  nautical 

miles 

DNRRDOT 

RADR 

XXXXX.  fps 

TTOTIG 

(R04Z) 

RADR 

XX  XX  min-sec 

79 

CURSOR  3 

ALIN 

XXX. XX  degrees 

Decimal  only 

SPIRAL 

ALIN 

XXX. XX  degrees 

POSCODE 

ALIN 

XXXXX.  unitless 

(DSPV6N79,  79DISP) 

80 

DATAGOOD  2 

RNAV 

XXXXX.  unitless 

OMEGDISP 

(R24LEM) 

RNAV 

XXX. XX  degrees 

81 

DELVLVC  3 

TRGX 

XXXX.X  fps 

Decimal  only 

(P30,  S34/35.5, 

P32/P72F 

, P33/P73F) 
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Noiin 

Tag 

Como. 

Def . 

Decimal  Display 

Comment 

82 

DELVLVC 

3 

TRGX 

XXXX.X  fps 

Decimal  only 

(P32/P72F) 

83 

DELVIMU 

(P47B0DY) 

3 

BURN 

XXXX.X  fps 

Decimal  only 

84 

DELVOV 

(P76) 

3 

ORBI 

XXXX.X  fps 

Decimal  only 

85 

VGBODY 

3 

BURN 

XXXX.X  fps 

Decimal  only 

(TIGNOW, 

CUTOFF, 

P41IW, 

TIG-30A) 

86 

DELVLVC 

(none) 

3 

TRGX 

XXXX.X  fps 

Decimal  only 

87 

AZ 

2 

ALIN 

XXX. XX  degrees 

EL 

ALIN 

XXX. XX  degrees 

(GETDAT, 

GETAZEL) 

88 

STARAD 

3 

ALIN 

.XXXXX  unitless 

Decimal  only 

(PLANET) 

89 

LANDLAT 

3 

ALIN 

XX. XXX  degrees 

Decimal  only 

LANDLONG 

ALIN 

XX. XXX  degrees 

LANDALT 

(N89DISP) 

ALIN 

XXX. XX  nautical  miles 

90 

RANGE 

3 

EXVB 

XXX. XX  nautical  miles 

Decimal  only 

RRATE 

EXVB 

XXXX.X  fps 

RTHETA 

(R36) 

EXVB 

XXX. XX  degrees 

91 

P21ALT 

3 

RNAV 

XXXXXB.  nautical  miles 

P21VEL 

RNAV 

XXXXX.  ft/sec 

P21GAM 

RNAV 

XXX. XX  degrees 

92 

spare 

93 

OGC 

3 

COOR 

XX. XXX  degrees 

IGC 

COOR 

XX. XXX  degrees 

MiGC 

COOR 

XX. XXX  degrees 

(IMUFINEK,  R55, 

INITBY) 

94 

spare 

95 

spare 

96 

spare 
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Noian 

Tag 

Como. 

Def. 

Decimal  Disolav 

Comment 

97 

DSPTEM1 
DSPTEMI^ 
D3PTEM1 ' 
(none) 

3 

DATA 

DATA 

DATA 

XXXXX.  unitless 
XXXXX.  unitless 
XXXXX.  unitless 

98 

DSPTEM2f, 

DSPTEM2!: 

DSPTEM2' 

(SHOW) 

3 

DATA 

DATA 

DATA 

XXXXX.  unitless 
.XXXXX  unitless 
XXXXX.  unitless 

99 

WWPOS 

WWVEL 

WWBIAS 

3 

RNAV 

RNAV 

RNAV 

XXXXX.  feet 

XXXX.X  fps 

XX. XXX  radians 

Decimal  only 

(V67CALL,  GOTOPOOH  - in  GOTOPOOH,  the  noun  is  not  processed) 
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Alarm  Codes 


All  alarm  codes  are  listed  in  octal.  The  names  of  the  "Routines"  where 
each  code  is  generated  refer  to  the  titles  as  they  appear  in  this  document . 


Alarm 

Routines 

Sienificance 

00107 

L 

YMKRUFT 

Five  or  more  mark  pairs  already  recorded 

L 

SURF  AG  AN 

00111 

L 

MARKGHEX 

Mark  missing 

00112 

L 

MARKRUPT 

Mark  or  mark  reject  attempted  with  the  respective 
routine  inoperative 

00113 

L 

SOMEKEY 

No  Inbits  in  channel  16 

00114 

L 

YMKRUPT 

Wrong  mark 

00115 

L 

MARKRUPT 

Mark  reject  when  no  marks  taken  to  reject 

00206 

T 

Lj 

IMUZERO 

ICDU  zero  attempted  while  in  coarse  align  because 
of  gimbal  lock  warning 

00207 

L 

IMUMON 

ISS  turn-on  request  not  present  for  90  seconds 

00210 

L 

IMUCHK 

IMU  not  operating  when  required 

L 

R02B0TH 

L 

IMUZERO 

00211 

L 

C0ARS2 

Coarse  align  error 

00212 

L 

PIPFREE 

PIPA  fail  when  primary  PIPA  fail  monitor  has 

L 

C33TEST 

been  disabled  (PIPA  not  in  use) 

00213 

L 

T NONTEST 

"Turn-on  delay  initiate"  signal  from  IMU  present 
without  "IMU  operate"  signal 

00214 

L 

IMUMON 

Program  using  IMU  when  it  was  turned  off 

00217 

L 

CURTAINS 

Bad  return  from  stall  routine  (e.g. , switching 
fail) 

00220 

L 

AGSINIT 

IMU  not  aligned  - no  REFSMMAT 

L 

R02B0TH 

00401 

L 

KALCMAN3 

Desired  gimbal  angles  yield  gimbal  lock 

L 

CALCGA 

L 

DCMCL 

00402 

L 

NOATTCNT 

FINDCDUW  not  controlling  attitude 

00404 

D 

R59ALM 

Desired  star  not  available  in  any  detent  position 

00405 

D 

R51 

"R56"  did  not  find  star  pair  for  optical  sighting 

00421 

L 

WMATEND 

W-matrix  overflow 

00501 

P 

R23LEM 

Manual  RR  acquisition  not  within  limits 

00502 

L 

RRDESN3 

Bad  RR  gimbal  angle  input  (verb  4I) 

00503 

L 

RRDESK2 

RR  designate  failure 

P 

R21LEM 

P 

R21LEM1 

00510 

L 

RRZERO 

RR  zero  requested  (verb  40)  with  RR  auto  discrete 
absent 

00511 

L 

MUNRETRN 

LR  not  in  proper  position 

00514 

P 

P20LEMB7 

RR  auto  discrete  removed  while  RR  in  use 

00515 

L 

RRCDUCHK 

RR  CDU  fail  discrete  detected 

00520 

L 

RAD ARE AD 

RR  read  interrupt  initiated  when  not  called  for 

L 

DORS  AMP 
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Alarm 

Routines 

Sienificance 

00521 

L 

.R.ADAR3AD 

No  data  good  while  reading  radar 

L 

RESAMPLE 

00522 

L 

RADAR13AD , 

DORSAMP  LR  position  change  during  LR  reading 

00523 

L 

LRP0S2K 

LR  position  2 not  achieved  in  23  seconds 

P 

HIGATJOB 

00525 

P 

R22LEM 

Actual  RR  LOS  differs  from  computed  LOS  by 

more  than  3^ 

00526 

P 

P20LEM1 

Range  greater  than  400  nautical  miles 

P 

CSMINT 

00527 

L 

LRS24.I 

LOS  not  in  mode  limits 

00530 

p 

60TIMES 

LOS  not  in  coverage  (P22)  less  than  10  minutes 

from  nDw 

00600 

D 

CIRGL 

Imaginary  roots  on  first  iteration  of  CSI  solution 

00601 

D 

CSI/SOL 

Projected  perigee  altitude  after  CSI  less  than 

minimum 

00602 

D 

CSI/SOL 

Projected  perigee  altitude  after  CDH  less  than 

minimum 

00603 

D 

CSI/SOL 

Time  between  CSI  and  CDH  less  than  minimum 

00604. 

D 

GSI/SOL 

Time  between  CDH  and  TPI  less  than  minimum 

D 

CIRGL 

00605 

D 

CSI/BI 

Too  many  Iterations 

00606 

D 

GSI/B2 

Projected  DELVCSI  exceeds  maximum 

00611 

D 

IRTLOOP 

No  TPI  ignition  time  solution  for  given  elevation 

D 

P33/P73B 

angle 

00701 

D 

DSPOPTN 

Illegal  option  code  was  selected 

00777 

L 

SETISS'/J 

ISS  warning  caused  by  PIP A fail 

01102 

L 

PRERRORS 

AGC  self  test  error 

01105 

L 

DOTMFAST 

Downlink  too  fast 

01106 

L 

UPTMFAST 

Uplink  too  fast 

01107 

L 

G0PR0G3 

Phase  table  discrepancy;  restart  failure;  causes 

restart 

01301 

L 

ARGSUB 

Arcsin  or  arccosine  input  too  large 

01406 

L 

TTF/8CL 

Bad  return  from  RDOTPSRS  routine  during  descent 

guidance 

01407 

L 

VGAIN-"‘ 

VG  increasing 

01410 

L 

EXVERT 

Unintentional  overflow  in  descent  (P63  or  P64) 

guidance 

01412 

L 

EXGSUB 

Calculation  of  descent  ignition  time  not  converging 

01520 

L 

V37 

Verb  37  not  permitted  at  this  time 

01600 

L 

SOMEERRR 

Overflow  in  drift  test 

01601 

L 

S0MERR2 

Bad  IMU  torque 

01703 

L 

MIDTOAVl 

Insufficient  time  remaining  before  scheduled 

L 

CKMID2 

ignition 

01706 

D 

P4OALM 

Incorrect  program  requested  for  vehicle  configuration 

02001 

L 

TRIU0R7 

Jet  failures  have  disabled  Y-Z  translation 

02002 

L 

+XORULGE 

Jet  failures  have  disabled  X translation 

02003 

L 

SELECT P 

Jet  failures  have  disabled  P rotation 

02004 

L 

FAILOOP 

Jet  failures  have  disabled  U-V  rotation 

03777 

L 

SETISSW 

ISS  warning  caused  by  ICDU  fail 

04777 

L 

SETISSW 

ISS  warning  caused  by  ICDU  and  PIP A fail 

07777 

L 

SETISSW 

ISS  warning  caused  by  IMU  fail 
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Alarm 

Routines 

Significance 

10777 

L 

SETISSW 

ISS  warning  caused  by  IMU  fail  and  PIPA  fail 

13777 

L 

SETISSW 

ISS  warning  caused  by  IMU  and  ICDU  fail 

U777 

L 

SETISSW 

ISS  warning  caused  by  IMU,  ICDU  and  PIPA  fail 

20105 

AOTMARK 

Optical  mark  routine  called  when  already  busy 

20430 

GOBAQUE 

Acceleration  overflow  in  integration 

20607 

TIMERAD,TIMETHET  No  solution 

COMMNOJT 

21103 

CCSHOLE 

Theoretically  impossible  branch  taken 

21204 

DLY2 

LONGCALL 

Zero  or  negative  time  applied  to  waitlist,  delay 
or  LONGCALL 

21302 

SQRT 

Negative  argument  input  to  square  root  routine 

21406 

TTF/8CL 

Bad  return  from  ROOTPSRS  routine  during  descent 
pre-ignition  phase 

21501 

DSPALARM 

Invfalid  display  Interface  information  from 
internal  program 

31104 

DELLOOP 

Too  many  users  of  delay  routines 

31201 

FINDVAC2 

Too  many  jobs  requiring  working  storage 

31202 

N3VAC3 

Too  many  jobs 

31203 

DLY2 

WTLST5 

Too  many  tasks 

31206 

NV50DSP 
FLASKS UB 

More  than  one  program  active  in  display  interface 
routines  at  one  time 

31207 

AOTMARK 

No  working  storage  available  for  marks 

31210 

GOMAN JR 
IMUSTALL 
AOTSTALL 
RADSTALL 

Two  users  of  the  same  device  or  routine  (radar, 
AOT,  IMU,  KALCMAN3) 

31211 

AOTMARK 

Illegal  Interrupt  of  extended  verb 

31502 

MAKEPLAY 

MAKEPRIO 

FLASHSUB 

Illegal  flashing  display 

32000 

PAXIS 

DAP  still  in  progress  from  last  TIME5  interrupt 
when  another  TIME5  interrupt  is  initiated 

L Alarm  lights  "Program  Caution"  light  and  the  code  is  stored  in  noun  09 
(which  is  on  telemetry) 

D Alarm  does  all  of  "L"  plus  the  alarm  code  is  displayed  as  part  of 
program  logic 

P Alarm  does  all  of  "D"  functions  except  with  a priority  display. 

If  the  first  number  is  a 3 in  the  code,  the  alarm  does  all  of  "L"  functions 
plus  a "BAILOUT"  or  software  restart. 

If  the  first  number  is  a 2 in  the  code,  the  alarm  does  all  of  "L"  functions 
plus  a "POODOO"  which  terminates  all  program  activity. 
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Checklist  Codes 


Checklist 

Code  Routine  Meaning 


13  P52D 


14  P57P0ST 


R5IK 


ASTNRET 


15  P51 


R5I 


Key  in  Normal  Coarse  Align  or  Gyro  Torque  Coarse 
Align 

Terminate:  Proceed  to  "GOTOPOOH" 

Proceed:  Do  Normal  Coarse  Align;  "REGCOARS" 

Enter  or  Resequence:  Do  Gyro  Torque  Coarse 
Align 

Key  in  Fine  Alignment  Option 

Terminate:  Proceed  to  "GOTOPOOH" 

Proceed:  Align  LM  based  on  keyed  in  option 
("ATTCHK") 

Enter  or  Resequence:  Determine  LM's  position  from 
gravity  vector  if  option  2 alignment 

Key  in  Fine  Alignment  Option 

Terminate:  Proceed  to  "GOTOPOOH" 

Proceed:  Check  alignment  by  recycling  through 
Routine  51 

Enter  or  Resequence:  Exit  Routine  5I 

Key  in  Fine  Alignment  Option 

Terminate:  Proceed  to  "GOTOPOOH" 

Proceed:  Check  alignment  by  performing  Routine 
51  and  continuing 

Enter  or  Resequence:  Continue  without  check 

Perform  Celestial  Body  Acquisition;  Key  in  Proceed 
Option 

Terminate:  Proceed  to  "GOTOPOOH" 

Proceed:  Continue  to  marking  process 
Enter  or  Resequence:  Perform  Coarse  Align  to 
zero  TMU;  Then  redisplay  code  15 

Perform  Celestial  Body  Acquisition;  Key  in  Proceed 
Option 

Terminate:  Proceed  to  "GOTOPOOH" 

Proceed:  Perform  Routine  56;  then  continue 
Enter  or  Resequence:  Perform  Routine  5IE 
(maneuver  LM  and  mark) 


62  P06 


Switch  AGC  Power  down;  Enter  standby  mode 
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Checklist 

Code  Routine  Meaning 


201  RO4X  Switch  RR  to  automatic  tracking  mode 

Terminate:  Exit  Routine  04 

Proceed:  Continue  with  Routine  04  (after 

checking  that  RR  is  switched  to  auto  mode) 
Enter  or  Resequence:  Repeat  checklist  request 

P20LEMB7  Switch  RR  to  automatic  tracking  mode 
Terminate:  Exit  Program  20 
Proceed:  Continue  Program  20 
Enter  or  Resequence:  Perform  "R23LEM" 

(manual  acquisition  monitor)  if  not  on  lunar 
surface;  then  continue  Program  20 


203  P4OAUTO  Switch  Control  of  PGNCS;  switch  DAP  to  AUTO; 

switch  Throttle  Control  to  Auto  (if  descent) 

Terminate:  Proceed  to  "GOTOPOOH" 

Proceed:  Continue  present  program  if  switches  are 
properly  set 

Enter  or  Resequence:  Continue  present  program 
regardless  of  switch  setting 

205  R23LEM  Perform  Manual  Acquisition  of  CSM  with  RR 

Terminate:  Exit  Program  20 
Proceed:  Continue  in  Routine  23 
Enter  or  Resequence:  Perform  Automatic  Maneuver; 
then  continue  in  Routine  23 


500  A3TNRET  Switch  LR  antenna  to  position  1 

Terminate:  Proceed  to  "GOTOPOOH" 

Proceed:  Initialize  Landing  Radar  Control 

("SETP0S1"),  if  LR  not  in  position  1 and 
continue 

Enter  or  Resequence:  Initialize  Landing  Radar 
Control  ("SETP0S1")  and  continue  regardless 
of  Landing  Radar  Position 
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Option  Codes 


This  is  a list  of  the  option  codes  displayed  in  R1  in  conjunction 
with  a V04N06  (OPTIONI ) or  V04N12  (OPTIONXq)  to  request  the  astronaut  to 
load  into  R2  the  option  he  desires  for  program  LUMINARY  (0PTI0N2  or 
OPTIONXq  respectively).  In  the  case  of  option  code  10  in  R1 , an  0PTI0N3 
is  also  defined  as  a flagword  indicator  which  is  set  by  the  program  and 
loaded  into  R3 . 


Option 

Code 

R1 

Purpose 

Input  of  R2 

Routine 

Option 

Code 

Types 

00001 

Specify  IMU 
Orientation 

1-  Preferred  Attitude 

2-  Nominal  Attitude 

3-  Attitude  specified  by 
present  REFSMMAT 

4-  Landing  Site  Attitude 

P52B 

P570PT 

R1  -OPTIONI 
R2-0PTI0N2 

00002 

Specify  Vehicle 

1-  This  Vehicle  (LEM) 

2-  Other  Vehicle  (CSM) 

PR0G21 

R1 -OPTIONI 
R2-0PTI0N2 

V82CALL 

R1  -OPTIONX, 
R2-0PTI0NX 

00003 

Specify 

Tracking 

Attitude 

1-  Point  Z-axis  (preferred) 

2-  Point  X-axis 

V89CALL 

R1 -OPTIONX 
R2-0PTI0NX 

00004 

Specify  Radar 

1-  RR  (Rendezvous  Radar) 

2-  LR  (Landing  Radar) 

R04Z 

R1-0PTI0NX- 

R2-0PTI0NX. 

00006 

Specify  RR 
Coarse  Align 
Option 

1-  Lock-on 

2-  Continuous  Designate 

VBCOARK 

R1  -OPTIONX 
R2-0PTI0NX. 
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Option 

Code 

R1 

00010 


00012 


Purpose 


Input  of  R2 


Routine 


Specify  0-  Time  critical  - Stored  PACKOPTN 

Alignment  LM  Attitude  or  Present 

Option  REFSMMAT 

1-  REFSMMAT  + Lunar  Gravity 
Vector 

2-  Two  Bodies 

3-  One  Body  + Lunar  Gravity 
Vector 


R3-OPTION3  Definition 


Bit  1 = 


Bit  4 = 


Bit  7 ^ 


REFSMMAT  is  defined 
REFSMMAT  is  not  defined 
Stored  LM  attitude  available 
Stored  LM  attitude  not  available 
Ascent  Time  ( TIG  (AS)  ) defined 
TIG  (as)  not  defined 


All  other  bits  are  zero 


Specify  GSM  1-  No  Orbit  Change 

Orbit  Option  2-  Change  Orbit  to  pass  ORBCHGO 

over  the  LM 


Option 

Code 

Types 

R1 -0PTI0N1 
R2-0PTI0N2 
R3-0PTI0N3 


R1-0PTI0N1 

R2-0PTI0N2 
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Job  Priorities 


Priority 

Job 

Routine  Where  Priority  Established  ( or  changed) 

35 

NBDONLY 

SVCT3 

33 

MAKEPLAY 

MAKEPLAY 

( change ) 

32 

HIGATJOB 

JAMTERM 

LRVJOB 

LRHJOB 

MUWRETRN 

NVDSP 

VALTCHK 

R10,R11 

31 

TTFINCR 

TTFINCR 

( change ) 

30 

TSTLTS3 

MONDO 

CHARIN 

UP  JOB 

PROCKEY 

DSPMMJOB 

TSTLTS2 

MONREQ 

KEYRUPT1 

UPSTORE 

PROCEEDE 

TSTLTS3  REDO  UPUPDATE  UP0UT4  V37XEQ  G0PRDG3 
ENDTEST1  P65START  STARTP67  STARTP66  STARTP64 

27 

1 /ACCSET 

1 /ACC JOB 

N49DSP 

CLOKJOB 

DAP IDLER 

VOPENED  RCSMONIT  SETMINDB  SETMAXDB  PFLITEDB 
R22LEM96 

CLOKTASK 

26 

BODES 

PR0G20 

P20LEMB 

P20LEMC3 

R22LEM42 

PRDG25 

R61C+L01 

R29RDJ0B 

NEWDELHI 

R21 LEM1 0 
RELINUS 

MOREDES 

PR0G20 

P20LEMB 

P20LEMD1 

P20LEMC1 

PR0G25 

R61 C+L06 

R29READ 

UPDTCALL 

R21LEM9 

RELINUS 

( change ) 

( change ) 

• 

(change ) 

( change ) 

25 

ENDEXT 

DORSAMP 

DATGDCHK 

COMFAIL 

TICKTEST 

RADSAMP 

CALLDGCH 

DVMON 

23 

POSGOOD 

POSGOOD 

( change ) 

22 

REDO 

NORMLIZE 

GETRVN 

RODCOMP 

SYSTEST 

PREREAD 

GETRVN 

RODTASK 

( change ) 
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Priority 

Job 

Routine  Where  Priority  Established  (or  changed) 

21 

R29REM0J 

R29 

R29D0DES 

BEGDES29 

l/GYRO 

1/PIPA 

LASTBIAS 

PREREAD 

20 

ALFLT 

ALLOOP 

PIPJOBB 

PIPATASK 

RRDESK2 

VBCOARK 

S40.13 

P40SJUNK 

P47B0DY 

STARTP47 

SERVICER 

READACCS 

TTFINCR 

TTFINCR  (change) 

17 

CUTOFF 

GOCUTOFF  ENG0FF1 

P41 BLANK 

TIG-35 

TIG-30A 

TIG-30.1 

UPTHROT 

UPTHROT  (change) 

CUTOFF 

ENG0FF1 
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ENDTEST1  ENDRO3 

ENDIMU 

IMUC-1 8 

IMUZER02  C0ARS2  IMUFINED 

ENDINT 

ORBI-2 

STATINT1 

ENDLRV 

SERV-1 3 

LRVJOB 

ENDMANU1 

ATTM-2 

TOBALL  R61TEST 

ENDMANUV 

ATTM-2 

ENDOFJOB 

MATX-16 

DORROUT  LRS24.1  OMEGCALC  DATDCHK 

TESTNN  DSPC0M2  HMSOUT  DSPDPDEC  MONITOR 
ALMCYCLE  OKTOPLAY  MKEMARK  OKTOCOPY  XCHSLEEP 
NOUN  ENTER  R6IC+LO6  DSPDCEND  PREREAD 

ENDP76 

ORBI-25 

P76 

ENDPRCHG 

MATX-15 

EJSCAN 

ENDRADAR 

RADR-18 

RADSTALL  STDESIG  RRZ2 

ENDRET 

DINT-1 6 

NORMWAKE  MARKWAKE 

ENDRRD29 

RNAV-33 

R29RDJ0B  R29RANGE 

ENDR03 

DAPB-21 

DAPDATA2 

ENDRSTRT 

PGSR-1 1 

GOPROG3 

ENDSTATE 

ORBI-13 

DIFEQ+2 

X - u 


ENDTEST1 

TEST-14 

REDO  SHOW  SOMEERRR 

ENDTFF 

EXVB-23 

CALCTFF 

ENDTNON 

IMUC-10 

TNONTEST  ENDTNON 

ENEMA 

PGSR-1 0 

WHIMPER  ABRTJASK 

ENGINOF1 

BURN -8 

SEUDOPOO 

ENGIN0F2 

BURN -8 

ENGOFF1 

ENGINOF3 

BURN -8 

BURNBABY 

ENGINOF4 

BURN-8 

C0MFAIL2 

ENGINOFF 

BURN-7 

ENGOFTSK 

ENGOFF1 

ASCT-1 1 

MAINENG 

ENGOFTSK 

BURN-7 

P42IGN  STEERING 

ENOUGH! 

BURN-3 

ENTER 

DSKY-6 

CHARIN 

ENTERUV 

DAPA-22 

RHCACTIV 

ENTPASO 

DATA-3 

ENTER  NVSUB  ALMCYCLE 

ERASCHK 

TEST-3 

SELFCHK 

ERASLOOP 

TEST-4 

ERASLOOP 

ERROR 

DSKY-7 

CHARIN 

ESTIMS 

TEST-1 1 

PIPJOBB 

EXBRAK 

DESC-8 

CGCALC 

EXDSPRET 

DINT-4 

VBGOARK  IMUFINEK  IMUATTCK  AGSVCALC 

EXGSUB 

DESC-2 

CGCALC 

EXNORM 

DESC-9 

CGCALC 
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EXTLOGIC  DESC-8  AECCALCl 

EXVERT  DESC-9 


FAILOOP 

DAPA-27 

FAZAB3 

RNAV-40 

FAZC 

RNAV-39 

FEEDBACK 

DAPA-26 

FETGH2IA/D 

TELE-3 

FIFTIFPS 

TRGX-1 4 

FINDCDUW 

BURN-20 

FINDGIMB 

ATTM-4 

FINDVAG 

MATX-11 

FINDVAC2 

MATX-11 

FIRSTTME 

BURN-1 8 

FIXDELAY 

MATX-24 

FLASHSUB 

DINT-1 3 

FLATOUT 

DESC-1 5 

FRSTPAS 

TRGX-1 4 

FXADRS 

TEST-7 

GAMCOMP 

ORBI-10 

GEOM 

CONC-9 

GET.LVC 

TRGX-1  5 

SELCTSUB  FAILOOP 

FAZC 

INC0RP2 

DOROTAT 

0NPHASE2  NEXTINSL 
CIRCL 

ASCTERM  EXVERT  VGAIN* 
VECPOINT 

SPVAC 

RASTEER1 

NVDSP  NV50DSP 

P63ZOOM 

CIRCL 

ADRS+1  NXTBNK 

ACCOMP 

LAMBERT  PARAM 
S40.1  S40.1B 
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GET+MGA 

TRGX-1  5 

VN1645 

GETAZEL 

ALIN-21 

R52 

GETCADR 

MATX-24 

LONGCYCL 

GETCOMP 

DATA-21 

BLOAD  CLOAD  ABLOAD  ABCLOAD  PUTNORM  PUTCOM 

GETDAT 

ALIN-4 

AOTMARK  GETDAT  PASTIT 

GETI 

DATA-22 

PUTCOM  DEGINSF 

GETINREL 

DSKY-4 

5BLANK  NUM  POSGN  NEGSN  CLEAR  +ON  -ON 

GETLMATT 

ALIN-26 

DSPOPTN 

GETMKS 

ALIN-6 

MARKCHEX  SURFAGAN  OPTAXIS 

GETRANS 

BURN-U 

UPDATEVG 

GETRVN 

EXVB-26 

V83CALL  REV83 

GETX 

CONC-1  0 

TIMERAD  TIMETHET  LAMBLOOP 

GLOCKMON 

IMJC-8 

PROCEEDE 

GOABORT 

ASCT-4 

ABRTJASK 

GOBAQUE 

ORBI-12 

GAMCOMP  OBLATE  ENDSTATE 

GOCUTOFF 

BURN-1 1 

CENTER 

GODSP 

DINT-1 

ASCTERMl 

GODSPR 

DINT-1 

REDOMANC  GYCOARS 

GODSPRET 

DINT-1 

P51  P41LM 

GODSPRS1 

DINT-5 

GODSPR  GOFLASHR  GOPERF1R  G0PERF2R  G0PERF4R 
REGODSPR  REFLASHR  GOXDSPR  GOXDSPFR  G0MARK2R 
PRIODSPR 

GOESTIMS 

TEST-1 1 

REDO 

GOEXTVB 

EXVB-1 

VERBFAN 
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GOFLASH 


G0FLASH2 

GOFLASHR 

GOLOADV 
GOMANUR 
G0MARK2 
G0MARK2R 
GOMARK3 
t GOMARK3R 
G0MARK4 
GOODMANU 
GOODRAD 
GOPERFl 

GOPERF1R 

G0PERF2 

G0PERF2R 

GOPERF4 

G0PERF4R 


DINT-1  R62DISP  V89CALL  V89RECL  PLANET  CHKSDATA  DISPLAYE 

P52B  R59  GVDETER  R59ALM  79DISP  INITBY  DSPOPTN  VNO6II 
P34  R55  R52  P52D  REDO  SHOW  ORBCHGO  PR0G21  REP4OALM 
P12LM  CUTOFF  LANDJUNK  GOTOPOOH  P76  N89DISP  GETAZEL 
P74  INTLOOP  334/35. 5 P570PT 

P30  P32  P72  P32/P72F  P33  P73  P33/P73B 
P33/P73F  VNI645  ALMXIT  NTARGCHK  VN0655 

DINT-5  GODSP  GODSPRET  GOFLASH  GOPERF1  G0PERF2 

G0PERF4  REGODSP  REFLASH  CLEANDSP  GOXDSP 
EXDSPRET  GOXDSPF  G0MARK2  GOMARK3  G0MARK4 
KLEENEX  PRIODSP 

DINT-1  POSTBURN  V99RECYC  P47B0DY 


EXVB-6 

ATTM-1 

DINT -4 

DINT -4 

DINT-4 

DINT-4 

DINT-5 

ATTM-8 

RADR-22 

DINT-1 


GOEXTVB 


AGSVGALC 
TRIMDONE  WAIT68 
PASTIT  RO4X 
NOGO 

LRHEIGHT  RADAREAD  RENDRAD 

P51  P52D  R51  R51K  P57P0ST  P20LEMB7  R23LEM 
P4OAUTO  ASTNRET  P06 


DINT-2 

DINT-2 

DINT -2  TOBALL  R21DSP 
DINT-2  ORBCHGO  PR0G21 
DINT -2  P52B  P570PT 
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GOPOST 


BURN-1 1 *ENTER 


GOPROG  PGSR-9  Called  via  program  Interrupt  #11  VERB69 

G0PR0G2  PGSR-10  TRMTRACK  SEUDOPOO  V37RET 

G0PH0G2A  PGSR-1 0 


GOPROG3  PGSR-1 0 GOPROG 

GOSHOSUM  EXVB-10  GOEXTVB 

GOTOPOOH  PGSR-1 1 TERMASC  PI  2LM  TEKM40  STOPQLOK  P4OAUTO  P21 VSAVE 

P47B0DI  SERVIDLE  ASTNRET  P64DISPS  LANDJUNK  N89DISP 
ENDP76  P34  P74  INTLOOP  DISPLAIE  S34/35.5  GETAZEL 

DSPLY81  P30  P570PT  KILLAOT 
P32/P72E  P33  P73  P33/P73B  P33A73F  VN1645  VNO6II 
N45PROG  ALMXIT  NTARGCHK  GOPROG3  POSTAND  HIGATJOB 
ORBCHGO  PR0G21  GVDETER  DSPOPTN  INITBY  REP4OALM 
P57POST  79DISP  R59ALM  R59  R55  R52  R51K  R51 
REGCOARS  P52D  P52B  CHKSDATA  DSPV6N79  V1\I0655 
R6ITEST  R02B0TH  P51  P51C  IMUCHK  GETDAT  PASTIT 

GOXDSP  DINT -3 


DINT-4  SDISPLAY  VBCOARK  IMUPINEK  IliUATTCK  AGSDISPK 
0HWELL1  0HWELL2  UPVERIFY  V82CALL  V82G0FLP 
V82GON  DISPN5X  R36  ALINTIliE  RO4X  DSPV6N79 
GETDAT 


GOXDSPFR  DINT -4  DAPDATA1  DAPDATA2  VBCOARK  SBANDEX  DSPRRLOS 

V67C,ALL  RO4Z  DSP68 

GOXDSPR  DINT-3 

GRABGRAV  ALIN-35  GREED 

GREED  ALIN-35  ADDGRAV 

GTS  DAPA-28  QRAXIS  TRYGTS 

GTSQRT  DAPA-34  RSTOFGTS 

GUILDRET  DESC-4  IGNALOOP  LUNLAND 

GVDETER  ALIN-33  BYLMATT  GVDETER 

GYCOARS  ALIN-17  P52D 

GYROEXIT  IMUC-13  STRTGYR2  8192AUG 
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HAVEGUES 

TRGL-9 

S40.9 

HIENERGY 

CONG -8 

LAMBLOOP 

HIGATJOB 

SERV-8 

MUNRETRN 

HMSIN 

DATA-25 

PUTDCSF2 

Hl'lSOUT 

DATA-1 1 

DECDSP3 

IDLERET3 

DINT-1  5 

RECALTST 

IFAILOK 

IMUC-17 

IMUFINE 

IGNALOOP 

DESC-2 

EXGSUB 

IGNITION 

BURN-5 

^PROCEED  TIG-0 

Il^ATTCK 

EXVB-5 

GOEXTVB 

IMUBAD 

IMUC-1 8 

ENDTNON  STRTGYRO  8192AUG  COARS  C0ARS2  IMUZER02 
ENDIMU  IMUFINED 

IMUCHK 

ALIN-36 

P51  P57 

IMUCOARS 

IMUC-U 

REDO  PIPJOBB  VBCOARK  COARSE 

IMUFINE 

IMUC-17 

REDO  IMUFINEK  COARSE 

IMUFINED 

IMUC-17 

STRTGYR2  IMUFINE 

IMUFINEK 

EXVB-4 

GOEXTVB 

Il-IUGOOD 

IMUC-1 8 

IMUMON 

IMUC-4 

PROCEEDE 

IMUPULSE 

IMUC-1 0 

EARTHR*  PERFERAJ  IMUFINEK  I/GYRO  STRTGYR2 
GYCOARS  R55  INITBY 

Il-IUSTALL 

IMUC-17 

REDO  PIPJOBB  EARTH*  PERFERAS  VBCOARK  IMUFINEK 

AGSVCALC  VBZERO  1/GYRO  COARSE  R55 
INITBY  GYCOARS 
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IMaZERO 

IMJC-13 

REDO  AGSVCALC  VBZERO 

IMUZER02 

IMJC-14 

IMLJZERO 

INCAZ 

ALIN-31 

INCAZ 

INCOR2-3 

RNAV-37 

NEWZCOiyiP 

INCORP1 

RNAV-37 

LGCUPDTE 

INC0RP2 

RNAV-38 

ASTOK 

INFINITY 

CONC-1 2 

WLOOP  1/WLOOP  POLYCOEF 

INITBY 

ALIN-28 

SURFLINE 

INITCDUW 

BURN-20 

GOABORT  P41SP0T 

INI TREAD 

RADR-1  7 

LRALT  LRVELX  LRVELY  LRVELZ  RRRDOT  RRRANGE 

INITV 

CONG -8 

LAMBLOOP  SUFFCHEK 

INITVEL 

TRGL-9 

S40.1B  S3435.25 

INITVEL2 

TRGL-10 

INITVEL2 

INITVEL7 

TRGL-11 

INITVEL2 

INJTARG 

ASCT-5 

GOABORT 

INTEGRV 

ORBI-3 

STATINT1  CSMPREC  LEMPREC  CSMCONIC  LEMCONIC 
DIFEQ+2  AVETOMID  MIDT0AV2  LSR22.3  LSR22.4 

ORBCHGO  UPPSV  PR0G21  UPPSV4 

INTEGRVS 

ORBI-4 

EXGSUB  P76  INITVEL2  INTINT  P21CONT  OTHINT  REV83 

INTEXIT 

ORBI-5 

TESTLOOP 

INTGRATE 

ORBI-8 

TIMESTEP  LUNSPH 

INTINT 

TRGX-9 

ADTIME  S34/35.2  S34/35.3  P32/P72B  P33/P73B 

GIRCL 

INTLOOP 

TRGL-1 

INTLOOP 

INTLZE 

SERV-1  5 

LANDISP 

INTSTALL 

ORBI-21 

EXGSUB  STATINT1  CSMPREC  LEMPREC  CSMCONIC 

LEMCONIC  AVETOMID  MIDT0AV2  P76  INITVEL2 

INTINT  UPJOB  GETRVN  OTHCONIC  ATTACHIT  CANV37 
INC0RP2  LSR22.3  LSR22.4  UPPSV  V67CALL  ORBCHGO 
INTSTALL  TRMTRACK  REV83  PR0G21  UPPSV4 

X - 21 


INTWAKE 

ORBI-21 

INTEXIT  AVETOI'IID  ATTACHIT  FAZAB3 
V67CALL 

INTWAKE1 

ORBI-22 

INTWAKEU  P76  INTSTALL  ORBCHGO 

INTWAKEU 

ORBI-22 

UPEND70  UPEND71  UPEND72  UPERROUT 

INVRSEQN 

CONC-1 1 

GETX  WLOOP 

ISSZERO 

iKac-7 

IMUMON  TNONTEST 

ITERATOR 

CONC-1 2 

LAlffiLOOP 

ITURN0N2 

IMUC-10 

II'IUlylON 

JAI^ITERM 

DINT-1 8 

NVDSP 

JETSOFF 

DAPA-1 7 

TSNEXTP  DETENTCK  PURGENCY  PJETSLEC  SELECTP 

JOBSLEEP 

MATX-15 

REDO  TCGETGAD 

JOBWAKE 

MATX-17 

WAKER 

J0BWAKE4 

MATX-17 

JOBWAKE4 

JOBXCHS 

DINT-9 

MAKEMARK  MAKEPRIO 

JTLST 

DAPA-2 

PJETSLEC  DOROTAT 

JUSTOA 

ALIN-1  2 

SURFSTAR 
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KALCMAN3 

ATTM-4 

GOl^UR 

KEPCONVG 

CONG -5 

KEPLOOP  BRNGHCTR 

KEPLERN 

CONG -3 

KEPPREP 

KEPLOOP 

GONG -4 

BRNGHGTR 

KEPPREP 

ORBI-15 

RVGON  GOBAQUE  NBRANCH 

KEYRUPT1 

DSKY-1 

Galled  via  program  interrupt  #5 

KILLA.OT 

ALIN-36 

GETDAT  PASTIT  DSPV6N79 

KLEENEX 

DINT-5 

LALOTORV 

GOOR-4 

N89DISP 

LAMBERT 

GONG -6 

INITVEL2 

LAMBLOOP 

GONG -7 

HIENERGY  LAMBLOOP  LOENERGY 

LAMENTER 

GONG-1  2 

INITV 

LANDISP 

SERV-1  5 

R10,R11 

LANDJUNK 

DESG-  18 

LASTBIAS 

IMUG-3 

PREREAD 

LAT-LONG 

GOOR-3 

PR0G21  LANDJUNK  N89DISP 

LEMGONIG 

ORBI-3 

S52.3  V89REGL  LPS20.1  LRS24.1  SBANDANT 

LEMPREG 

ORBI-2 

LOCSAM  P57D  PR0G21  AGSVGALG  V82G0FF1  V83CALL 
REV83  R36  . S30.1 

PREGSET  P12LM  S40.1B  P63LM 

LEMVEG 

EXVB-9 

GOEXTVB 

LGGUPDTE 

RNAVJ6 

RANGEBQ 

LIGHTSET 

PGSR-1 0 

GOPROG  GOPROG2A 
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LITIT 

RADR-25 

ONLITES 

LOADLV 

DINT-1 4 

ALGAD  BLGAD  CLGAD  ABLGAD  ABCLGAD  PUTNGRM 
HMSIN  GOLGADLV 

LOGS AM 

ALIN-1 3 

PLANET  R51 

LODNNTAB 

DATA-4 

TESTNN  ALGAD  BLGAD  CLGAD  ABLGAD  ABCLGAD 
UPDATNN 

LOENERGY 

CONG -8 

LAMBLOGP 

LOGSUB 

MATX-6 

LONGCALL 

MATX-23 

LONGCYCL 

MATX-23 

LGNGCALL  LGNGCYCL 

LPS20.1 

RNAV-8 

P20LEM1  R21LEM1  R61C+LD2  READRDGT  6DTIMES 

LRALT 

RADR-1 7 

DGRSAMP  LRHJGB 

LRHEIGHT 

RADR-2G 

RADAREAD 

LRHJOB 

SERV-1  2 

R10,R11 

LROFF 

EXVB-7 

GOEXTVB 

LRON 

EXVB-7 

GGEXTVB 

LRP0S2 

RADR-23 

LRPDS2K  HIGATJGB 

LRP0S2K 

EXVB-7 

GGEXTVB 

LRPOSCAN 

RADR-23 

LRPGS2  LRPGSCAN 

LRPOSOUT 

DATA-1 1 

DECDSP3 

LRS22.1 

RNAV-21 

R22LEM 

LRS24.1 

RNAV-28 

DATGDCHK  R24LEM 
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LRVELX 

RADR-17 

DORSAMP  LRVJOB 

LRVELY 

RADR-17 

DORSAMP  LRVJOB 

LRVELZ 

RADR-17 

DORSAMP  LRVJOB 

LRVJOB 

SERV-1  2 

VALTCHK 

LSPOS 

COOR-7 

LOCSAM  SBANDANT  TIMESTEP  LUNSPH  ACCOMP 

LSORIENT 

ALIN-1 8 

P52LS  P57D 

LSR22.3 

RNAV-23 

R22LEM 

LSR22.4 

RNAV-24 

LSR22.3 

LUNDESCH 

RADR-24 

RRANGLES 

LUNG 

ALIN-34 

GVDETER 

LUNLAND 

DESC-4 

P63IGN 

LUNSPH 

ORBI-7 

TIMESTEP 

M/SOUT 

DATA-1 3 

DECDSP3 

MAINENG 

ASGT-8 

MAKECADR 

MATX-26 

MAKEMARK 

DINT-7 

MAKEPLAY 

MAKEPLAY 

DINT-6 

GOFLASH2  GODSPRS1  BLANKET 

MAKEPRIO 

DINT-8 

MAKEPLAY 

MANUSTOP 

ATTM-8 

NEWANGL 

X 
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MARKCHEX 

ALIN-9 

PASTIT  SURFAGAN 

MARKPLAY 

DINT-8 

MAKEMARK  JOBXCHS  XCHSLEEP  NV50DSP  MARKWAKE 
PINBRNCH 

MARKRET 

DINT-1 6 

TERMATE 

MARKRUPT 

ALIN-6 

Called  via  program  interrupt  #6 

MARKWAKE 

DINT-1 7 

NORMRET 

MFREF 

COOR-8 

SAMETIP  P570PT3 

ICDTOAVI 

ORBI-19 

P41 SPOT 

MIDT0AV2 

ORBI-20 

P47LM 

MINIMP 

EXVB-9 

GOEXTVB 

MINOR 

DAPA-21 

TSNEXTS 

MINRTN 

DAPA-21 

FAILOOP  FEEDBACK  DOROTAT  TJLAW4 

MIXNOUN 

DATA-5 

TESTNN 

MKRELEAS 

ALIN-4 

AVEIT 

MMCHANG 

DATA-26 

ENTER  VERBFAN 

M0DE2CHK 

RADR-7 

RRLIMNB 

HONDO 

DATA-1 6 

MONREQ 

MONITOR 

DATA-1  5 

VERBFAN 

MONREQ 

DATA-1  5 

MONITOR  MONREQ 

MOONMX 

COOR-3 

PI 2LM  P63LM  LANDJUNK  OBLATE  USEPIOS 

LAT-LONG  LALOTORV  MFREF  REFMF  P52LS  P57POST 

MOREDES 

RADR-10 

STDESIG 

MOREIDLE 

DAPA-3 

DAPIDLER  PAXIS  CHEKBITS 

MOVEACSM 

ORBI-17 

ENDSTATE  A-PCHK  INTWAKEU  P76  ORBCHGO  FAZAB3 

MOVEALEM 

ORBI-18 

ENDSTATE  A-PCHK  AVETOMID  INTWAKEU 

FAZAB3 
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MOVEPCSM 

ORBI-16 

INTEGRV  FAZC 

MOVEPLEM 

ORBI-17 

INTEGRV  FAZC  ATTACHIT 

MUNGRAV 

SERV-7 

PI 2LM  P41 SPOT  NORMLIZE  RVBOTH  NOREASON 
IGNALOOP 

MUNRETRN 

SERV-7 

RVBOTH 

N45PROC 

TRGX-6 

VN1645 

N49DSP 

RNAV-  19 

R22LEM96 

N89DISP 

ALIN-1 6 

P52LS 

NB2CDUSP 

BURN-23 

DCMCL 

NBD2 

IMUC-2 

LASTBIAS 

NBDONLY 

IMUC-1 

SVCT3 

NBRANCH 

ORBI-12 

ACCOMP  DOW. . 

NBTOSM 

COOR-1 

VMEASCHK  COMPDISP  DODES  RANGEBQ  AVESTAR 

NEEDIER 

NEEDLES 

NEGPROD 

NEGSGN 

NEGUSUM 

NEWANGL 

NEWDELHI 

NEWSTATE 

NEWZCOMP 

NEXTCOL 


P570PT1  P570PT3  INITBI  GVDETER  P57POST  RODCOMP 
DAPA-4  ALTDSPLY 
DAPA-5 

BURN-18  RASTEER1 
DSKI-4  CHARIN 
DAPA-29  RSTOFGTS 
ATTM-6  NEWDELHI 
ATTM-8  UPDTCALL 
CONC-1 2 COMMNOUT 
RNAV-38  INCORP1 
ORBI-14  DIFEQ+2 
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NEXTINSL 

TELE-4 

DNPHASE2 

NOATTCNT 

BURN-23 

FINDCDUW  DCMCL 

NOGO 

ATTM-8 

KALCMAN3  NEWDELHI 

NOMINIMP 

EXVB-9 

GOEXTVB 

N0R29N0W 

SERV-1 1 

COPYCYC1  R29  R29.L0S 

NOREASON 

SERV-9 

UPDATCHK 

NORMBNCH 

DINT-1 8 

PINBRNCH 

NORMLIZE 

SERV-2 

PREREAD 

NORMRET 

DINT-1 6 

TERMATE  ENDEXT 

NORMWAKE 

DINT-1  7 

NORMRET 

NORRGMON 

RADR-,2 

RRCDUCHK  RRGIMON  RRAUTCHK 

NOTMUCH 

DAPB-6 

BOTHAXES 

NOUN 

DSKY-2 

CHARIN 

NOVAC 

MATX-12 

N0VAC2 

MATX-12 

FINDVAC2 

NOVAC3 

MATX-12 

NOVAC3 

NTARGCHK 

TRGL-4 

NTARGCHK 

NUM 

DSKI-2 

CHARIN 

NV50DSP 

DINT-1 1 

NV50DSP 

NVDSP 

DINT-1 1 

NV50DSP  TERMATE  NORMBNCH  PLAYJUM1  MARKPLAY 

REDOPRIO 

NVSUB 

DATA-1 

NV50DSP  ENDRET  PINBRNCH  TESTXACT  XACTO 

NVSUBEND 

DATA-2 

NVSUB  DSPALARM 

NXTBNK 

TEST-8 

SDISPLAY 
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OANB 

ALIN-5 

AZEL  INCAZ  OPTAXIS 

OBLATE 

ORBI-IO 

ACCOMP 

OCCULT 

ALIN-24 

PIC3 

OHWELL1 

EXVB-14 

UPUPDATE  OHWELL1 

0HWELL2 

EXVB-14 

UPUPDATE  0HWELL2  UPVERIFY 

OKTOCOPY 

DINT-9 

JOBXCHS 

OKTOPLAY 

DINT-6 

MAKEPLAY 

OMEGCALC 

RNAV-30 

1 ONLITES 

RADR-25 

RADLITES 

OPTAXIS 

ALIN-5 

GETDAT 

ORBCHGO 

RNAV-1 

ORIGCHNG 

ORBI-7 

TIMESTEP  LUNSPH 

OTHCONIC 

EXVB-25 

REV83 

OTHINT 

EXVB-26 

GETRVN 

OUTSNUEF 

EX7B-9 

GOEXTVB 

X - 29 


P06 

PGSR-1 3 

P06 

P12IGN 

BURN-5 

IGNITION 

P12INIT 

ASCT-6 

P12LM  GOABORT 

P12LM 

ASCT-1 

P12RET 

ASCT-2 

CMPONENT 

P20LEM1 

RNAV-3 

R24END  CSMINT  P20LEM1 

P20LEM 

RNAV-3 

R21LEM1  R22LEM 

P20LEMB 

RNAV-4 

P20LEMB1  P20LEMB7 

P20LEMB1 

RNAV-4 

R23LEM 
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